菜鸟级问题 — 编程爱好者社区

主题：菜鸟级问题

bianchengcainiao [专家分：0] 发布于 2010-08-16 13:40:00

实在想不通，哪位大侠帮解决一下：
键盘输入3个数，按从小到大顺序输出。
用if语句来做，不要用循环。谢谢了。

本帖地址： http://bbs.pfan.cn/post/347638.html

回复列表（共4个回复）

沙发

小勇士来了 [专家分：220] 发布于 2010-08-17 13:46:00

READLN(A,B,C);
IF A>B THEN 交换；
IF A>C THEN 交换;
IF B>C THEN 交换;
交换你会写吧，
VAR ,BEGIN,END我没写了，
自己添上吧！

板凳

小勇士来了2 [专家分：850] 发布于 2010-08-17 13:49:00

VAR
A,B,C,D:INTEGER;
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.

3 楼

小勇士来了2 [专家分：850] 发布于 2010-08-17 13:50:00

错了，这个是对的
VAR
A,B,C,D:INTEGER;
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.

4 楼

bianchengcainiao [专家分：0] 发布于 2010-08-17 15:18:00

谢谢了。

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：菜鸟级问题

回复列表（共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：菜鸟级问题

回复列表 （共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共4个回复）