c6.txt

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

{并列声明函数之间的调用}
{输入n，如果n<10,则输出n+10,n,n+10;
              否则输出n-10,n,n-10}
program  example
type w1=integer;
var  
     integer b;
     w1 a;
procedure sss(integer a);
begin
   write(a)
end
procedure sd(integer s1;var integer s2); 
begin
   if s1<10
   then s2:=s1+10
   else s2:=s1-10	
   fi;
   sss(s2);
   sss(a)
end
begin      
   read(a);
   sd(a,b);
   sss(b)
end.