home *** CD-ROM | disk | FTP | other *** search
/ Compy Shop Magazin 1989 May / Compy_Shop_Magazin_1989_05___de_Side_B.atr / rad.i < prev    next >
Text File  |  2023-02-26  |  199b  |  1 lines
  1.  (* UMRECHNUNG GRAD => BOGENMASS *)¢¢ (* UMRECHNUNG BOGENMASS => GRAD *)¢¢FUNCTION RAD(X:REAL):REAL;¢¢BEGIN¢  RAD:=arctan(1)*X/45¢END;¢¢FUNCTION GRAD(X:REAL):REAL;¢¢BEGIN¢  GRAD:=45*X/arctan(1)¢END;¢