Un programme qui ne fonctionne guère ...

Fermé
une fille - Modifié par une fille le 12/05/2014 à 22:47
tarek_dotzero Messages postés 817 Date d'inscription jeudi 19 juillet 2007 Statut Membre Dernière intervention 12 avril 2022 - 13 oct. 2014 à 23:47
Bonjour,


pouvez vous m'aider !!
voila l'exercice je sais que c'est banal mais quand même je suis encore débutante :(
exercice:
Ecrivez un programme qui reproduit 20 lignes successives contenant chacune votre nom et prénom voila ce que j'ai fais mais ça ne marche pas
program exercice;
uses wincrt;
var
l,nm:string;
n,i:integer;
begin
write('entrer le nom et le prenom ');
readln(nm);
l:='';
for i:=1 to 20 do
l[i]:= nm ;
writeln;
end.

1 réponse

tarek_dotzero Messages postés 817 Date d'inscription jeudi 19 juillet 2007 Statut Membre Dernière intervention 12 avril 2022 120
13 oct. 2014 à 23:47
"reproduit 20 lignes successives" : est ce que ça ne veut pas dire "affiche" par hasard?

Ainsi que la variable l n'est plus nécessiare, la boucle doit être


for i := 1 to 20 do
WriteLn(nm);


Et même dans le cas où vous voulez créer les 20 lignes et les sauvegarder sans les afficher, l doit être un tableau de chaîne de caractère, autrement vous ne pourrez pas écrire l[i].
0