A voir également:
- Tri par permutation en c
- Excel trier par ordre croissant chiffre - Guide
- Logiciel tri photo - Guide
- En cours de traitement sur le site de tri local ✓ - Forum Réseaux sociaux
- &Quot;Votre colis est arrivé sur son site de distribution", cad ? ✓ - Forum Consommation & Internet
- Le fichier à télécharger contient une liste de chats. triez-la comme dans le tableau ci-dessous (attention, on ne voit que le début…). quel est le mot formé par les 8 dernières lettres de la colonne code ? - Forum Word
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.