为编程爱好者分享易语言教程源码的资源网

网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言 正文

百鸡百钱算法

三叶资源网 2018-10-01 10:59:05 按键精灵Q语言 1555 ℃ 0 评论

百鸡百钱算法

运行环境:分辨率:1440x900 色深:32位 操作系统:Microsoft Windows XP 按键精灵版本:7.20.5178

@按键小小生 2010/5/27

hen=0  
chicken=0  
n=0  
For 20  
    For 33  
        chicken=100-cock-hen  
        a=chicken Mod  2  
        b=cock*5+hen*3+chicken/2  
        If a=0 and b=100  
            n=n+1  
            text="第"&CStr(n)&"方案为:公鸡"&CStr(cock)&"只/母鸡"&CStr(hen)&"只/小鸡"&CStr(chicken)&"只"  
            VBSCall MessageBox(text)  
        EndIf   
        hen=hen+1  
    EndFor   
    hen=0  
    cock=cock+1  
EndFor   
VBSCall MessageBox("总共"&n&"种方案")



来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网⑤群:21414575

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网⑤群:三叶资源网⑤群

网站分类
随机tag
MP3播放器火山移动图片切割表白程序百度DV算法加QQ好友酷Q源代码套接字加载皮肤Android面试宝典6.0BitBlt汇编版易语言寻路上传视频PHP服务端网易云音乐播放器FTP验证MYSQL数据库Bass音频库流量监控程序chrome浏览器
最新评论