高考问答防空知识手抄报:百鸡问题VB
来源：百度文库 编辑：高考问答 时间：2024/04/28 17:49:24
鸡翁一,值钱五;鸡母一,值钱三;鸡雏三,值钱一;百钱买百鸡,鸡翁,鸡母,鸡雏各多少?
Dim a As Integer, b As Integer, c As Integer
For a = 0 To 20
For b = 0 To 33
c = 100 - a - b
If (a + b + c = 100) And (a * 5 + b * 3 + c / 3 = 100) Then
Print a, b, c
End If
Next b
Next a
#include
#include
int main(int argc, char *argv[])
{
int cocks,hens,chicks;
for(cocks=0;cocks<=19;cocks++)
{
for(hens=0;hens<=33;hens++)
{
chicks = 100-cocks-hens;
if( 5*cocks+3*hens+chicks/3==100 )
printf("cocks=%2d, hens=%2d, chicks=%2d\n",cocks,hens,chicks);
}
}
return 0;
}
执行结果如下：
cocks= 0, hens=25, chicks=75
cocks= 3, hens=20, chicks=77
cocks= 4, hens=18, chicks=78
cocks= 7, hens=13, chicks=80
cocks= 8, hens=11, chicks=81
cocks=11, hens= 6, chicks=83
cocks=12, hens= 4, chicks=84