Test2.obn

   1 MODULE Test2;
   2
   3 IMPORT Out;
   4
   5 CONST
   6   dec1 = 1991;
   7   hex1 = 0DH; (* = 13 *)
   8   hex2 = 0123H; (* = 291 *)
   9   real1 = 12.3;
  10   real2 = 4.567E8;
  11   real3 = 4.567E+8;
  12   real4 = 4.567E-8;
  13   long1 = 0.57712566;
  14   long2 = 0.57712566D6;
  15   long3 = 0.57712566D+6;
  16   long4 = 0.57712566D-6;
  17   char1 = 042X; (* = "B" *)
  18   char2 = 03FX; (* = "?" *)
  19   str1 = 'Oberon-2';
  20   str2 = "Don't worry!";
  21   charvsstr1 = 'A';
  22   charvsstr2 = "Z";
  23
  24 BEGIN
  25   Out.Open;
  26   Out.String("dec1 = "); Out.Int(dec1, 0); Out.Ln;
  27   Out.String("hex1 = "); Out.Int(hex1, 0); Out.Ln;
  28   Out.String("hex2 = "); Out.Int(hex2, 0); Out.Ln;
  29   Out.String("real1 = "); Out.Real(real1, 0); Out.Ln;
  30   Out.String("real2 = "); Out.Real(real2, 0); Out.Ln;
  31   Out.String("real3 = "); Out.Real(real3, 0); Out.Ln;
  32   Out.String("real4 = "); Out.Real(real4, 0); Out.Ln;
  33   Out.String("long1 = "); Out.LongReal(long1, 0); Out.Ln;
  34   Out.String("long2 = "); Out.LongReal(long2, 0); Out.Ln;
  35   Out.String("long3 = "); Out.LongReal(long3, 0); Out.Ln;
  36   Out.String("long4 = "); Out.LongReal(long4, 0); Out.Ln;
  37   Out.String("char1 = "); Out.Char(char1); Out.Ln;
  38   Out.String("char2 = "); Out.Char(char2); Out.Ln;
  39   Out.String("str1 = "); Out.String(str1); Out.Ln;
  40   Out.String("str2 = "); Out.String(str2); Out.Ln;
  41   Out.String("charvsstr1 (string) = "); Out.String(charvsstr1); Out.Ln;
  42   Out.String("charvsstr2 (string) = "); Out.String(charvsstr2); Out.Ln;
  43   Out.String("charvsstr1 (char) = "); Out.Char(charvsstr1); Out.Ln;
  44   Out.String("charvsstr2 (char) = "); Out.Char(charvsstr2); Out.Ln;
  45 END Test2.
  46
  47 Проверка констант.
  48 Всё должно компилироваться и работать.