标题:怎样求一组数据中最大的n个数的和?
只看楼主
wxyh01
Rank: 1
等 级:新手上路
帖 子:42
专家分:0
注 册:2006-12-4
结帖率:40%
 问题点数:0 回复次数:12 
怎样求一组数据中最大的n个数的和?
有一组数据怎样求出这组数据中最大的前90%个数据的和,以及这90%的数据中大于某个值的个数?
例如:
abcc.rar (1.44 KB)
这是一个成绩表abcc.dbf,我想把文件中的各科成绩中最大的90%个数据的各求出来,并把各科中最大的90%个数据中大于60的数据个数求出来,请问怎样用代码实现,谢谢大家
搜索更多相关主题的帖子: 最大的 成绩表 
2016-07-04 18:50
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:0 
“最大的”,是不是:一组数中从大到小顺序的意思?
2016-07-04 19:02
wxyh01
Rank: 1
等 级:新手上路
帖 子:42
专家分:0
注 册:2006-12-4
得分:0 
对,按由大到小排列后,前n 个数的和
2016-07-04 19:13
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
是不是下面的结果

坚守VFP最后的阵地
2016-07-04 20:24
wxyh01
Rank: 1
等 级:新手上路
帖 子:42
专家分:0
注 册:2006-12-4
得分:0 
回复 4楼 sdta
一共是47个数据,取语文成绩由高到低排列后的前42个成绩进行计算总分,并求出这前42个成绩中大于60的的数据个数,总分应该是2797,大于60的是28个
2016-07-04 21:08
wxyh01
Rank: 1
等 级:新手上路
帖 子:42
专家分:0
注 册:2006-12-4
得分:0 
回复 4楼 sdta
42是47四舍五入得到的
2016-07-04 21:10
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
按照标准SQL查询的TOP百分比计算方法,47*0.9=42.3,取整应该是43。

坚守VFP最后的阵地
2016-07-04 21:36
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
程序代码:
clear
close databases
use abcc
rs=ceiling(reccount()*0.9) && 获取成绩前90%的人数,取最大值
local cj[7]
for i=1 to 7
    cj[i]=field(i+2)
    index on -&cj[i] tag px
    s=0 && 成绩总和
    n=0 && 大于等于60分的人数
    x=1
    do while x<=rs
       s=s+&cj[i]
       if &cj[i]>=60
           n=n+1
       endif
       x=x+1 
       skip
    enddo
    ?padc(cj[i],30,"-")
    ?"   和="+str(s,5),"人数="+str(n,5)
    ?
endfor
收到的鲜花
  • wxyh012016-07-04 22:18 送鲜花  3朵   附言:我很赞同

坚守VFP最后的阵地
2016-07-04 21:38
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
只能说楼主提的问题不严谨

坚守VFP最后的阵地
2016-07-04 21:52
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
基础知识应该多看看帮助文件。

坚守VFP最后的阵地
2016-07-04 22:41



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-466622-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.059146 second(s), 9 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved