Les structures de répétition - l'instruction FOR

bonsoir :D
j'ai besoin d'aide à un programme de l'instruction FOR et je suis perdu :(
je peut donner l'exo et mon solution :
établir un programme affichant des entiers de 5 en 5 depuis 1 jusqu'à 41.
code:

Code:

---

1 2 3 4 5 6 7 8 9 10

program entiers; var x,i :integer; begin x:=1; for i:=0 to 8 do x:=x+i*5; write('x=',x); readln; end.

---

et je sais que il faut mettre plusieurs instruction
merci d'avance:roll:

Xio,

Il faut mettre un bloc Begin End; pour ta boucle For, sinon seule l'instruction qui la suit est exécutée.

Bonjour

Citation:

---

établir un programme affichant des entiers de 5 en 5 depuis 1 jusqu'à 41.

---

Meme en rajoutant les bloc Begin End; comme l'a dit droggo ton code est loin de faire ce que dit ton exercice.(Je te laisse corriger ça 8-),Indice :>> x:=x+i*5;)
mais je crois que ça ne ressort pas entierement ce que l'exercice voulait faire ressortir. (enfin si j'ai bien compris ce que demande l'exercice 8-) )
Quelque soit la structure repetitive que tu utilises il faut que ça parte de 1 à 41 sinon l'exercice ne l'aurait pas precisé
voila comment moi je vois ça

Code:

---

1 2 3 4 5 6 7 8 9

program entiers; var i :integer; begin for i:=1 to 41 do if (i mod 5 =0 ) then writeln(i); readln; end.

---

@+

bonsoir:)
merci à tous pour votre solution et aide:D
mais ça marche pas parceque il faut trouver dans l'exécution :
1 6 11 16 21 26 31 36 41
merci d'avance et Salem:king:

Xoe,

Tu as les éléments, à toi de corriger pour obtenir le bon résultat.

Comme toujours pour établir un algorithme, oublie le Pascal, et écris sur un papier, en clair, la démarche à suivre.

La programmation implique de réfléchir pour aboutir en ayant compris, donc en progressant.
Un copier/coller sur un forum peut donner le résultat, mais pas la compréhension. :)

salut:yaisse2:
merci monsieur drogo et je suis désolé parce que ton aide et marche et j'ai trouvé la solution merci beaucoup. et s'il vous plait donnez moi explication de l'utilisation de bloc begin,end pour la boucle
merci :D
:merci:

Code:

---

1 2 3 4 5

for X:= 0 to 100 do begin Instruction1; Instruction2; end;

---

ou bien

Code:

---

1 2	for X:=0 to 100 do Instruction1;

---

Si il n'y a qu'une seule instruction dans la boucle (écriture "raccourcie").