如何用pascal语言表示“输入a,b,c三个不同的数，将它们按由小到大的顺序输出。”？
答案:2 悬赏:20 手机版
解决时间 2021-05-12 11:25
- 提问者网友：放下
- 2021-05-11 21:49
如何用pascal语言表示“输入a,b,c三个不同的数，将它们按由小到大的顺序输出。”？
最佳答案
- 五星知识达人网友：封刀令
- 2021-05-11 22:12
晕，我郁闷，楼上的都想把新手绕晕啊？简单问题复杂化！！！
PROGRAM MM（INPUT，OUTPUT）；
VAR A，B，C，D：REAL；
BEGIN
READLN（A，B，C）；
IF A<B THEN BEGIN D:=A; A:=B; B:=D; END;
IF A<C THEN BEGIN D:=A; A:=C; C:=D; END;
IF B<C THEN BEGIN D:=B; B:=C; C:=D; END;
WRITELN(A,B,C);
END.
全部回答
- 1楼网友：等灯
- 2021-05-11 22:39
var
a,b,c:integer;
procedure swap(var a,b:integer);
var t:integer;
begin
t:=a; a:=b; b:=t;
end;
begin
readln(a,b,c);
if(a>b) then swap(a,b);
if(a>c) then swap(a,c);
if(b>c) then swap(b,c);
writeln(a,' ',b,' ',c);
readln;
end.
如果需要解释，请看这个地址：
http://wenwen.soso.com/z/q165437820.htm
是我回答过的相似问题，虽然语言不通，不过思想是一致的。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯