百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，在窗体上输出所有可能的购鸡方案。 Private Sub Form_Click() '******** Program ***********[br][/br] [br][/br] '********* End **************** End Su
Dim x%, y%, z% For x = 0 To 33 For y = 0 To 50 z = 100 - x - y If 3 * x + 2 * y + 0.5 * z = 100 Then Print x, y, z End If Next y, x
举一反三
内容
- 0
百鸡问题：已知公鸡每只5元，母鸡每只3元，小鸡3只1元，用100元买100只鸡，请编写程序求出公鸡、母鸡、小鸡各多少只？
- 1
使用循环求解百钱买百鸡问题。假设大鸡5 元一只，中鸡 3 元一只，小鸡 1 元三只，现有 100 元钱想买 100 只鸡，有多少种买法？
- 2
百钱买百鸡：[br][/br] 公鸡五文钱一只，母鸡三文钱一只，小鸡一文钱买三只，现在有100文钱共买了100只鸡，问公鸡、母鸡和小鸡各有多少只？
- 3
百钱买百鸡：母鸡每只3个钱，公鸡每只2个钱，小鸡每只0.5钱。用100个钱买100个鸡，有几个答案，分别是多少？（lisp语言编程，并打印结果）
- 4
实现百钱买百鸡问题。公鸡每只5元，母鸡每只3元，小鸡3只一元，问三种鸡各买多少只。（每种鸡至少1只）。要求：为Form_Click事件编程，并在窗体上输出结果。[img=337x198]18037a0244cb859.jpg[/img]