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 / speed.pcat < prev    next >
Text File  |  2006-03-05  |  1KB  |  36 lines
  1. (* This program demonstrates the execution speed of compiled PCAT programs. *)
  2.  
  3. program is
  4.  
  5.   var i,j,x,y,z : integer := 0;
  6.  
  7. begin
  8.   write ("Should print A-B-C several times.  Between B and C is an empty FOR loop");
  9.   write ("  which executes 10,000,000 times.  The program then prints D-E-F several");
  10.   write ("  times.  Between E and F is a FOR loop which also executes 10,000,000 times.");
  11.   write ("  The only difference is that the FOR loop contains the statement");
  12.   write ("      x := y + z;");
  13.   write ("  Comparing the different times (between B and C, versus between E and F)");
  14.   write ("  and dividing by 10,000,000 will allow you to determine how long the");
  15.   write ("  assignment takes.");
  16.   for i := 1 to 4 do
  17.     write ("A  ");
  18.     write (" B ");
  19.     for j := 1 to 10000000 do
  20.     end;
  21.     write ("  C");
  22.   end;
  23.   for i := 1 to 4 do
  24.     write ("D  ");
  25.     write (" E ");
  26.     for j := 1 to 10000000 do
  27.       x := y + z;
  28.     end;
  29.     write ("  F");
  30.   end;
  31.   write ("Should print the numbers between 1 and 300:");
  32.   for i := 1 to 300 do
  33.     write (i);
  34.   end;
  35. end;
  36.