test3.pas

来自「一个pascal编译器,其中编译模块是独立的,可以进行任何slr语法分析,这个编」· PAS 代码 · 共 31 行

program test;
var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u;
procedure f1(a,b,c);
begin
c:=101
end;
procedure f2;
begin
d:=42
end;
begin
a:=23;
begin
 if b<c then
  d:=e;
 if g<>h then
  k:=l
 else
  k:=m;
 while n=1 do
  n:=o+1;
 for q:=4+5 step 3-1 until 1999 do
  p:=-r+(s+t)/u
end;
call f1(a,b,c);
call f2;
read(i);
read(i,j);
write(i);
write(i,j)
end.