Discussion :

[nsbt14]

Bonjour tout le monde
j'ai un exercice pour trier 3 nombres avec les structures conditionnelles simples avec le langage PASCAL

prière de m'aider car j'ai des problèmes dans la compilation. Merci

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
26
27
28
29
30
31
32
33
34
35
36
37
program ex1;
uses wincrt;
 
var
a,b,c:integer;
 
 
begin
 
writeln('donner premier nombre  a  ');
read(a);
writeln('donner premier nombre  b  ');
read(b);
writeln('donner premier nombre  c  ');
read(c);
 
 
    if(a>b) and (a>c) and    then
	          if (b>c) then
                          writeln('  les nombres tries sont    ',a,b,c)
                    else
 
                          writeln('les nombres tries sont   ',a,c,b);
                       if (b>a) then
 
                       writeln('les nombres tries sont   ',b,c,a)
            else
 
                  writeln('les nombres tries sont   ',b,a,c);
 
                    if(b<a) then
                       writeln('les nombres tries sont   ',c,a,b)
 
                        else
                    writeln('les nombres tries sont  ',c,b,a);
                    end;
end.

[e-ric]

Salut

j'écris le programme (que je n'ai pas testé), ça ira plus vite , compare les deux codes source pour analyser les différences. En résumé, il faut utiliser quelques begin et end et ne pas utiliser and sans rien derrière.

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
26
27
28
29
30
31
32
33
34
35
36
37
 
program ex1;
uses wincrt;
 
var
a,b,c:integer;
 
 
begin
 
writeln('donner premier nombre  a  ');
read(a);
writeln('donner premier nombre  b  ');
read(b);
writeln('donner premier nombre  c  ');
read(c);
 
{ L'idée : on détermine l'ordre de a et b puis on cherche la position de c par rapport à a et b} 
if (a < b) then begin
  if (c <= a) then
    writeln('  les nombres tries sont    ',c,a,b)
  else if (b <=  c) then
    writeln('  les nombres tries sont    ',a,b,c)
  else
    writeln('  les nombres tries sont    ',a,c,b);
end
else begin
  { on a (b <= a) }
  if (a <= c) then
    writeln('  les nombres tries sont    ',b,a,c)
  else if (c <=  b) then
    writeln('  les nombres tries sont    ',c,b,a)
  else
    writeln('  les nombres tries sont    ',b,c,a);
end;
 
end.

Ton code est mal structuré et difficile à comprendre surtout en regard du problème à traiter, imagine que l'on te demande de trier 5 valeurs ...
Tu devrais utiliser une procédure ne traitant que du tri des valeurs à proprement parler, l'emploi d'un tableau seraient je pense pus simple mais cela dépend de l'énoncé.

tchüss

[nsbt14]

merci vous êtes gentil!

[nsbt14]

Le problème c'est qu'on n'a pas étudié encore les tableaux ni le tri monsieur!