当年销售额占到一半的前 n 个客户

阅读(647) 标签: 分组, 降序排序, file, import, keys, switch, pselect,

l  问题

下面是某企业的历史销售合同记录:

下面为他们的客户信息列表:

某年内按销售额排名的客户,达到一半销售额的前n个客户称为该年的“大客户”,请列出1998年该企业的大客户名单。

l  思路

大致思路:首先将合同表按客户分组,算出每个客户的总金额并按其降序排列,而后算出总销售额的一半值,最后扫描这个表,途中不断累积销售额,直至达到一半销售额,之前的客户就是“大客户”了。

1.  为了以后能够方便的提取客户名字,先将合同表的客户字段替换为相应的客户记录。

2.  按要求,选出1998年的合同记录。

3.  对筛选出来的表按客户分组,这样每个客户的销售合同都被划归到一起了,同时再生成新的序表,求出每组的金额总和。

4.  将此序表按金额的降序排列。

5.  求出所有客户的总销售额,即年度总销售额值的一半。

6.  使用pselect函数,从上至下遍历每条记录,同时累计金额,直到金额达到总金额的一半时,停止遍历,就得到了大客户的数量n

7.  提取出前n个客户的名称,就是98年的大客户名单了。

l  代码

 

A

 

1

=file("C:\\txt\\Contract.txt").import@t()

合同表

2

=file("C:\\txt\\Client.txt").import@t()

客户

3

>A2.keys(ID), A1.switch(Client,A2)

将合同表的客户字段替换成客户记录

4

=A1.select(year(SellDate)==1998)

筛选出98年的销售记录

5

=A4.group(Client;~.sum(Amount):Amount)

对表按客户分组,同时求出每组总金额

6

=A5.sort(-Amount)

按金额的降序排列

7

=A5.sum(Amount)/2

全年一半的销售额

8

=0

累计总金额的临时变量

9

=A6.pselect((A8=A8+Amount,A8>=A7))

找到累计总金额达到一半的位置

10

=A6(to(A9)).(Client.Name)

提取出名字,就是该年的大客户了

 

l  结果