test2.pls

这是我们的一个上机题,做词法分析和语法的,希望对大家的学习有所帮助

program pp;
var a, b, c, d, e, f, g, h:integer;
procedure proc();
begin
 call write(1);
end;
 
begin
 a :=0;
 b :=1;
 c :=2;
 d:=3;
 e:=4;
 f:=5;
 g:=6;
 h:=7;
 
 c := a+b;
 
 call write(a);
 call write(b);
 call write(c);
 call write(d);
 call write(e);
 call write(f);
 call write(g);
 call write(h)
 
end.