Free pascal有关case的用法

发布网友 发布时间：2024-10-23 21:18

我来回答

共4个回答

热心网友 时间：2024-11-13 19:13

不仅仅是case错了，if后面也错了
program exam1;
var
x,n:integer;
begin
write('x= ');
readln(x);
if (x<=100) and (x>=0) then n:=1;
if 100<x then n:=2;
case n of
1:writeln('ok');
2:writeln('no');
end;
readln;
end.

给出如下意见：
1.case结束后要加end;
2.布尔表达式的写法需要学习下，你那种有传递性的表达式是错的。但是不能绝对地说一个表达式中只能出现一个等号，因为有时候又可以写好几个等号、不等号，但是意义完全不是你平时想的那样。所以这块知识你需要好好学习下。

热心网友 时间：2024-11-13 19:10

这个
case n of

end;
才对
记得case 完了也要end；

热心网友 时间：2024-11-13 19:16

if 0<=x<=100 then n:=1;
这里不能这么用
只能一个一个的：IF (X>=0) AND (X<=100) THEN N:=1
明白？
还有case 虽然不用BEGIN，但必须有一个END;

热心网友 时间：2024-11-13 19:16

program exam1;
var
x,n:integer;
begin
write('x= ');
readln(x);
if 0<=x<=100 then n:=1;
if 100<x then n:=2;
case n of
1:writeln('ok');
2:writeln('no');
end;
readln;
end.

热心网友 时间：2024-11-13 19:10

不仅仅是case错了，if后面也错了
program exam1;
var
x,n:integer;
begin
write('x= ');
readln(x);
if (x<=100) and (x>=0) then n:=1;
if 100<x then n:=2;
case n of
1:writeln('ok');
2:writeln('no');
end;
readln;
end.

给出如下意见：
1.case结束后要加end;
2.布尔表达式的写法需要学习下，你那种有传递性的表达式是错的。但是不能绝对地说一个表达式中只能出现一个等号，因为有时候又可以写好几个等号、不等号，但是意义完全不是你平时想的那样。所以这块知识你需要好好学习下。

热心网友 时间：2024-11-13 19:14

这个
case n of

end;
才对
记得case 完了也要end；

热心网友 时间：2024-11-13 19:09

program exam1;
var
x,n:integer;
begin
write('x= ');
readln(x);
if 0<=x<=100 then n:=1;
if 100<x then n:=2;
case n of
1:writeln('ok');
2:writeln('no');
end;
readln;
end.

热心网友 时间：2024-11-13 19:10

if 0<=x<=100 then n:=1;
这里不能这么用
只能一个一个的：IF (X>=0) AND (X<=100) THEN N:=1
明白？
还有case 虽然不用BEGIN，但必须有一个END;