百鸡百钱

王朝百科·作者佚名  2010-02-18
窄屏简体版  字體: |||超大  

我国古代数学家张丘建在《算经》一书中提出了“百鸡问题”:鸡翁一值钱五,鸡母一值钱三,鸡雏三值钱一。百钱买百鸡,问鸡翁、鸡母、鸡雏各几何?

为什么公鸡只能小于等于19,母鸡小于等于33

问题补充:怎么就满足不了百鸡的条件呢?那如果公鸡等于19的话,也满足不了百鸡的条啊?

答; 鸡翁一值钱五:公鸡五文一只,而现在百钱买百鸡(100文钱买鸡),所以公鸡数量要至少小于20`

解;设母鸡X只,公鸡Y只,小鸡100-X-Y只,

所以5Y+3X+(100-X-Y)/3=100

且X,Y为整数,所以可以得出正确答案,

有三种情况

1.公鸡4只,母鸡18只,小鸡78只

2.公鸡8只,母鸡11只,小鸡81只

3.公鸡12只,母鸡4只,小鸡84只

水仙花数

clear

for m=100 to 999

a=m%10

b=int(m/100)

c=int(mod(m,100)/10)

if m=a^3+b^3+c^3

?m

endif

endfor

return

一元二次方程(所有的情况均在内)

set talk off

clear

input'a='to a

input'b='to b

input'c='to c

if a=0

if b=0

?'此方程无解'

else

x=-c/b

?此方程有单根:',x

endif

else

delt=b^2-4*a*c

if delt<0

? '此方程无实根'

else

r=sqrt(delt)

x1=(-b+r)/(2*a)

x2=(-b-r)/(2*a)

?'此方程的根为:',x1,x2

endif

endif

return

百元百鸡

set talk off

for x=0 to 33

for y=0 to 50

if 3*x+2*y+0.5*(100-x-y)=100 then

?x,y,100-x-y

endif

endfor

endfor

3文一公鸡,2文一母鸡,1文3小鸡

var

a,b,c:integer;

begin

for a:=1 to 100 do

for b:=1 to 100 do

for c:=1 to 100 do

if(c mod 3=0)and(a*3+b*2+c div 3=100)and(a+b+c=100)

then writeln(a:4,b:4,c:4)

end.

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer, i As Integer

For a = 1 To 100

For b = 1 To 100

For c = 1 To 100

If a + b + c = 100 And a * 5 + b * 3 + c * 0.5 = 100 Then

i = i + 1

End If

Next c

Next b

Next a

msgbox "有"+ i + "个方案"

End Sub

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航