c7.txt

来自「snl语言是一个简单的具有嵌套过程定义的过程式语言」· 文本 代码 · 共 32 行

{在一个过程声明中又有一过程声明测试}
{输入n,若n<10,则输出n+10,n+10;
            否则输出n-10,n-10}

program  example
type w1=record
        integer x;
        integer y;
        end;
var  
     integer a;
     integer b;
     w1 c;
     {w2 d;语义错误}
procedure sd(integer s1;var integer s2); 
var integer ss;
procedure sss(integer a);
begin
   write(a)
end
begin
   if s1<10
   then s2:=s1+10
   else s2:=s1-10	
   fi;
   sss(s2)
end
begin      
   read(a);
   sd(a,b);
   write(b)
end.