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