ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal

[you92cef]

المشاركة الأصلية كتبت بواسطة AKKAINMOH

السلام عليكم اريد صنع هذه العملية باستعمال لغة pascal


Ecrire un programme qui permet de trier trois nombres entieres en utilisant une procédure trie qui reçoit en entrée trois entiers puis ellle les retourne triés

vous pouver changer les commaintre

program sol;
uses wincrt;
var a,b,c,grand,moyen,petit:integer;
function trie(a,b,c:integer):integer;
begin
if a>b then if b>c then begin
                        grand:=a;
                        moyen:=b;
                        petit:=c;
                        end
            else if a>c then begin
                             grand:=a;
                             moyen:=c;
                             petit:=b;
                             end
                  else begin
                       grand:=c;
                       moyen:=a;
                       petit:=b;
                       end
else if a>c then begin grand:=b;
                 moyen:=a;
                 petit:=c;
                 end
     else if b>c then begin grand:=c;
                      moyen:=c;
                      petit:=a;
                      end
          else begin grand:=c;
               moyen:=b;
               petit:=a;
               end;

writeln('grand:',grand);
writeln('moyen:',moyen);
writeln('petit:',petit);
end;
begin
writeln('entrer 3 valeur');
read(a);
read(b);
read(c);
write(trie(a,b,c));
end.