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 / stat2.pcat < prev    next >
Text File  |  2005-10-24  |  875b  |  47 lines
  1. program is
  2.   begin
  3.     if (true) then write ("yes"); else write ("no"); end;
  4.     if (true) then write ("again"); end;
  5.     if (false) then write ("yes"); else write ("no"); end;
  6.     if (false) then write ("again"); end;
  7.     if (true) then
  8.       write ("a");
  9.       write ("b");
  10.       write ("c");
  11.     end;
  12.     if (true) then
  13.       write ("a");
  14.       write ("b");
  15.       write ("c");
  16.     else
  17.       write ("a");
  18.       write ("b");
  19.       write ("c");
  20.     end;
  21.     if (x) then
  22.       write ("d");
  23.       write ("e");
  24.     elseif (y) then
  25.       write ("f");
  26.       write ("g");
  27.     elseif (z) then
  28.       write ("h");
  29.       write ("i");
  30.     else
  31.       write ("j");
  32.       write ("k");
  33.     end;
  34.     if (x) then
  35.       write ("d");
  36.       write ("e");
  37.     elseif (y) then
  38.       write ("f");
  39.       write ("g");
  40.     elseif (z) then
  41.       write ("h");
  42.       write ("i");
  43.     end;
  44.   end;
  45.     
  46.   
  47.