[TP] Lecture de nombres : comment éviter les plantages ?

Bonjour.

Y-a-t-il en turbo pascal la possibilité d'éviter les plantages ? Je m'explique :

Soit par exemple le programme :

Code:

---

1 2 3 4 5 6

VAR x : REAL;   BEGIN WRITE('Entrez un nombre : '); READLN(x); END.

---

Si l'utilisateur entre un caractère au lieu d'un réel, le programme va planter. Je connais un Pascal autre que le turbo où on peut écrire :

Code:

---

1 2 3 4 5 6

WRITE('Entrez un nombre : ');   TRY READLN(x); RECOVER WRITELN('La valeur entrée n''est pas un nombre !');

---

Donc, si la lecture de x échoue, le programme éxécute la partie RECOVER.

Existe-t-il l'équivalent en turbo ?

I n'y a pas d'équivalent pour turbo pascal...

Si cela concerne seulement la conversion d'entiers à string, tu peux utiliser les codes d'erreur de la fonction val. Tu peux également regarder du côté des directives de compilations, il me semble qu'en jouant avec on peut eviter les erreurs d'exécution et gérer ainsi les messages d'erreur...

OK merci pour la réponse :wink:

Salut,


Pour les caractères, il y'a {$I-} et {$I+} conjugués avec IOResult qui donnent de bons résultats ( le programme se poursuit sans planter ).

Code:

---

1 2 3 4 5 6 7 8 9

{$i-} ReadLn ( x ); if ( IOResult <> 0 ) then begin { traitement de l'erreur} end {$i+} {...}

---