boucle fantaisiste Turbo Pascal Résolu/Fermé

Question

Bonjour,
Voici mon petit programme en Turbo Pascal et les résultats que je ne comprends pas.  Il consiste à faire rentrer 8 lettres d'alphabet puis de les afficher :

program mots ;

var
tirage : array[1..8] of char ;
ensemble : string ;
i : integer ;

begin
i := 1 ;
while i < 9 do
begin
writeln('Lettre ',i,' : ');
read(tirage[i]);
ensemble := ensemble + tirage[i];
i := i + 1 ;
end;
writeln('Les lettres sont : ',ensemble);
end.

-------------- résultat :

Je ne peux entrer que trois lettres puis le programme s'interrompt et affiche :

Lettre 1 : 
a
Lettre 2 :
Lettre 3 :
Lettre 4 :
b
Lettre 5 :
Lettre 6
Lettre 7 :
c
Lettre 8 :
Les lettres sont : a
b
c

-------------------------

Comment s'explique le fait que la boucle n'est proposée que 3 fois plutôt que 8 ?
Comment s'explique le fait que la boucle ne s'exécute qu'une fois sur 3 ?

Je vous remercie de m'éclairer et bon dimanche.

kwaio · Answer

ok j'ai résolu le pb :

1) ajouté "uses wincrt" après "program..."
2) change le type de la variable tirage en string (array[....] of char = string ^^)
3) changé la boucle en boucle for (c'est juste plus propre)
4) C'estc e qui a résolu le pb, étrangement :

write('Lettre ',i,' : ');
readln(tirage[i]);

au lieu de writeln()...read()...
Je sais c'est bizarre...

dimi3 · Answer

Merci de votre rapide réponse.
Cette ligne me donne l'erreur suivante :

Error 15 : File not found (wincrt.tpu).

kwaio · Answer

ca dépends du compilateur, oublies wincrt ^^

J'ai édité mon 1er message relisez le

Sandrine · Answer

Bonjour,

A vue de nez, cela ressemble a un probleme classique d'entree-sortie.
Je ne me souviens plus tres bien comment fonctionne Pascal mais je te suggere de remplacer read par readln.
Il s'agit de "manger" les caracteres sauts de ligne 
.

Sandrine

PS: et sous windows, ije crois qu'il y en a 2 (nouvelle ligne et fin de ligne)...

kwaio · Answer

D'ailleurs, ta variable tirage, a moins d'etre réutilisée, ne sert à rien.
une simple variable char réutilisée à chaque itération aurait marché

dimi3 · Answer

Merci,
Le script corrigé fonctionne en effet. Mais j'aimerais placer mes lettres dans un tableau. Dois-je me résigner à abandonner cette folie ?

kwaio · Answer

Une chaine de caractère c'est un tableau. Ca comment à 1, mais en fait, dans chaine[0] il y a le nombre de caractères de la chaine...
Ca marche exactement pareil, tu peux remettre "array [1..8] of char;" si tu préfère.

kwaio · Answer

comment ça ?
C'est quoi comme éditeur ?

Personnellement j'utilise une vielle version de Turbo pascal for windows trouvée en TP d'info ^^

kwaio · Answer

Je ne l'ai trouvé nulle part sur le net.
Enfin, un ami me l'as mis sur son FTP, on l'a pompé sur les PC de l'école.
http://biomanred.free.fr/Turbo%20Pascal%20For%20Windows.zip

Attention  c't'un vieux programme, mais il marche bien
(ne pas oublier "uses wincrt;" en deuxieme ligne du programme)
Attention² Ctrl-C & co ne marchent pas, les raccourcis sont différents

hamdiamor · Answer

salut, tu modifies juste read par readln, !! c'est une histoire!!

program mots ;
uses wincrt;
var
tirage : array[1..8] of char ;
ensemble : string ;
i : integer ;

begin
i := 1 ;
while i < 9 do
begin
writeln('Lettre ',i,' : ');
readLN(tirage[i]);  {AU LIEU DE READ !!!!!!!!!!!!}
ensemble := ensemble + tirage[i];
i := i + 1 ;
end;
writeln('Les lettres sont : ',ensemble);
end.

kwaio · Answer

Mercid e lire la date.
Sujet résolu depuis 2 mois

hamdiamor · Answer

ahhhhhhhhhhhhhh! 
je me réalise...
merci pour la réponse!

Boucle fantaisiste Turbo Pascal

12 réponses

Discussions similaires