标题:请问如何更新投注数字段?
只看楼主
fengmh
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2018-3-18
结帖率:92.86%
已结贴  问题点数:16 回复次数:5 
请问如何更新投注数字段?

双色球保本投注法,假定每注彩票2元,每注彩票奖金5元,即在收益率>=0条件下,
如何用程序更新投注数,投注数向上取最小整数值,谢谢?
搜索更多相关主题的帖子: 彩票 字段 最小 更新 整数 
2019-10-05 10:45
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
上传表
投注数的规则是什么

坚守VFP最后的阵地
2019-10-05 11:30
fengmh
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2018-3-18
得分:0 
回复 2楼 sdta
投注数.zip (418 Bytes)

函数公式在图表中已标记,
投注数为整数,效果是保证每次投注数最小,即收益率>=0且最小;
2019-10-05 12:13
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
CLOSE DATABASES
USE 投注数
ZAP
n累计投注 = 0
n序号 = 0
FOR i = 1 TO 500
    FOR ii = 1 TO i
        n本期投入 = ii * 2
        n本期中奖 = ii *5
        n累计投注 = n累计投注 + n本期投入
        n收益 = n本期中奖 - n累计投注
        IF n收益 >= 0
            n序号 = n序号 + 1
            INSERT INTO 投注数 VALUES (n序号, ii, n本期投入, n累计投注, n本期中奖, 5, n收益, ALLTRIM(STR((n收益 *100 / n累计投注), 10, 2)) + "%")
        ELSE
            n累计投注 = n累计投注 - n本期投入
        ENDIF
    ENDFOR
ENDFOR
BROWSE


坚守VFP最后的阵地
2019-10-05 13:58
fengmh
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2018-3-18
得分:0 
回复 4楼 sdta
谢谢,老师!
但如果现在提高单注奖金由5元,变为6元时,程序运行结果就出问题了,第三条投注数应为1,累计投入6元,收益为0元,符合程序条件n收益 >= 0,结果为什么不是我们想要的结果。
2019-10-05 21:11
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:16 
回复 5楼 fengmh
** 下面代码是否符合楼主的意思
CLOSE DATABASES
USE 投注数
ZAP
n累计投注 = 0
n序号 = 0
n单注奖金 = 6
FOR i = 1 TO 500
    FOR ii = 1 TO i
        n本期投入 = ii * 2
        n本期中奖 = ii * n单注奖金
        n累计投注 = n累计投注 + n本期投入
        n收益 = n本期中奖 - n累计投注
        IF n收益 >= 0
            n序号 = n序号 + 1
            INSERT INTO 投注数 VALUES (n序号, ii, n本期投入, n累计投注, n本期中奖, n单注奖金, n收益, ALLTRIM(STR((n收益 *100 / n累计投注), 10, 2)) + "%")
            EXIT
        ELSE
            n累计投注 = n累计投注 - n本期投入
        ENDIF
    ENDFOR
ENDFOR
BROWSE

结果


[此贴子已经被作者于2019-10-5 22:16编辑过]


坚守VFP最后的阵地
2019-10-05 22:09



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




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

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