text.txt

来自「~~~ ~~在编译原理实验中,用Delphi实现词法分析的实现」· 文本 代码 · 共 16 行

program example1;
var
 a,b,c:integer;
 x:char;
begin
 if(a+c*3>b)and(b>3) then c:=3;
 x:=2+(3*a)-b*c*8;
 for x:=1+2 to 3 do
 b:=100;
 while a>b do
 c:=5;
 repeat a:=10;
until a>b;
end.