(* Chapter 3 - Program 5 *)
MODULE RealTrig;

FROM InOut IMPORT WriteString, WriteLn;
FROM RealInOut IMPORT WriteReal;
FROM MathLib0 IMPORT sin, cos, entier, real; (* Your system may use
                                  a different name for either the
                                  module or the functions.        *)

VAR A, B  : REAL;
    Index : INTEGER;

BEGIN

   A := 0.5;
   B := sin(A)*cos(A);

   WriteString("The Trig values are ");
   WriteReal(A,12);
   WriteString("  ");
   WriteReal(B,12);
   WriteLn;

   Index := entier(14.0 * A);
   A := real(Index);

END RealTrig.




(* Result of execution

The Trig values are  5.0000E-001   4.2074E-001

*)