用EXcel VBA解決百錢買百雞問題

2021-09-24 21:08:19 字數 1215 閱讀 6632

for……next迴圈解決法:

sub 百錢買百雞_for( )

dim cock as long, hen as long, chicken as long

for cock = 1 to 20 '外迴圈每執行1次

for hen = 1 to 33 '內迴圈執行所有次---整個

chicken = 100 - cock - hen

if cock * 5 + hen * 3 + chicken / 3 = 100 then

msgbox "公雞有" & cock & "只" & vbnewline _

& "母雞有" & hen & "只" & vbnewline _

& "小雞有" & chicken & "只"

end if

next

next

end sub

do ……while解決法:

sub 百錢買百雞_do()

dim cock as long, hen as long, chicken as long, i as long

dim str as string

str = ""

cock = 1

i = 1

do while (cock <= 20) '外迴圈每執行1次

cock = cock + 1

hen = 1

do while (hen < 34) '內迴圈執行所有次---整個

chicken = 100 - cock - hen

if cock * 5 + hen * 3 + chicken / 3 = 100 then

str = str & "第" & i & "情況:" & "公雞有" & cock & "只" & vbnewline _

& "母雞有" & hen & "只" & vbnewline _

& "小雞有" & chicken & "只" & vbnewline

i = i + 1

end if

hen = hen + 1

loop

loop

msgbox str

end sub

python解百錢買百雞 C語言解決百錢買百雞問題

我國古代數學家張丘建在 算經 一書中曾提出過著名的 百錢買百雞 問題,該問題敘述如下 雞翁一,值錢五 雞母一,值錢三 雞雛三,值錢一 百錢買百雞,則翁 母 雛各幾何?翻譯過來,意思是公雞乙個五塊錢,母雞乙個三塊錢,小雞三個一塊錢,現在要用一百塊錢買一百隻雞,問公雞 母雞 小雞各多少只?題目分析 如果...

python解決百錢買百雞

現有100錢,公雞5文錢乙隻,母雞3文錢乙隻,小雞一文錢3只 要求 公雞 母雞,小雞都要有,把100文錢花完,買的雞的數量正好是100。問 一共能買多少只公雞,多少只母雞,多少只小雞?窮舉法 方案一 思路 第一重迴圈公雞從1只迴圈到100只 第二重迴圈母雞從1只迴圈到100只 第三重迴圈小雞從1只迴...

百錢買百雞

這是個很簡單的邏輯,本來沒有什麼太多值得分享的。並且實現程式網上隨處可見,鄙人也並未提出更高深的意見。在閒暇看書時,對比了以下兩種實現。發現,其 實數學計算的不定性,可利用計算機的不斷重複 篩選 得到想要結果 如第一種實現 但是,顯而易見的是,第一種實現有個複雜度的問題。而第二種實現,是在數學計算推...