Discussion :

[step177]

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:

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.

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??

Si vous avez une idée merci.

[batyann811]

Sans avoir testé, j'ai dans l'idée qu'au 2eme tour de boucle et à tous les suivants tu récupère une chaîne vide pour le nom. Cette chaîne vide c'est le "end of line" de ta lecture de encore. Remplace le read(encore) par readln(encore) et ça devrait aller mieux.

[Modulpro]

Bonjour,

Lorsque vous dites "l'instuction n'est pas prise en compte", le programe affiche t-il la ligne suivante, ou sort-il de la boucle ?
Vous pouvez essayer, au lieu de faire une boucle "while" qui oblige l'initialisation de encore, de faire une boucle "repeat" de ce style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
repeat
//instructions de la boucle
until encore = 0;

Attention de plus à la déclaration de la variable locale i dans la procédure, qui masque la variable globale du même nom (possibilité de confusion)

Cordialement

[droggo]

Hia,

Une fois de plus, le problème est sans doute dû à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

read(encore);

Read ne lit pas le retour chariot, qui reste donc dans le buffer d'entrée ...

... et au prochain ReadLn, paf !!!

[step177]

Merci batyann811 t'as mis dans le mille. T'avais raison droggo.