Test11.obn

   1 MODULE Test11;
   2
   3 IMPORT Out;
   4
   5 CONST
   6   im1 = -1;
   7   bol = ~FALSE;
   8   set = { 1, 2, 3..6 };
   9   fm1 = -1.0;
  10   dm1 = -1.0D0;
  11   inf = 4 IN set;
  12   rel = 10 = 100;
  13   pi = 4 / 1 - 4 / 3 + 4 / 5 - 4 / 7 + 4 / 9 - 4 / 11 + 4 / 13 - 4 / 15 + 4 / 17 - 4 / 19 + 4 / 21;
  14
  15 BEGIN
  16   Out.Open;
  17
  18   Out.Int(im1, 0); Out.Ln;
  19   Out.Real(fm1, 0); Out.Ln;
  20   Out.LongReal(dm1, 0); Out.Ln;
  21
  22   Out.Real(pi, 0); Out.Ln;
  23
  24   IF 5 IN set THEN
  25     Out.String("SET: Ok"); Out.Ln;
  26   ELSE
  27     Out.String("INVALID SET"); Out.Ln;
  28     HALT(1);
  29   END;
  30
  31   IF bol THEN
  32     Out.String("BOOLEAN: Ok"); Out.Ln;
  33   ELSE
  34     Out.String("INVALID BOOLEAN"); Out.Ln;
  35     HALT(1);
  36   END;
  37 END Test11.
  38
  39 Проверка свёртки констант.