UC知道PASCAL 选择结构的问题
来源：百度知道 编辑：UC知道 时间：2024/06/14 08:16:17
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三个不同的数，将它们按由小到大的顺序输出。
不要用那些排序算法```涉及到数组什么的 仅用选择结构以前的知识
麻烦会的人耽误几分钟 帮我写下 或者说下构思也可以
我知道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三个不同的数，将它们按由小到大的顺序输出。
不要用那些排序算法```涉及到数组什么的 仅用选择结构以前的知识
麻烦会的人耽误几分钟 帮我写下 或者说下构思也可以
if （a>b） and （a>c）{注意要括号，你原来那样是编译不过的}
then
begin
语句;
语句;
语句;
{想有多少多可以的}
end
if （a>b） and （a>c）{注意要括号，你原来那样是编译不过的，因为and的优先级比>,<先}
then
begin-----
语句1;
语句2;
语句3;
......
语句n；
end -----（加“begin end”即可）
program test(input,output);
var
a,b,c,t:integer;
procedure change(var x,y:integer);
var
t:integer;
begin
t:=x;
x:=y;
y:=t;
end;
begin
readln(a,b,c);
if a>b then
change(a,b);
if b>c then
change(b,c);
if a>b then
change(a,b);
writeln(a,' ',b,' ',c);
end.
用begin ..end;括起来就可以了