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