00038 vérifier RETOUR EN = RETOUR + ALLER EN vs. FAIRE POUR
Created by: Pascal J. Bourguignon
et tester:
ERREUR EN LIGNE 20 : NUMERO DE LIGNE INEXISTANT 20
PRET
LISTER A PARTIR DE 1
1 Y_&RAC(3,20);AFFICHER Y
2 Y_&RAC(-3,20);AFFICHER Y
3 TERMINER
20 AFFICHER 'Pas de racine réelle.'
21 TERMINER
100 PROCEDURE &RAC(ARG,ERRE) LOCAL ARG,ERRE
101 SI ARG<0 ALORS RETOUR EN ERRE
102 RESULTAT RAC(ARG)