home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 247_01 / fact.c < prev    next >
Text File  |  1989-04-19  |  640b  |  22 lines
  1. /*
  2.  *   Program to calculate factorials.
  3.  */
  4.  
  5. #include <stdio.h>
  6. #include "miracl.h"   /* include MIRACL system */
  7.  
  8. main()
  9. { /* calculate factorial of number */
  10.     big nf;           /* declare "big" variable nf */
  11.     int n;
  12.     mirsys(500,10);   /* initialise system to base 10 ,500 digits per "big" */
  13.     nf=mirvar(1);     /* initialise "big" variable nf=1 */
  14.     printf("factorial program\n");
  15.     printf("input number n= \n");
  16.     scanf("%d",&n);
  17.     getchar();
  18.     while (n>1) premult(nf,n--,nf);   /* nf=n!=n*(n-1)*(n-2)*....3*2*1  */
  19.     printf("n!= \n");
  20.     otnum(nf,stdout); /* output result */ 
  21. }
  22.