Test.obn

   1 MODULE Test;
   2
   3 IMPORT Out, CPMath, CPStrings;
   4
   5
   6 VAR
   7   s : ARRAY 80 OF CHAR;
   8   v, m, r, f : LONGREAL;
   9   e : LONGINT;
  10
  11 BEGIN
  12   v := CPMath.Pi();
  13   m := CPMath.Mantissa(v);
  14   e := CPMath.Exponent(v);
  15   r := CPMath.Real(m, e);
  16   f := CPMath.Frac(v);
  17   Out.LongReal(v, 0); Out.Ln;
  18   Out.LongReal(m, 0); Out.Ln;
  19   Out.Int(e, 0); Out.Ln;
  20   Out.LongReal(r, 0); Out.Ln;
  21   Out.LongReal(f, 0); Out.Ln;
  22 END Test.