home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.pdx.edu / 2014.02.ftp.ee.pdx.edu.tar / ftp.ee.pdx.edu / pub / users / Harry / compilers / p3 / tst / expr4.pcat < prev    next >
Text File  |  2005-10-24  |  440b  |  17 lines
  1. program is
  2.   var x := 3; y := 5;
  3.   var z := true; w := false;
  4.   type T is array of integer;
  5.   var p := T {{ 10 of 0 }};
  6.   var q := T {{ 10 of 0 }};
  7.   var r := T {{ 10 of 1 }};
  8.   begin
  9.     write (x = y, x <> y, x < y, x > y, x <= y, x >= y);
  10.     write (y = y, y <> y, y < y, y > y, y <= y, y >= y);
  11.     write (z = w, z <> w);
  12.     write (w = w, w <> w);
  13.     write (p = q, p <> q);
  14.     write (p = r, p <> r);
  15.     write (r = r, r <> r);
  16.   end;
  17.