写一个包含赋值,引用(动态和静态),if,then,while,loop,case,以及+ - * / = 等语句的good.cl文件
时间: 2024-01-04 07:03:36 浏览: 25
以下是一个包含赋值,引用(动态和静态),if,then,while,loop,case,以及+ - * / = 等语句的good.cl文件的示例代码:
```
program Good;
var
x: integer;
y: integer;
z: integer;
i: integer;
arr: array[1..5] of integer;
begin
x := 1;
y := 2;
z := x + y;
writeln(z); // 输出3
i := 1;
while i <= 5 do
begin
arr[i] := i * 2;
i := i + 1;
end;
for i := 1 to 5 do
begin
writeln(arr[i]); // 输出2 4 6 8 10
end;
case z of
1: writeln('z = 1');
2: writeln('z = 2');
3: writeln('z = 3');
else writeln('z is not 1, 2 or 3');
end;
if z > 3 then
writeln('z is greater than 3')
else
writeln('z is not greater than 3');
repeat
x := x + 1;
writeln(x);
until x = 5; // 输出2 3 4 5
x := 10;
if x < 5 then
y := 2
else if x < 10 then
y := 5
else
y := 10;
writeln(y); // 输出10
x := 5;
y := 2;
z := x * y;
writeln(z); // 输出10
x := 10;
y := 2;
z := x / y;
writeln(z); // 输出5
x := 10;
y := 2;
z := x - y;
writeln(z); // 输出8
arr[1] := 10;
arr[2] := 20;
arr[3] := 30;
arr[4] := 40;
arr[5] := 50;
writeln(arr[1] + arr[2]); // 输出30
x := arr[3];
writeln(x); // 输出30
end.
```