PASCAL语言编程：一个炊事员上街采购，用500元买了90只鸡，其中母鸡一只15元，公

Question

如题所述

Answer 1

Rem PASCAL语言编程：一个炊事员上街采购，用500元买了90只鸡，其中母鸡一只15元，公
Rem x=15 y=20
Rem 因为我不会PASCAL故用vb编的,我只是说明这种方法
Private Sub Command1_Click()
x = 15 '这个是母鸡的单价
y = 5 '这个是公鸡的单价 我计算过了这只有五才符合
For i = 1 To 90 '90为单种鸡的最大值
For j = 1 To 90 '90为单种鸡的最大值
If i * x + j * y = 500 And i + j = 90 Then
Rem 如果i乘x加j乘y等于500和i加j等90
ss = ss & "结果:" & vbCrLf '加入结果
ss = ss & " 公鸡" & i & "只" & " -> 共用" & i * x & "无" & vbCrLf & " 母鸡" & j & "只" & " -> 共用" & j * y & "无" & vbCrLf
Exit For
End If
Next
Next
If ss <> "" Then MsgBox ss
End Sub

Answer 2

//假设母鸡x元一只，公鸡y元一只。
//我只给主程序。
begin
for i:=1 to 90 do
begin
j:=90-i
if i*x+j*y=500 then
begin
writeln(i)
writeln(j)
end
end
end

Answer 3

………………
自己算