teen9xquan
...............................
Posts : 10
Points : 102312
Thanked : 0
Gia nhập: : 20/11/2010
 |  Tiêu đề: Bài 3 nè chết quá! 4/23/2011, 19:54 | |
| |
|
admin
................................
Thú nuôi : 
Posts : 449
Points : 104059
Thanked : 4
 Gia nhập: : 07/11/2010
Tuổi : 31
Đến từ : Gần nhà Tề Thiên
| | Tiêu đề: Re: Bài 3 nè chết quá! 4/24/2011, 20:54 | |
|  | |  |  | Nếu đề cho số thực thì dùng ''real'', không thì đổi lại :
- Code:
-
program baitap;
var a,b,c:real;
procedure nhap;
begin
write(' nhap a,b,c=');
readln(a,b,c);
end;
procedure xuli;
var tg:real;
begin
if a>b then
begin
tg:=a;a:=b;b:=tg;
end;
if a>c then
begin
tg:=a;a:=c;c:=tg;
end;
if b>c then
begin
tg:=b;b:=c;c:=tg;
end;
end;
procedure xuat;
begin
write('3 so sau khi doi cho:',a:10:2,b:10:2,c:10:2);
readln;
end;
begin
nhap;
xuli;
xuat;
end. | |  | |  | |
|
Đăng ký 
Viết thủ tục đổi chỗ hai số. Sau đó dùng để viết chương trình sắp xếp ba số a,b,c theo thứ tự tăng dần ???????????? 
