home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / os2 / XCO212P / SAMPLES / SIMPLE / BF.MOD < prev    next >
Encoding:
Text File  |  1995-06-17  |  612 b   |  36 lines
  1. (*
  2.  * Written by Andrew Cadach
  3.  *
  4.  * Recursive (extremely uneficient:-) implementation of factorial
  5.  *
  6.  *                     n * (n-1)!, n <> 0
  7.  * By definition, n! = 
  8.  *                     1, n = 0
  9.  *
  10.  *)
  11.  
  12. MODULE bf;
  13.  
  14. IMPORT InOut;
  15.  
  16. VAR i, r: CARDINAL;
  17.  
  18. PROCEDURE f (n: CARDINAL): CARDINAL;
  19. BEGIN
  20.   IF n=0 THEN RETURN 1 END;
  21.   RETURN n * f (n-1);
  22. END f;
  23.  
  24. BEGIN
  25.   i := 0;
  26.   LOOP
  27.     r := f(i);
  28.     InOut.WriteString ("The factorial of ");
  29.     InOut.WriteCard (i, 2);
  30.     InOut.WriteString (" is ");
  31.     InOut.WriteCard (r, 0);
  32.     InOut.WriteLn;
  33.     INC (i,5)
  34.   END;
  35. END bf.
  36.