Delphi的古代数学问题

来源：百度知道 编辑：UC知道 时间：2024/06/14 01:06:44
古代数学问题: 假设 3文钱可以买1只公鸡，2文钱可以买一只母鸡，1文钱可以买3只小鸡。用100文钱买100只鸡，那么各有公鸡、母鸡、小鸡多少只？请编程计算并显示出公鸡,母鸡,小鸡的数目.

请问应该怎样写出该编程？！

procedure TForm1.Button1Click(Sender: TObject);
var
x,y: Integer ;
begin
for x := 1 to 33 do
for y := 1 to 50 do
if 3*x + 2*y + (1/3)*(100-x-y) = 100 then
Memo1.Lines.Add(
Format('公鸡:%d,母鸡:%d,小鸡:%d',[x,y,100-x-y])) ;
end;
//公鸡:5,母鸡:32,小鸡:63
//公鸡:10,母鸡:24,小鸡:66
//公鸡:15,母鸡:16,小鸡:69
//公鸡:20,母鸡:8,小鸡:72