Turbo pascal {$I-}
Fermé
Titouan
-
3 sept. 2008 à 11:37
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 23 sept. 2008 à 13:19
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 23 sept. 2008 à 13:19
A voir également:
- Turbo pascal {$I-}
- Turbo pascal download - Télécharger - Édition & Programmation
- I tréma - Forum Windows
- Ï majuscule - Guide
- Iphone turbo sim inconvénient - Forum iPhone
- "Shutdown -i" ✓ - Forum Windows
1 réponse
KX
Messages postés
16668
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2023
3 005
22 sept. 2008 à 13:19
22 sept. 2008 à 13:19
IOresult est l'abréviation de Input Output result
{$I-} et {$I+} ne sont utiles que pour la gestion des erreurs lors de traitement de fichiers
Pour ton problème il vaudrait mieux faire quelquechose dans ce genre là :
{$I-} et {$I+} ne sont utiles que pour la gestion des erreurs lors de traitement de fichiers
Pour ton problème il vaudrait mieux faire quelquechose dans ce genre là :
function DemanderNombre:integer;
var s:string; n,code:integer;
begin
write('Taper un nombre : ');
readln(s); // ici on peut récupérer chiffres, lettres, ou mélange des deux
val(s,n,code); // la valeur de code est égale à la position
// du 1er caractère qui n'est pas un chiffre
writeln(code);
if code=0 then result:=n // on recommence si nécessaire
else result:=DemanderNombre;
end;
23 sept. 2008 à 13:19
function DemanderNombre:integer; var s:string; n,code:integer; begin write('Taper un nombre : '); readln(s); // ici on peut récupérer chiffres, lettres, ou mélange des deux val(s,n,code); // la valeur de code est égale à la position // du 1er caractère qui n'est pas un chiffre if code=0 then result:=n // on recommence si nécessaire else result:=DemanderNombre(); end;