Svp votre aide en pascal
Fermé
kbibi99
Messages postés
13
Date d'inscription
mardi 6 septembre 2011
Statut
Membre
Dernière intervention
23 avril 2012
-
22 sept. 2011 à 13:37
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 22 sept. 2011 à 14:24
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 22 sept. 2011 à 14:24
A voir également:
- Svp votre aide en pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Pascal veut modifier une photo mais c’est la visionneuse d’images qui l’ouvre. que doit-il choisir pour l’ouvrir avec son logiciel de traitement d’image ? - Forum Windows
- Uses crt pascal - Forum Pascal
- Dev-pascal - Télécharger - Édition & Programmation
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
Modifié par KX le 22/09/2011 à 14:35
Modifié par KX le 22/09/2011 à 14:35
Ta fonction devra remplacer toute cette partie de ton code :
Une fois la vérification sur x obtenue tu parcours ton tableau de j=1 à i-1 pour comparer x avec t[j].x si ils sont égaux tu redemandes à saisir une autre valeur.
Remarque : il est d'usage d'utiliser des constantes et des types dans les programmes, en particulier pour définir les tableaux !
La confiance n'exclut pas le contrôle
repeat
writeln('donner le numéro de ton CIN');
readln(cin);
str(cin,x);
until length(x)=8;
Une fois la vérification sur x obtenue tu parcours ton tableau de j=1 à i-1 pour comparer x avec t[j].x si ils sont égaux tu redemandes à saisir une autre valeur.
Remarque : il est d'usage d'utiliser des constantes et des types dans les programmes, en particulier pour définir les tableaux !
const NMAX = 10;
type Intervalle = [1..NMAX];
type Tableau = array[Intervalle] of Cara;
function lireX(var tab:Tableau; i:Intervalle):String;
var entier,code:Integer;
begin
write('Numéro de CIN : ');
readln(result);
// tests de valeur
val(result,entier,code);
if length(result)<>8 or code<>0 or entier<0
begin
writeln('Le numéro de CIN doit être composé de 8 chiffres');
result:=lireX(tab,i);
exit;
end;
// tests d'unicité
for ...
end;
La confiance n'exclut pas le contrôle