| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 143 人关注过本帖
标题:求第二大数
只看楼主 加入收藏
fdqzy
Rank: 1
等 级:新手上路
帖 子:205
专家分:0
注 册:2016-8-15
结帖率:80.95%
收藏
已结贴  问题点数:20 回复次数:3 
求第二大数
程序代码:
create cursor b1 (m1 n(3),m2 n(3),m3 n(3),m4 n(3),m5 n(3),max_2 n(5))
insert into b1 values (1,3,2,7,4,4)
insert into b1 values (4,9,8,6,5,8)
insert into b1 values (3,0,2,5,8,5)
insert into b1 values (4,1,5,8,3,5)

在m1、m2...m5中,求第二大数,显示在max_2
谢谢!
搜索更多相关主题的帖子: insert into values 显示 大数 
2021-02-16 10:50
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:242
帖 子:8369
专家分:21742
注 册:2012-2-5
收藏
得分:10 
程序代码:
create cursor b1 (m1 n(3),m2 n(3),m3 n(3),m4 n(3),m5 n(3),max_2 n(5))
insert into b1 values (1,3,2,7,4,4)
insert into b1 values (4,9,8,6,5,8)
insert into b1 values (3,0,2,5,8,5)
insert into b1 values (4,1,5,8,3,5)
blank fields max_2 all
scan
    scatter fields m1, m2, m3, m4, m5 to la
    asort[la]
    replace max_2 with la[alen(la, 1) - 1]
endscan
browse

坚守VFP最后的阵地
2021-02-16 11:02
fdqzy
Rank: 1
等 级:新手上路
帖 子:205
专家分:0
注 册:2016-8-15
收藏
得分:0 
以下是引用sdta在2021-2-16 11:02:53的发言:

create cursor b1 (m1 n(3),m2 n(3),m3 n(3),m4 n(3),m5 n(3),max_2 n(5))
insert into b1 values (1,3,2,7,4,4)
insert into b1 values (4,9,8,6,5,8)
insert into b1 values (3,0,2,5,8,5)
insert into b1 values (4,1,5,8,3,5)
blank fields max_2 all
scan
    scatter fields m1, m2, m3, m4, m5 to la
    asort[la]
    replace max_2 with la[alen(la, 1) - 1]
endscan
browse

谢谢 ,又学习了!
2021-02-16 14:43
schtg
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:50
帖 子:965
专家分:1541
注 册:2012-2-29
收藏
得分:10 
非常好,谢谢!
2021-02-17 07:13
快速回复:求第二大数
数据加载中...
 
   



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

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