Discussion :

[Imanou]

bonsoir
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 :

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

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

[droggo]

Xio,

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

[krachik]

Bonjour

é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 ,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 )
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 :

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

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.

@+

[Imanou]

bonsoir
merci à tous pour votre solution et aide
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

[droggo]

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.

[Imanou]

salut
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

[M.Dlb]

Code :

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

1
2
3
4
5
for X:= 0 to 100 do
begin
   Instruction1;
   Instruction2;
end;

ou bien

Code :

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

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

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