pascal case语句问题

Answer 1

当使用Pascal编程时，遇到需要使用case语句的情况，可以这样重新组织代码以提高可读性。首先，定义变量x、y和id为整数类型：

在Pascal中，我们可以这样重写case语句：

var x, y, id: Integer;

如果x小于0，id的值为0；否则，根据x的范围设定id的值：

begin

if x < 0 then

id := 0;

else if x >= 0 and x < 10 then

id := 1;

else if x >= 10 and x < 20 then

id := 2;

else if x >= 20 and x < 40 then

id := 3;

else if x >= 40 then

id := 4;

接下来，根据id的值设置y的值：

case id of

0: y := 0;

1: y := x;

2: y := 10;

3: y := -0.5 * x + 20;

4: y := -2 * x + 40;

end;

最后，输出y的值：

writeln(y);

end.

这段代码清晰地展示了根据x的不同范围，如何根据case语句给变量y赋值。