主题：金字塔如何申明数组

VARIABLE:VARR1[10]=0,SARR[5]='STR';VARR1[1]:=VARR1[10];
定义1个含10个元素的数组并进行取值和赋值
又如移动平均线可通过如下循环语句和数组操作实现:
INPUT:N(5,2,500);      //参数申明
VARIABLE:I=0,S=0;
VAR1:=C; //变量申明
//为了加快运算速度，只有最后一个周期时才循环计算
IF NOT(ISLASTBAR) THEN EXIT;
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;

金字塔数组使用的高级编程技巧

http://www.weistock.com/bbs/dispbbs.asp?BoardID=10&ID=30380&skin=0