test1.txt

来自「编译原理中的语法分析」· 文本 代码 · 共 13 行

program p;
var a,b:integer;
c:array[1..7] of integer;{有数组的情况}
procedure p1;{分程序}
begin
a:=4;{赋值}
while a<1  do a:=a-1;{循环,关系}
if a<1 then b:=a+2 else b:=3;{条件}
c[b]:=a*(b+5)
end;{分程序结束}
begin{主程序的复合语句}
a:=5;
end.