精通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）”，以表示是对表中全体数据进行计算。同样，这种方法求得的结果和上面使用直接计算得到的结果仍然是一样的，但显然要简便得多。