主题：请帮忙解决

下面公式是复自金字塔公式指南的

 

 

//用于序列模式下运行的公式：
INPUT:N(5,2,500);  //参数申明
RUNMODE:1;  //运行于序列模式
VARIABLE:I=0,S=0,VAR1:=C;//变量申明
FOR J=1 TO DATACOUNT DO BEGIN
 S:=S+VAR1[J];                -----------------------这里出现:数组越界操作

  IF J>=N THEN BEGIN
  IF J>N THEN
  S:=S-VAR1[J-N];
  MA1[J]:S/N;   //实现MA(C,N)
  I:=0;
 END;
END;

 

 

运行时出现错误:  数组越界操作

 

 

 

 

 

 

 

 

 

 

 

教程用的老的算法，做如下改进即可

 

//用于序列模式下运行的公式：
INPUT:N(5,2,500);  //参数申明
RUNMODE:1;  //运行于序列模式
VARIABLE:I=0,S=0;

VAR1:=C;//变量申明
FOR J=1 TO DATACOUNT DO BEGIN
 S:=S+VAR1[J];                -----------------------这里出现:数组越界操作

  IF J>=N THEN BEGIN
  IF J>N THEN
  S:=S-VAR1[J-N];
  MA1[J]:S/N;   //实现MA(C,N)
  I:=0;
 END;
END;

多谢!