test2.pas

一个pascal编译器,其中编译模块是独立的,可以进行任何slr语法分析,这个编译器还在实现中,目前已经完成到生成中间文件.

program pp;
  var n,p;
procedure p1(s,t);
  var in_proc;
begin
   if s<=1 then t:=1 else
     begin
       call p1(s-1,t);
       t:=s*t
     end
end;
begin
  read(n);
  call p1(n,p);
  write(p)
end.