home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / ZISK.IPS < prev    next >
Encoding:
Text File  |  1997-10-13  |  2.2 KB  |  50 lines
  1. PROCEDURE main
  2.    VAR
  3.       X : integer
  4.    ENDVAR
  5.    SpreadInit(17,4)
  6.    SpreadShow;
  7.    SpreadRow( 1); SpreadCol(2); SpreadText("ZISK FIKTIVNI FIRMY");
  8.    SpreadRow( 2); SpreadCol(1); SpreadText("M∞sφc")
  9.    SpreadCol( 2); SpreadText("P°φjem");
  10.    SpreadCol( 3); SpreadText("Vydej");
  11.    SpreadCol( 4); SpreadText("Zisk");
  12.    SpreadRow( 3); SpreadCol(1); SpreadText("=====================================");
  13.    SpreadRow( 4); SpreadCol(1); SpreadText("Leden");
  14.    SpreadCol( 4); SpreadFormula("SUM(B4-C4)");
  15.    SpreadRow( 5); SpreadCol(1); SpreadText("┌nor");
  16.    SpreadCol( 4); SpreadFormula("SUM(B5-C5)");
  17.    SpreadRow( 6); SpreadCol(1); SpreadText("B°ezen");
  18.    SpreadCol( 4); SpreadFormula("SUM(B6-C6)");
  19.    SpreadRow( 7); SpreadCol(1); SpreadText("Duben");
  20.    SpreadCol( 4); SpreadFormula("SUM(B7-C7)");
  21.    SpreadRow( 8); SpreadCol(1); SpreadText("Kv∞ten");
  22.    SpreadCol( 4); SpreadFormula("SUM(B8-C8)");
  23.    SpreadRow( 9); SpreadCol(1); SpreadText("╚erven");
  24.    SpreadCol( 4); SpreadFormula("SUM(B9-C9)");
  25.    SpreadRow(10); SpreadCol(1); SpreadText("╚ervenec");
  26.    SpreadCol( 4); SpreadFormula("SUM(B10-C10)");
  27.    SpreadRow(11); SpreadCol(1); SpreadText("Srpen");
  28.    SpreadCol( 4); SpreadFormula("SUM(B11-C11)");
  29.    SpreadRow(12); SpreadCol(1); SpreadText("Zß°φ");
  30.    SpreadCol( 4); SpreadFormula("SUM(B12-C12)");
  31.    SpreadRow(13); SpreadCol(1); SpreadText("╪φjen");
  32.    SpreadCol( 4); SpreadFormula("SUM(B13-C13)");
  33.    SpreadRow(14); SpreadCol(1); SpreadText("Listopad");
  34.    SpreadCol( 4); SpreadFormula("SUM(B14-C14)");
  35.    SpreadRow(15); SpreadCol(1); SpreadText("Prosinec");
  36.    SpreadCol( 4); SpreadFormula("SUM(B15-C15)");
  37.  
  38.    FOR X := 4 TO 15;
  39.        SpreadRow(X);
  40.        SpreadCol(2); SpreadNumber(Random(100));
  41.        SpreadCol(3); SpreadNumber(Random(100));
  42.    ENDFOR
  43.    SpreadRow(16); SpreadCol(1); SpreadText("=====================================");
  44.    SpreadRow(17); SpreadCol(1); SpreadText("SouΦet");
  45.    SpreadCol( 2); SpreadFormula("SUM(B4:B15)");
  46.    SpreadCol( 3); SpreadFormula("SUM(C4:C15)");
  47.    SpreadCol( 4); SpreadFormula("SUM(D4:D15)");
  48.    SpreadRecalc;
  49.    MessageBox("RoΦnφ zisk firmy je: "+IntTostr(SpreadGetNumber),"V²sledek",0);
  50. ENDPROC