Télécharger @lireent.procedur

Retour à la liste

Numérotation des lignes :

  1. * @LIREENT PROCEDUR AM1 92/10/29 21:15:09 734
  2. *
  3. *--------------------------------------------------------------------
  4. DEBPROC @LIREENT UMIN*ENTIER UMAX*ENTIER ;
  5. *--------------------------------------------------------------------
  6. *
  7. * LEGGE UN VALORE INTERO COMPRESO TRA UN MINIMO ED UN MASSIMO
  8. *
  9. *--------------------------------------------------------------------
  10. * ENEA MILIOZZI A. 14-07-89
  11. *--------------------------------------------------------------------
  12. *
  13. REPETER BLOC1 ;
  14. OBTENIR FL*ENTIER ;
  15. SI (( >EG FL UMIN) ET ( <EG FL UMAX)) ;
  16. QUITTER BLOC1 ;
  17. FINSI ;
  18. MESSAGE ' DONNER UN NUMERO ENTRE ' UMIN ' ET ' UMAX ;
  19. FIN BLOC1 ;
  20. *
  21. FINPROC FL ;
  22.  

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