发布于 2014-11-26 17:01:45
7楼
这个程序应该很简单,可以先用一个排序,然后再算平均值。
如数据存在DB1里面
L 7
A01: T LW20
L P#0.0
LAR1
L 6
A02: T LW22
L DBD[AR1,P#0.0]
L DBD[AR1,P#4.0] //实数,如果是整数,则为p#2.0
JC A03
T LD26
L DBD[AR1,P#0.0]
T DBD[AR1,P#4.0]
L LD26
T DBD[AR1,P#0.0]
A03 +AR1 P#4.0
L LW22
LOOP A02
L LW20
LOOP A01
计算平均值:
L 0.0
T LD30
L P#4.0
LAR1
L 5
B01:T LW34
L DBD[AR1,P#0.0]
L LD 30
+R
T LD30
+AR1 P#4.0
L LW34
LOOP B01
L LD30
L 5.0
/R
T MD100