Test12.obn

   1 MODULE Test12;
   2
   3 CONST
   4   icon = 32;
   5   ash1 = ASH(icon, -5);
   6   ash2 = ASH(icon, 5);
   7
   8 VAR
   9   i : INTEGER;
  10
  11 BEGIN
  12   i := icon;
  13   ASSERT(ash1 = 1);
  14   ASSERT(ash2 = 1024);
  15   ASSERT(ASH(i, -5) = 1);
  16   ASSERT(ASH(i, 5) = 1024);
  17 END Test12.
  18
  19 Проверка правильности вычисления ASH.