Procédures | Cast3M

* FACTORIE  PROCEDUR  NOBODY    92/01/01    00:00:00     001                    
*                                                                               
*  CETTE PETITE PROCEDURE  CALCULE LA FACTORIELLE D'UN NOMBRE ENTIER            
*                                                                               
DEBPROC   FACTORIE I*ENTIER   ;                                                 
*                                                                               
SI (I &lt;EG 0) ;                                                                  
    RESULTAT=1;                                                                 
SINON;                                                                          
    RESULTAT=  FACTORIE(I-1)*I;                                                 
FINSI;                                                                          
*                                                                               
  FINPROC  RESULTAT;