pascal tri par permutation Fermé

Question

svp qui peut m'ecrire l'algorithme de tri par permutation.

Delphine · Answer

Voilà une solution  en pascal à ce problème

program classe_3;
uses wincrt;

var
a : DOUBLE;
b : DOUBLE;
c : DOUBLE;



begin

writeln('Ce programme va classer trois réels.');
write  ('Donnez le premier réel   : ');
readln (a);
write  ('Donnez le second réel    : ');
readln (b);
write  ('Donnez le troisième réel : ');
readln (c);

if (a<b)
then begin
     if (b<c)
     then begin
          writeln (a,'<',b,'<',c);
     end
     else begin
          if (c<a)
          then begin
               writeln (c,'<',a,'<',b);
          end
          else begin
               writeln (a,'<',c,'<',b);
          end;
     end;
end
else begin
     if (c<b)
     then begin
          writeln (c,'<',b,'<',a);
     end
     else  begin
          if (c<a)
          then begin
               writeln (b,'<',c,'<',a);
          end
          else begin
               writeln (b,'<',a,'<',c);
          end;
     end;
end;




readln();

end.

Pascal tri par permutation

1 réponse

Discussions similaires