t2.pl0

来自「pl0编译器,包括词法分析,语法语义分析,以及解释执行」· PL0 代码 · 共 21 行

var n,ret,data;       
  
procedure myproc; 
var save; 
begin 
  if n=1 then ret:=1; 
  if n>1 then begin 
     save:=n; 
     n:=n-1; 
     call myproc; 
     n:=save; 
     ret:=ret*n; 
  end; 
end; 
  
begin 
  read(n); 
  call myproc; 
  write(ret); 
end.