pascal中用if复合语句或并列语句做这道题
答案:3 悬赏:40 手机版
解决时间 2021-03-21 08:59
- 提问者网友：寂寞撕碎了回忆
- 2021-03-21 02:59
pascal中用if复合语句或并列语句做这道题
最佳答案
- 五星知识达人网友：鱼芗
- 2021-03-21 03:45
var
a,b,c,d:longint;
begin
readln(a,b,c);
if b>a then begin
d:=b;b:=a;a:=d;
end;
if c>a then begin
d:=c;c:=a;a:=d;
end;
if c>b then begin
d:=c;c:=b;b:=d;
end;
writeln(a,' ',b,' ',c);
end.
a,b,c,d:longint;
begin
readln(a,b,c);
if b>a then begin
d:=b;b:=a;a:=d;
end;
if c>a then begin
d:=c;c:=a;a:=d;
end;
if c>b then begin
d:=c;c:=b;b:=d;
end;
writeln(a,' ',b,' ',c);
end.
全部回答
- 1楼网友：孤独的牧羊人
- 2021-03-21 04:55
用链表吧。建个数组，写个循环，如果到了指定数字，就把这位的值赋成1（就是把三个数当成数组下标，循环到这三个数，就把这个a[i]赋成1作为标记），最后downto循环，值为1的输出
- 2楼网友：往事隔山水
- 2021-03-21 04:43
var
__a,b,c,t:longint;
procedure swap(var x,y:longint);
__begin
____t:=x; x:=y; y:=t;
__end;
begin
__readln(a,b,c);
__if b
end.
__a,b,c,t:longint;
procedure swap(var x,y:longint);
__begin
____t:=x; x:=y; y:=t;
__end;
begin
__readln(a,b,c);
__if b
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯