tests/Test9.obn

   1 MODULE Test9;
   2
   3 VAR
   4   i : INTEGER;
   5   f : REAL;
   6   d : LONGREAL;
   7   x : SET;
   8
   9 BEGIN
  10   i := i + 1;
  11   i := 5 DIV 3;
  12   f := 5 / 3;
  13   d := 5 / 3.0;
  14   d := 5 / 3.0D0;
  15   x := { 0..4 };
  16 END Test9.
  17
  18 Проверка типов в операциях.