Correction d'un algorithme

Salut , chui débutant .. sans se moquer lol ...
Voila mon devoir , j'espere avoir des réponses dans peu de temps car c demain a 10h le devoir .. c un ptit test pour réviser

Soit l'algorithme suivant
...

..

.

1-Traduire cet algorithme en Turbo Pascal
2-Donner le role de cet algorithme
3-changer la boucle intérieure de l'instruction 5 par la boucle répéter
4-Changer la boucle pour de l'instruction 2 par la boucle repeter

voila mon travail

Code:

---

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

program devoir; uses wincrt; var n,aux,i,j:integer; t:array[0..100] of real; begin repeat writeln('donner n'); readln(n); until n>3; for i := 1 to n do writeln('donner t[',i,']'); readln(t[i]); writeln('le tableau initial est :'); for i := 1 to n do writeln('t[',i,']=',t[i]); for i := 1 to n-1 do for j := i+1 to n do if t[i]>t[j] then aux:=t[i]; (lerreur) t[i]:=t[j]; t[j]:=aux; writeln('le tableau final est :'); for i := 1 to n repeat writeln('t[',i,']=',t[i]); end.

---

1-c koi cette erreur
2-si je change les boucles (question 3&4) y'aura quoi comme changement
merci a vous d'avance

Bonjour coder
Pour commencer ça serait bien de ta part de bien ecrire du français et apres de bien indenteer ton code ;)
T'inquietes pas on n'est pas la pour se moquer mais pour apprendre ;)

Citation:

---

Soit l'algorithme suivant
...
..
.

---

c'est ça l'algorithme 8O, Si on n'a pas l'algo comment on fait pour savoir que tu as bien traduit :P ?
Moi je vois juste un programme
-qui lit les elements dans un tableau
-affiche le tableau d'elements
-effectue un tri mais tel que tu l'as fait dans ce code aucune chance d'avoir un tri
-affiche un tableau trié mais ne le fera pas parce que le compilateur ne comprendra pas ce que tu lui demande à la fin 8-)
Si tu veux qu'un bloc d'instructions soit executé apres un "if" par exemple il faut mettre ce bloc d'instruction entre une "begin" et un "end" et de plus mettre la condtion entre parenthese concernant le "if"

Code:

---

1 2 3 4 5 6 7 8 9

for i := 1 to n-1 do for j := i+1 to n do if (t[i]>t[j]) then begin aux:=t[i]; (*lerreur*) t[i]:=t[j]; t[j]:=aux; end;

---

Que cherches-tu à faire ici ?

Code:

---

1 2 3

for i := 1 to n repeat writeln('t[',i,']=',t[i]);

---

le "repeat" s'est glisser ou quoi? ;)
1-Alors pour comprendre cette erreur dis-nous ce que ton compilateur dis :P
2- Les boucles ne modifient pas le fonctionnnement d'un programme les diffferentes sortes de boucles font la meme chose mais sont employé differemment et d'autres sont a preferer a certaines suivant la situations,par exemple une boucle comme "while" a toujours sa place mais faut voir ,
Si on te le demande c'est sûrement pour que tu apprennes l'utilisation des boucles 8-)
@+

Tu n' a jamais vu l' aminal begin ou quoi ?

Citation:

---

for i := 1 to n do
writeln('donner t[',i,']');
readln(t[i]);

---

Code:

---

1 2 3 4 5 6

for i := 1 to n do begin writeln('donner t[',i,']'); readln(t[i]); end;

---

Si tu veux de l' aide, montre nous l' algorithme. Sans ça on ne peut pas deviner ce qu' on te demande réellement.
Je ne vois pas les repeat que tu as mis dans le programme à la place de for. A moins ça soit :

Citation:

---

for i := 1 to n repeat
writeln('t[',i,']=',t[i]);

---

Si c' est ça, il faut preparer deux litres de café bien chaud car tu en auras besion si tu veux réussir à l' examen de demain.