Controle de saisie, pascal
Résolu/Fermé
madgyl
Messages postés
3
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
7 juillet 2008
-
11 avril 2008 à 01:54
madgyl Messages postés 3 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 7 juillet 2008 - 11 avril 2008 à 13:03
madgyl Messages postés 3 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 7 juillet 2008 - 11 avril 2008 à 13:03
A voir également:
- Controle de saisie, pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Controle parental pc - Guide
- Test de recrutement opérateur de saisie ✓ - Forum Études / Formation High-Tech
- My pascal - Télécharger - Édition & Programmation
1 réponse
bonjour,
L'astuce pour controler la saisie de nombres en pascal, c'est de lire une chaine (et non un nombre) qu'on convertit ensuite en nombre si possible. Pour ça, on uitilise la procédure Val().
Val ( x, s, error ) ;
Procédure qui convertit la chaîne de caractère de nom s en un nombre (Integer ou Real) x et renvoie un code erreur error (de type integer) qui est égale à 0 si la conversion est possible.
Petit programme test:
Essaye d'entrer des lettres ou des nombres décimaux ou est entier hors intervalle.
A+.
L'astuce pour controler la saisie de nombres en pascal, c'est de lire une chaine (et non un nombre) qu'on convertit ensuite en nombre si possible. Pour ça, on uitilise la procédure Val().
Val ( x, s, error ) ;
Procédure qui convertit la chaîne de caractère de nom s en un nombre (Integer ou Real) x et renvoie un code erreur error (de type integer) qui est égale à 0 si la conversion est possible.
Petit programme test:
Program test;
uses crt;
Var
ok : boolean;
s : string;
n : integer;
err: integer;
Begin
ok:=false;
repeat
Writeln('Entrer un nombre entier compris entre 5 et 25');
readln(s);
val(s,n,err);
if ((err=0) and (n>=5) and (n<=25)) then ok:=true;
until ok ;
Writeln('Vous avez entré le nombre ', n);
readln;
END.
Essaye d'entrer des lettres ou des nombres décimaux ou est entier hors intervalle.
A+.
11 avril 2008 à 13:03
thanks ;-)