home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / pascal2c / fact.c < prev    next >
C/C++ Source or Header  |  1992-08-03  |  471b  |  39 lines
  1. /* Output from p2c, the Pascal-to-C translator */
  2. /* From input file "dist/examples/fact.p" */
  3.  
  4.  
  5. #include <p2c/p2c.h>
  6.  
  7.  
  8. Static long i;
  9.  
  10.  
  11.  
  12. Static long fact(n)
  13. long n;
  14. {
  15.   if (n > 1)
  16.     return (n * fact(n - 1));
  17.   else
  18.     return 1;
  19. }
  20.  
  21.  
  22.  
  23. main(argc, argv)
  24. int argc;
  25. Char *argv[];
  26. {
  27.   PASCAL_MAIN(argc, argv);
  28.   for (i = 1; i <= 10; i++)
  29.     printf("The factorial of %ld is %ld\n", i, fact(i));
  30.   exit(EXIT_SUCCESS);
  31. }
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38. /* End. */
  39.