A voir également:
- Tri par permutation en c
- Tri excel - Guide
- Logiciel de tri de photos - Guide
- Excel tri par date ne fonctionne pas ✓ - Forum Excel
- Erreur de tri dans l'agence de distribution ✓ - Forum Consommation & Internet
- Tri automatique excel sans macro ✓ - Forum Excel
1 réponse
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.
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.
