發問時間: 電腦與網際網路程式設計 · 1 0 年前

(程式語言)VB 考題幫忙解答

試問雞兔一窩,雞2隻腳、兔4隻腳,總共有32隻腳要如何知道雞鴨總共幾隻?

拜託高手幫忙解答此題

已更新項目:

wjs大師那假設雞有4隻兔6隻的話呢

1 個解答

評分
  • W.J.S.
    Lv 7
    1 0 年前
    最佳解答

    '試問雞兔一窩...雞鴨總共幾隻,這是腦筋急轉彎嗎?ANS:雞0~16之偶數隻,鴨沒半隻

    圖片參考:http://tw.yimg.com/i/tw/blog/smiley/6.gif

    '沒有說明全部共幾隻,只好都列出來

    Private Sub Command1_Click()

    Dim I As Integer

    For I = 0 To 32 / 4

    If (32 - I * 4) Mod 2 = 0 Then Print "雞 ="; (32 - I * 4) / 2; "隻 兔 ="; I; "隻"

    Next

    End Sub

    2007-01-09 16:00:23 補充:

    雞兔同籠的問題,應該是要這麼問吧:

    雞有2隻腳,兔有4隻腳,雞加兔共有32隻腳,雞加兔共有?隻(你少了這個條件),求雞有幾隻 , 兔有幾隻?

    假設你的問題改成...雞加兔共有10隻,求雞有幾隻 , 兔有幾隻?

    設雞=X隻,兔=Y隻

    X Y=10 > *2 = 2X 2Y=20→(A)

    2X 4Y=32→(B)

    B-A→2Y=

    2007-01-09 16:12:07 補充:

    假設你的問題改成...雞加兔共有N隻腳,雞加兔共有T隻,求雞有幾隻 , 兔有幾隻?

    設雞=X隻,兔=Y隻

    X Y=T→(A)

    2X 4Y=N→(B)

    (B)-(A)*2→2Y= N - 2T→Y=(N-2T)/2

    代入(A)→ X=(4T-N)/2

    2007-01-09 16:16:34 補充:

    N=Inputbox("共有幾隻腳")

    T=Inputbox("雞加兔共有幾隻")

    Print "雞 =" ; (4 * T - N) / 2

    Print "兔=" ; (N - 2 * T) / 2

    參考資料: WJS
還有問題?馬上發問,尋求解答。