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 / p11 / tst / binary2.pcat < prev    next >
Text File  |  2006-03-05  |  516b  |  28 lines
  1. (* This program tests iadd, isub, imul, fadd, fsub, fmul, fdiv. *)
  2.  
  3. program is
  4.  
  5.   var x: integer := 0;
  6.       y: integer := 3;
  7.       z: integer := 4;
  8.       a: real := 0.0;
  9.       b: real := 3.3;
  10.       c: real := 4.4;
  11.  
  12. begin
  13.   x := y + z;
  14.   write ("3 + 4 = ", x);
  15.   x := y - z;
  16.   write ("3 - 4 = ", x);
  17.   x := y * z;
  18.   write ("3 * 4 = ", x);
  19.   a := b + c;
  20.   write ("3.3 + 4.4 = ", a);
  21.   a := b - c;
  22.   write ("3.3 - 4.4 = ", a);
  23.   a := b * c;
  24.   write ("3.3 * 4.4 = ", a);
  25.   a := b / c;
  26.   write ("3.3 / 4.4 = ", a);
  27. end;
  28.