Télécharger factorie.procedur

Retour à la liste

Numérotation des lignes :

  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;
  14.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales