home *** CD-ROM | disk | FTP | other *** search
/ Compy Shop Magazin 1989 March / Compy_Shop_Magazin_1989_03___de_Side_A.atr / potenz.i < prev    next >
Text File  |  2023-02-26  |  288b  |  1 lines
  1. FUNCTION Potenz(Z:Real;Ex: Integer): Real;¢¢   VAR¢     Wert: Real;¢     Loop: Integer;¢¢  BEGIN¢    IF Ex=0 ¢      THEN Wert:= 1¢      ELSE BEGIN¢        Wert:= Z;¢        FOR Loop:= 1 TO (Abs(Ex)-1) DO Wert:= Wert*Z¢       END;¢    IF Ex<0 THEN Wert:= 1/Wert;¢    Potenz:= Wert¢   END;¢