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 / div.pcat < prev    next >
Text File  |  2006-03-05  |  361b  |  18 lines
  1. (* This program tests DIV and REM. *)
  2.  
  3. program is
  4.  
  5. begin
  6.  
  7.   write ("17 DIV 5 = ", 17 div 5);
  8.   write ("17 DIV -5 = ", 17 div -5);
  9.   write ("-17 DIV 5 = ", -17 div 5);
  10.   write ("-17 DIV -5 = ", -17 div -5);
  11.  
  12.   write ("17 MOD 5 = ", 17 mod 5);
  13.   write ("17 MOD -5 = ", 17 mod -5);
  14.   write ("-17 MOD 5 = ", -17 mod 5);
  15.   write ("-17 MOD -5 = ", -17 mod -5);
  16.  
  17. end;
  18.