fa1.txt

编译方法课程设计PL0词法分析

const a:=10;
* * * *  ! 1
var b,c;
   procedure p;
   begin
      c:=b+a
   end;
begin
   read(b);
   while b<>0 do
* * * *  !24
   begin
      call p;
      write(2*c);
      read(b)
   end
end.