OberonCore

MODULE Usemath;

IMPORT Math, Log;

PROCEDURE Go*;
VAR i: INTEGER;
BEGIN
   FOR i := 0 TO 8 DO
      Log.Real(Math.Cos(Math.Pi() / 8 * i)); Log.Char(" ")
   END;
   Log.Ln;
   FOR i := 0 TO 8 DO
      Log.Real(Math.Sin(Math.Pi() / 8 * i)); Log.Char(" ")
   END;
   Log.Ln
END Go;

END Usemath.