百只牛,日食百草,1大母牛日食3草,1大公牛日食4草,3小牛日食1草,问各几何?有多组答案.

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/19 11:17:47
百只牛,日食百草,1大母牛日食3草,1大公牛日食4草,3小牛日食1草,问各几何?有多组答案.百只牛,日食百草,1大母牛日食3草,1大公牛日食4草,3小牛日食1草,问各几何?有多组答案.百只牛,日食百草

百只牛,日食百草,1大母牛日食3草,1大公牛日食4草,3小牛日食1草,问各几何?有多组答案.
百只牛,日食百草,1大母牛日食3草,1大公牛日食4草,3小牛日食1草,问各几何?
有多组答案.

百只牛,日食百草,1大母牛日食3草,1大公牛日食4草,3小牛日食1草,问各几何?有多组答案.
大母牛14只,大公牛8只,小牛78只
大母牛3只,大公牛16只,小牛81只

有两组答案:
一组是:14只大母牛, 8只大公牛,78只小牛.
另一组是:3只大母牛,16只大公牛,81只小牛.

经典的算法,1大母牛日食3草,1大公牛日食4草,3小牛日食1草,
下面的代码在VB里面调试通过。
Dim a As Integer, b As Integer, c As Integer
For a = 0 To 33
For b = 0 To 25
c = 100 - a - b
If (a + b + c = 100) And (a *...

全部展开

经典的算法,1大母牛日食3草,1大公牛日食4草,3小牛日食1草,
下面的代码在VB里面调试通过。
Dim a As Integer, b As Integer, c As Integer
For a = 0 To 33
For b = 0 To 25
c = 100 - a - b
If (a + b + c = 100) And (a * 3 + b * 4 + c / 3 = 100) Then
Print a, b, c
End If
Next b
Next a
得:
a=14 b=8 c=78
或a=3 b=16 c=81
如果用笔算,则:
a + b + c = 100
a * 3 + b * 4 + c / 3 = 100
消去一个未知数,只能用整数带入,
同样可以得到上述答案~

收起