home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / alb_c10 / chap_05 / ch05_14.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-09-08  |  905 b   |  38 lines
  1. /*********************************************************************
  2. *  CH05_14.C        Calcul d'une factorielle quand n<13 avec des UL  *
  3. *********************************************************************/
  4.  
  5. #include<stdio.h>
  6. int LitInt( void);  /* Prototype de la fonction que nous avons crΘΘ.*/
  7.  
  8. main( void)
  9. {
  10.     int n= 1, i;
  11.     unsigned long int factorielle;
  12.  
  13.     while( n)
  14.     {
  15.       do {
  16.         printf("\n Composez le nombre dont la "
  17.                  "factorielle est α calculer: n= ");
  18.         n= LitInt();
  19.          }
  20.       while( n< 0 && n> 12);
  21.  
  22.       factorielle= 1;
  23.       if( n>1)
  24.          for( i=2; i<= n; ++i)   factorielle*= i;
  25.  
  26.       printf("\n\t\t !%d= %lu\n", n, factorielle );
  27.         }
  28. }
  29.  
  30. int LitInt( void)     /* DΘfinition de la fonction.                */
  31. {
  32.     int Entier;
  33.     while( scanf("%d", &Entier) != 1)     
  34.         while( getchar() != '\n' );
  35.     while( getchar() != '\n' );
  36.     return( Entier);
  37. }
  38.