精通cobol－－9.10.3 计算中位数

最新推荐文章于 2022-05-02 00:58:54 发布

COBOL_OS

最新推荐文章于 2022-05-02 00:58:54 发布

阅读量1.1k

点赞数

文章标签： cobol function 算法 math

本文链接：https://blog.csdn.net/COBOL_OS/article/details/2337245

版权

　　所谓中位数，就是一列数据从小到大排列正中间的数据。对于一列数据中的中位数而言，比它大的数和比它小的数应该是一样多的。

这里，若要求取该生所有考试成绩的中位数，仍然可以分两种方法进行。一种是不使用FUNCTION子句，另一种是使用FUNCTION子句。对于不使用FUNCTION子句的方法而言，涉及到较复杂的算法设计，此处不加讨论。

下面，只看使用FUNCTION子句如何完成操作。若使用FUCNTION子句，代码如下。

COMPUTER MID-MARK =

FUNCTION MEDIAN (MARK (ALL)).

这里使用的是FUNCTION子句中的求中位数语句COMPUTER FUNCTION MEDIAN。MEDIAN在这里代表中位数的意思。对于该语句而言，仍需在数据条目名称MARK后加上“（ALL）”，以表示对全体数据进行计算。

此外，对于前面讲到的二分查找而言，原始数据的编号也可不连续。数据编号不连续的情况，如表所示。

表学生成绩表2

SUBJECT-CODE为数据编号，但只是有序排列，并不连续。根据二分查找的方式，需要从表的中间数据项开始查找。此时若要找到表的中间数据，便不能使用类似连续编号情况下的方式进行。否则，若根据通常连续编号情况下的方式进行，将得到以下错误结果。

2+(34-2)/8=6

实际上，对于该表，中间数据编号应该为10或者12（根据具体算法细节不同而不同）。这里用求取中位数的方法便可以很方便地得到正确结果，代码如下。

COMPUTER MID-CODE =

FUNCTION MEDIAN (SUBJECT (ALL)).

关注