搜索
bottom↓
回复: 19

编程题:用不同语言实现下在49个数里找出合规律的数

[复制链接]

出0入42汤圆

发表于 2018-9-30 10:26:11 | 显示全部楼层 |阅读模式
1到49, 这49个数

单, 双
尾大, 尾小
合单, 合双

尾大, 比如36, 6比3大, 是尾大
合单, 比如36, 3+6=9, 是合单

通过选择这六个参数, 把复合规律的数显示出来, 我用VB搞了一个小时, 没有搞出来, 想看看python的



阿莫论坛20周年了!感谢大家的支持与爱护!!

月入3000的是反美的。收入3万是亲美的。收入30万是移民美国的。收入300万是取得绿卡后回国,教唆那些3000来反美的!

出0入0汤圆

发表于 2018-9-30 10:28:42 来自手机 | 显示全部楼层
楼主,国庆有7天假,刚好可以闭门修炼

出0入131汤圆

发表于 2018-9-30 10:29:59 | 显示全部楼层
什么玩意? 你在研究彩票吗?

出0入22汤圆

发表于 2018-9-30 10:30:32 | 显示全部楼层
分单双 %2 就行
尾大小  (X>>8) 和 (X & 0x0F)比就行了
合单双 (X>>8) 和 (X & 0x0F)相加再%2就行了
你竟然搞了一小时都没搞出来?

出0入0汤圆

发表于 2018-9-30 10:30:35 | 显示全部楼层
先把你的VB工程传上来

出0入42汤圆

 楼主| 发表于 2018-9-30 10:38:53 | 显示全部楼层
比如说啊
Private Sub dan_Click()
j = 1
For i = 1 To 49
    a(i) = i
    'If a(i) Mod 2 <> 0 Then Label1.Caption = Label1.Caption & a(i) & ","
    If a(i) Mod 2 <> 0 Then b(j) = a(i)
    Label1.Caption = Label1.Caption & b(j) & ","
    j = j + 1
Next i
我这个老是显示 b(j)=a(i)这里有问题,
b()的数组大小我都定义成了和a()一样的

出0入42汤圆

 楼主| 发表于 2018-9-30 10:39:47 | 显示全部楼层
asj1989 发表于 2018-9-30 10:29
什么玩意? 你在研究彩票吗?

一个小学生的家庭作业, 我想实现一下

出0入93汤圆

发表于 2018-9-30 10:26:12 | 显示全部楼层
单, 双             单 = X & 1
尾大, 尾小       尾大 = (X % 10) >  (X / 10)
合单, 合双       合单 = (X / 10 + X % 10)& 1

出0入0汤圆

发表于 2018-9-30 10:57:31 | 显示全部楼层
一看就觉得没多少难度。
楼主是根本没做出来还是想找到更巧妙的办法?

出0入42汤圆

 楼主| 发表于 2018-9-30 11:04:30 | 显示全部楼层
已解决问题

出0入25汤圆

发表于 2018-9-30 11:11:38 | 显示全部楼层

Python的

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

出0入0汤圆

发表于 2018-9-30 11:12:19 | 显示全部楼层
本帖最后由 dadatou 于 2018-9-30 14:24 编辑

       
//C语言来一个,花了3分钟,是什么原因让楼主一个小时还没搞完的?
void main(void)
{
        char i;
        for(i=0;i<=49;i++)
                {
                if((i%2) != 0)
                        printf("单数:%d",i);
                else
                        printf("双数:%d",i);

                if((i>>8) > (i & 0x0F))
                        printf("尾大:%d",i);
                else if((i>>8) < (i & 0x0F))
                        printf("尾小:%d",i);

               
                if(((i>>8)+(i & 0x0F)) %2 != 0)
                        printf("合单:%d",i);
                else
                        printf("合双:%d",i);
                }
}

更正哈,把数据当成16进制了:
void main(void)
{
        char i;
        for(i=0;i<=49;i++)
                {
                if((i%2) != 0)
                        printf("单数:%d",i);
                else
                        printf("双数:%d",i);

                if((i%10) > (i/10))
                        printf("尾大:%d",i);
                else if((i%10) < (i/10))
                        printf("尾小:%d",i);

               
                if(((i%10) + (i/10)) %2 != 0)
                        printf("合单:%d",i);
                else
                        printf("合双:%d",i);
                }
}

出0入42汤圆

 楼主| 发表于 2018-9-30 11:27:46 | 显示全部楼层
dadatou 发表于 2018-9-30 11:12
//C语言来一个,花了3分钟,是什么原因让楼主一个小时还没搞完的?
void main(void)
{

对VB的数组操作不熟练造成的

出0入42汤圆

 楼主| 发表于 2018-9-30 12:10:29 | 显示全部楼层
dadatou 发表于 2018-9-30 11:12
//C语言来一个,花了3分钟,是什么原因让楼主一个小时还没搞完的?
void main(void)
{

你3分钟写的这个验证了吗,我看不对

出0入0汤圆

发表于 2018-9-30 12:13:14 来自手机 | 显示全部楼层
这是写程序买彩票吗?

出0入0汤圆

发表于 2018-9-30 12:53:54 | 显示全部楼层
49个数,楼主在研究六合彩吗?

出0入42汤圆

 楼主| 发表于 2018-9-30 19:13:32 | 显示全部楼层
跟我爸爸写一个程序, 实现他在纸上的算法, 现在OK了,但是他要我装在手机上, 我开始想用VB写在电脑上, 后来干脆用C, 现在要在手机上, 我还要看看怎么用Java写

出0入0汤圆

发表于 2018-9-30 20:45:28 来自手机 | 显示全部楼层
xiangtaochen 发表于 2018-9-30 19:13
跟我爸爸写一个程序, 实现他在纸上的算法, 现在OK了,但是他要我装在手机上, 我开始想用VB写在电脑上,  ...

貌似py靠谱吧  网页更通用

出0入0汤圆

发表于 2018-9-30 21:18:08 | 显示全部楼层
可能是十二生肖吧。

出0入71汤圆

发表于 2018-9-30 21:36:25 | 显示全部楼层
给你一个VB 的吧
        dim i as integer
        dim a as integer
        dim b as integer
        dim s as string
        for i = 1 to 49
                s = str(i) +":"
                a = i and 1
                if a <> 0 then
                        s = s + "单 "
                else
                        s = s + "双 "
                end if
                a = i \ 10
                b = i mod 10
                if b > a then
                        s = s + "尾大"
                end if
                if b < a then
                        s = s + "尾小"
                end if
                a = a + b
                a = a and 1
                if a <> 0 then
                        s = s + "合单 "
                else
                        s = s + "合双 "
                end if
                Test1.text = Text1.text + s + vbCrLf
        next
回帖提示: 反政府言论将被立即封锁ID 在按“提交”前,请自问一下:我这样表达会给举报吗,会给自己惹麻烦吗? 另外:尽量不要使用Mark、顶等没有意义的回复。不得大量使用大字体和彩色字。【本论坛不允许直接上传手机拍摄图片,浪费大家下载带宽和论坛服务器空间,请压缩后(图片小于1兆)才上传。压缩方法可以在微信里面发给自己(不要勾选“原图),然后下载,就能得到压缩后的图片】。另外,手机版只能上传图片,要上传附件需要切换到电脑版(不需要使用电脑,手机上切换到电脑版就行,页面底部)。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

手机版|Archiver|amobbs.com 阿莫电子技术论坛 ( 粤ICP备2022115958号, 版权所有:东莞阿莫电子贸易商行 创办于2004年 (公安交互式论坛备案:44190002001997 ) )

GMT+8, 2024-4-26 18:53

© Since 2004 www.amobbs.com, 原www.ourdev.cn, 原www.ouravr.com

快速回复 返回顶部 返回列表