Question

Hãy viết chương trình sắp xếp 3 số a, b, c theo chiều tăng dần. Trong đó sử dụng thủ tục hoandoi có 2 tham số truyền vào. Biết a, b, c được nhập từ bàn phím

Answer 1

uses crt;
var a,b,c:integer;
{-----------------------------chuong-trinh-con----------------------------}
procedure hoandoi(var x,y:integer);
var tam:integer;
begin
tam:=x;
x:=y;
y:=tam;
end;
{-----------------------------chuong-trinh-chinh----------------------------}
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
if a>b then hoandoi(a,b)
else if b>c then hoandoi(b,c);
writeln(a,' ',b,' ',c);
readln;
end.