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 / ExamplePCATPgms / fact.pcat next >
Text File  |  2003-01-08  |  383b  |  24 lines
  1. (* This program prints out the first several factorial numbers,
  2.    using a recursive algorithm.  *)
  3.  
  4. program is
  5.  
  6.   var i: integer := 0;
  7.  
  8.   procedure fact (x: integer) : integer is
  9.   begin
  10.     if x<2 then
  11.       return 1;
  12.     else
  13.       return x * fact (x-1);
  14.     end;
  15.   end;
  16.  
  17. begin
  18.  
  19.   write ("The first factorial numbers are:");
  20.   for i := 1 to 10 do
  21.     write (fact(i));
  22.   end;
  23. end;
  24.