test3.txt

来自「编译原理语法分析程序」· 文本 代码 · 共 8 行

program example4;
var A,B,C,D:integer;
begin
A:=1;B:=5;C:=3;D:=4;
while A<C and B>D do
if A=1 then C:=C+1 else
while A<=D do A:=A*2
end.