Discussion :

[coder]

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 :

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

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

[krachik]

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

Soit l'algorithme suivant
...
..
.

c'est ça l'algorithme , Si on n'a pas l'algo comment on fait pour savoir que tu as bien traduit ?
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
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 :

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

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 :

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

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
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
@+

[darrylsite]

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

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

Code :

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

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 :

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.