test5.txt

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

program example5;
var A,B,C,D:integer;
begin
A:=5;B:=4;C:=3;D:=2;W:=1;
if W>=1  A:=B*C+B/D
else repeat A:=A+1 until A<0
.