Procedures | Cast3M

   1 : * FACTORIE  PROCEDUR  NOBODY    92/01/01    00:00:00     001                    
   2 : *                                                                               
   3 : *  CETTE PETITE PROCEDURE  CALCULE LA FACTORIELLE D'UN NOMBRE ENTIER            
   4 : *                                                                               
   5 : DEBPROC   FACTORIE I*ENTIER   ;                                                 
   6 : *                                                                               
   7 : SI (I <EG 0) ;                                                                  
   8 :     RESULTAT=1;                                                                 
   9 : SINON;                                                                          
  10 :     RESULTAT=  FACTORIE(I-1)*I;                                                 
  11 : FINSI;                                                                          
  12 : *                                                                               
  13 :   FINPROC  RESULTAT;