百鸡百钱
我国古代数学家张丘建在《算经》一书中提出了“百鸡问题”：鸡翁一值钱五，鸡母一值钱三，鸡雏三值钱一。百钱买百鸡，问鸡翁、鸡母、鸡雏各几何？
为什么公鸡只能小于等于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