exp.txt

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

{测试表达式的计算，运行结果为15，7}
program pp
type t1=integer;
     t2=t1;
var  integer v1,v2,c;
     t2  v3;
     array [2..100] of integer  a;
     record 
        array [1..10]  of  integer  b;
	integer  v4;
	
     end  r1;	
     char  m1,m2;
 
procedure f(  var  t1  y);

var  integer v11,v22;
    array [2..100] of char  a1;
begin
     r1.v4:=1+3*(7-5);
     
     y:= r1.v4
end
 
begin
  a[(3+4)*5]:=5;
  v1:=a[35];
  
  if v1 < 10    then   write(v1+10)
                else   write(v1-10)
  fi;
  f(v1);
  write(v1)
end.