一些有助于提升数学和逻辑水平的小问题

最新推荐文章于 2024-09-06 08:24:17 发布

星江月

最新推荐文章于 2024-09-06 08:24:17 发布

阅读量1k

点赞数

文章标签： integer c vb

前段时间给客服讲一些关于数的问题，然后客服找了一些题目出来，这里给大家一一解答：

1.住宿问题

有3个人去投宿,
一晚30元.
三个人每人掏了10元凑够30元交给了老板.
后来老板说今天优惠只要25元就够了,
拿出5元命令服务生退还给他们,
服务生偷偷藏起了2元,
然后,
把剩下的3元钱分给了那三个人,
每人分到1元.
这样,
一开始每人掏了10元,
现在又退回1元,
也就是10-1=9,
每人只花了9元钱,
3个人每人9元,
3 X 9 = 27元 + 服务生藏起的2元=29元，
还有一元钱去了哪里？

答：服务生所得 = 3*10 + 5（老板所给） = 35元

服务生支出 = 3元 -> 收款剩余 35-3=32元

费用核算 27 + 5 = 32元

2.卖葱的问题

有个人去买葱
问葱多少钱一斤
卖葱的人说 1块钱1斤这是100斤要完100元
买葱的人又问葱白跟葱绿分开卖不
卖葱的人说卖葱白7毛葱绿3毛
买葱的人都买下了
称了称葱白50斤葱绿50斤
最后一算葱白50*7等于35元
葱绿50*3等于15元
35+15等于50元
买葱的人给了卖葱的人50元就走了
而卖葱的人却纳闷了
为什么明明要卖100元的葱
而那个买葱的人为什么50元就买走了呢？

答：100斤葱不等于50斤葱白+50斤葱绿，否则必定两者的价格都是5毛钱，不然就是挥泪甩卖了

3.蜗牛爬井

有口井 7米深
有个蜗牛从井底往上爬
白天爬3米晚上往下坠2米
问蜗牛几天能从井里爬出来？

答：VB写个程序

Sub Climb()

Dim d As Long

Dim h As Integer

Do While h < 7

h = h + 3

If h >= 7 Then

Exit Do

Else

h = h - 2

d = d + 1'这里写代表不足一天以0天计，在If块外不足都以一天计

End If

Loop

MsgBox "花费" & cstr(d) & "天！"

End Sub

得到答案是4天，程序员的优势出来了吧！其实花费是n天*米+3米=7米

4.乒乓球称重

有十二个乒乓球形状、大小相同，其中只有一个重量与其它十一个不同，现在要求用一部没有砝码的天秤称三次，将那个重量异常的球找出来，并且知道它比其它十一个球较重还是较轻？

答：写个程序，呵呵

Sub Calc()
    Dim r, s As VbMsgBoxResult
    r = MsgBox("将12个球分成ABC三组，每组4个球，将AB组放在天平两边，是否能平衡？", vbQuestion + vbYesNo, "结果")
    If r = vbYes Then
        '能平衡说明不一样的球在C组
        r = MsgBox("将C组的球C1.C2.C3.C4，将C1和C2分别放天平两边，是否能平衡？", vbQuestion + vbYesNo, "结果")
        If r = vbYes Then
            '平衡说明C3或C4不同
            r = MsgBox("将C3和C1分别放在天平两边，是否平衡？", vbQuestion + vbYesNo, "结果")
            's = MsgBox("天平是否想C1.C2倾斜？", vbQuestion + vbYesNo, "结果")
            If r = vbYes Then
                MsgBox "坏球是C4", vbInformation, "呵呵"
                If s = vbYes Then
                    If r = vbYes Then MsgBox "如果天平倾向C3，比", vbInformation, "呵呵"
                Else

                End If
            Else
                MsgBox "坏球是C3", vbInformation, "呵呵"
            End If
        Else

        End If
    Else
        '在AB之中

    End If
End Sub

5.桌子坐人问题

说一个屋里有多个桌子，有多个人？
如果3个人一桌，多2个人。
如果5个人一桌，多4个人。
如果7个人一桌，多6个人。
如果9个人一桌，多8个人。
如果11个人一桌，正好。

答：X mod i = i - 1 也就是说人数+1可以被 3 5 7 9 整除

3 5 7 9 的公倍数用程序算出来

Private Sub Form_Load()
    Dim n As Long
    For n = 1 To 10000
        If (n Mod 3 = 2) And (n Mod 5 = 4) And (n Mod 7 = 6) And (n Mod 9 = 8) And (n Mod 11 = 0) Then
            Debug.Print n, n / 11
        End If
    Next n

'得到最小的2519人 229桌还可以是5984人 544桌 ......
End Sub

6.买餐具问题

有人想买几套餐具，到餐具店看了后，发现自己带的钱可以买21把叉子和21把勺子，或者28把小刀。如果他买的叉子，勺子，小刀数量不统一，就无法配成套，所以他必须买同样多的叉子，勺子，小刀，并且正好将身上的钱用完。如果你是这个人，你该怎么办

答：设有钱m元，叉子单价X，勺子单价Y，小刀单价Z，则有 21(X+Y) = 28Z = m, n(X+Y+Z)=m