PASCAL 选择结构

来源:百度知道 编辑:UC知道 时间:2024/05/23 13:28:40
pascal中的if then 语句
我知道then 后面只能跟一个语句的
有没有什么办法使得then后跟2个句子
例子
var a,b,c:integer;
begin
a:=5; b:=8; c:=9
if a>b and a>c
then 在这里我想用两个语句 但是语法规定只能用一个
有没有什么其他方法可以达到这个效果...

或者这么说 就是为了解决这个问题
输入a,b,c三个不同的数,将它们按由小到大的顺序输出。

不要用那些排序算法```涉及到数组什么的 仅用选择结构以前的知识
麻烦会的人耽误几分钟 帮我写下 或者说下构思也可以

输入三个数,由小到大输出,其实这样的题目老师可能是让你用交换来完成,例如:
var a,b,c,t:integer;
begin
readln(a,b,c);
if a>b then begin t:=a;a:=b;b:=t;end;
if a>c then begin t:=a;a:=c;c:=t;end;
if b>c then begin t:=b;b:=c;c:=t;end;
writeln(a,' ',b,' ',c);
end.