百鸡问题

复制内容到剪贴板

代码:

:bjwt()
:Prgm
:ClrIO:ClrHome
:For a,0,20,1
: For b,0,33,1
: c=3*(100-5a-3b)
: If(a+b+c=100)
: Disp "One of the result is cock: "&string(a)&",hen:"&string(b)&",chicken:"&string(c)&""
: EndFor
:EndFor
:ENdPrgm

还有一些，大家喜欢再发！

为什么不淘汰此计算器，20年前的XT电脑都比它强。

用BASIC：
For a=0 to 20:
For b=0 to 33
  c=3*(100-5*a-3*b)
  If a+b+c=100 then
  print "One of the result is cock: ";a;",hen:";b;",chicken:";c
next
next

建议楼主去学一下windows下的编程语言,比如vb。

不过我还收藏着原来的QBASIC呢。原来还有FBasic，找不到了。