Cho 3 số nguyên a và b nhập từ bàn phím Hãy viết chương trình Pascal để sắp xếp và in 3 số đó ra màn hình theo thứ tự không can hãy viết tả mô tả thuật toán và xác định bài toán

uses crt;

var a,b,c:integer;

begin

clrscr;

write ('Nhap a: '); readln(a);

write ('Nhap b: '); readln(b);

write ('Nhap c: '); readln(c);

if a<b then

begin

if a<c then

if b<c then write (a,', ',b,', ',c) else write (a,', ',c,' ',b)

else write (c,', ',a,'  ',b);

end

else

begin

if b>c then write (a,', ',b,', ',c)

else

if a>c then write (b,', ',c,', ',a) else write (b,', ',a,', ',c);

end;

readln;

end.

Xác định:

Nhập vào: ba số nguyên a, b, c

Xuất ra: thứ tự tăng dần của a, b, c

Thuật toán:

if a<b then

begin

if a<c then

if b<c then write (a,', ',b,', ',c) else write (a,', ',c,' ',b)

else write (c,', ',a,'  ',b);

end

else

begin

if b>c then write (a,', ',b,', ',c)

else

if a>c then write (b,', ',c,', ',a) else write (b,', ',a,', ',c);

end;

Mô tả:

nếu a <b thì

bắt đầu

nếu a <c thì

nếu b <c thì viết (a, ',', b, ',', c) còn lại viết (a, ',', c, '', b)

còn lại viết (c, ',', a, '', b);

chấm dứt

còn lại

bắt đầu

nếu b> c thì viết (a, ',', b, ',', c)

còn lại nếu thì viết (b, ',', c, ',', a) còn lại viết (b, ',', a, ',', c);

chấm dứt;