test.txt

来自「snl语言的语法分析 （递归下降法）词法分析」· 文本 代码 · 共 15 行

program  example
type w1=integer;
var  
     integer b;
     w1 a;

procedure sd(integer s1;var integer s2;integer s3) ;
begin
   if s1<10
   then s2:=s1+10
   else s2:=s1-10	
   fi;       
   read(a);
   sd(a,b)
end.