精通cobol－－9.10.2 计算平均数

　　仍然是针对上面的学生成绩表，这次要求取该生各门功课的平均成绩。依然分两种情况进行讨论，即不使用FUNCTION子句的情况和使用该语句的情况。若不使用FUNCTION子句，仍然可以直接进行计算，代码如下。

COMPUTE  AVERAGE-MARK  =

（ MARK  (1) + MARK  (2)  + MARK  (3)  +

MARK  (4) + MARK  (5)  + MARK  (6)  +

MARK  (7) + MARK  (8) ）/ 8.

这种方法同计算数据总和时用到的直接计算方法是一样费时费力的。并且，当数据量较大时，同样在实际操作中无法实现。

若使用FUNCTION子句，则代码如下。

COMPUTER AVERAGE-MARK =

FUNCTION MEAN (MARK (ALL)).

这里使用的是FUNCTION子句中的求平均数语句COMPUTER FUNCTION MEAN。MEAN在这里代表平均数的意思。同时，仍然需要在数据条目名称MARK后加上“（ALL）”，以表示是对表中全体数据进行计算。同样，这种方法求得的结果和上面使用直接计算得到的结果仍然是一样的，但显然要简便得多。