home *** CD-ROM | disk | FTP | other *** search
/ Compy Shop Magazin 1989 May / Compy_Shop_Magazin_1989_05___de_Side_B.atr / power1.i < prev    next >
Text File  |  2023-02-26  |  211b  |  1 lines
  1. FUNCTION power(X:REAL; Y:INTEGER):REAL;¢¢ VAR Z:REAL;¢¢BEGIN¢ Z:=1;¢ WHILE Y>0 DO¢   BEGIN¢       WHILE not odd(Y) DO¢         BEGIN Y:=Y div 2; X:=sqr(X)¢       END;¢    Y:=Y-1; Z:=X*Z¢   END;¢   power:=Z¢END;¢