home *** CD-ROM | disk | FTP | other *** search
/ Compy Shop Magazin 1989 May / Compy_Shop_Magazin_1989_05___de_Side_B.atr / power2.i < prev    next >
Text File  |  2023-02-26  |  289b  |  1 lines
  1.  (* Diese kleine Funktion berechnet *)¢ (* a^x fuer reelle a und x.        *)¢¢FUNCTION power(a,x:REAL):REAL;¢¢ VAR y        : REAL;¢     negative : BOOLEAN;¢¢BEGIN¢ negative:=(odd(trunc(x)) AND (a<0));¢¢  y:=exp(x*ln(abs(a)));¢¢ IF negative THEN power:=-y¢             ELSE power:=y¢END;¢