home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / LOKAL.IPS < prev    next >
Encoding:
Text File  |  1998-03-25  |  650 b   |  27 lines
  1. VAR
  2.    v : integer = 999;
  3. ENDVAR
  4.  
  5. FUNCTION umocni(x : integer, y : integer): integer
  6.    VAR
  7.       k : integer;
  8.       v : real;
  9.    ENDVAR
  10.  
  11.    v := x;          {p°evezneme zßklad}
  12.    WRITELN("p°edßvanß hodnota x:",V:4);
  13.    WRITELN("lokßlnφ   hodnota v:",V:4);
  14.    FOR k:= 1 to y
  15.        v := v*x;    {nßsobφme opakovan∞ zßkladem}
  16.    ENDFOR
  17.    umocni := v;     {p°edßme v²sledku funkce}
  18. ENDPROC
  19.  
  20. PROCEDURE main
  21.    ConsoleClear; ConsoleShow;
  22.    WRITELN("globßlnnφ hodnota v:",V:4);
  23.    WRITELN(umocni(2,9):10);  {vracφ hodnotu 1024}
  24.    WRITELN(umocni(3,3):10);  {vracφ hodnotu   81}
  25.    WRITELN("globßlnnφ hodnota v:",V:4);
  26. ENDPROC
  27.