程序10s执行一次，一个小时保存360个数据，定义变量：

out变量：

aver:real;

静态变量

mydata: array[1..360] of real;

mycount:real;

临时变量:

ii:int;

sum:real;

if Bstart and not start_on then

    mycount:=0.0;

    for ii:=1 to 360 do

          mydata[ii]:=0.0;

     end_for;

end_if;//初始化

for ii:=1 to 359 do

     mydata[ii]:=mydata[ii+1];

end_for;//数据前移一个地址

mydata[360]:=new_pv;//新值

mycount:=mycount+1.0;

if mycount>360.0 then

   mycount:=360.0;

end_if;//数据记录满了则记录个数不再增加

for ii:=1 to 360 do

     sum:=sum+mydata[ii];

end_for;

aver:=sum/mycount;