Je rencontre un problème que je ne comprends pas:
je fais une boucle while toute simple (enfin je pensais) pour remplir un tableau contenant des noms et à terme d'autres informations.
voici:
Le problème est que lors du deuxième passage dans la boucle while l'instruction "readln(t[n].nom);" n'est pas prise en compte, je n'arrive pas à entrer un autre nom. Je ne comprends pas??
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33 program test; uses wincrt; type personne=record nom:string; prenom:integer; end; tabEtudiant= array[1..100] of personne; var i,n:integer; t:tabEtudiant; procedure saisiePersonne(var n:integer; var t:tabEtudiant); var i,encore:integer; begin encore:=1; n:=0; while encore=1 do begin n:=n+1; writeln('Entrez le nom numero ',n,' : '); readln(t[n].nom); writeln('voulez vous continuer? oui (1) non (0)'); read(encore); end; end; begin saisiePersonne(n,t); end.
Si vous avez une idée merci.
Partager