利用计算机程序(VB)解决古代数学问题“鸡兔同笼”.
利用计算机解决古代数学问题“鸡兔同笼”.即已知在同一个笼子里有总数为m只鸡和兔,鸡和兔的总角数为n只,求鸡和兔各有多少只?
【提示】不要求出一些荒唐的解,如只数为小数,或者是负数.即输入的总脚数必须是偶数,并且脚数应该是头数的倍数.
人气:171 ℃ 时间:2020-06-20 18:10:24
解答
Private Sub Command1_Click()
Dim ChengLi As Boolean
Dim m As Integer,n As Integer,i As Integer
ChengLi = False
Line1:
m = InputBox("输入鸡兔总数")
If m < 1 Then
MsgBox "输入错误,请重新输入"
GoTo Line1
End If
Line2:
n = InputBox("输入鸡兔总脚数")
If n < 1 Or n Mod 2 0 Then
MsgBox "输入错误,请重新输入"
GoTo Line2
End If
For i = 1 To m
If i * 2 + (m - i) * 4 = n Then
ChengLi = True
MsgBox i & "只鸡" & vbCrLf & m - i & "只兔"
Exit For
ElseIf i = m And ChengLi = False Then
MsgBox "输入的数量不成立"
End If
Next
End Sub
推荐
- vb编程题:解决古代数学问题“鸡兔同笼”.已知在同一个笼子里有总数为m只鸡和兔,鸡和兔的总脚数为n只,
- “鸡兔同笼”问题是我国古代的数学名题之一,《孙子算经》中记载的题目是
- 我国古代数学著作{孙子算经}中有“鸡兔同笼”问题:今有鸡兔同笼,上有35头下有94足,问鸡兔各几何?你
- 我国古代数学名著《孙子算经》上有这样一道题;今有鸡兔同笼,上有35头,下有94足,问鸡兔个几头?【用方程】
- 课本中介绍我国古代数学名著《孙子算经》上有这样一道题:今有鸡兔同笼,上有三十五头,下有九十四足,问鸡兔各几只如果假设鸡有x只,兔有y只,请你列出关于x,y的二元一次方程组_.
- 一条街上,一个骑车人和一个布行人同向而行,骑车人的速度是步行人的3倍,每隔10分钟就有一辆汽车超过步行
- 有A,B,C,D四个数,它们的和是60,A的5倍与B数减1,C数加4,D数的一半都相等.求A,B,C,D这四个数各是多少?
- 已知n为正整数,当a= -1时,a^2+a^2n=( )
猜你喜欢