c1.txt

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

{数组测试}
{结果应为:0,1,2,3,4,5}
program sd
type  i=integer;
      sarray=array [0..5] of integer;
var  i x;
     sarray y;
     integer ss;
procedure sd(integer a);
begin 
   write(a)
end    
begin
  ss:=0;
  while ss<6 do
    y[ss]:=ss;
    x:=y[ss];
    sd(x);
    ss:=ss+1
  endwh
end.