问个循环多结果输出的问题~~~~~~~~~~~~~

一百匹马驮一百块瓦,公马一匹驮三块,母马一匹驮两块,小马两匹驮一块,问   有多少公马?多少母马?多少小马?    
   
  下面代码是我写的，计算输出的结果是17，5，78，结果应该不只一个，如何输出全部结果？  
   
  procedure   TForm1.btn1Click(Sender:   TObject);  
      var   x,y,z:Integer;  
  begin  
        for   x:=1   to   33   do  
        begin  
          for   y:=1   to   50   do  
          begin  
              z:=100-x-y;  
          if   3*x+2*y+z/2=100   then  
            begin  
            edt1.Text:=IntToStr(x);  
            edt2.Text:=IntToStr(y);  
            edt3.Text:=IntToStr(z);  
            end;  
          end;  
        end;  
  end; 问题点数：20、回复次数：2Top

1 楼liangqingzhi（老之）回复于 2006-03-03 13:53:37 得分 20

放一个Memo，改成  
   
    if   3*x+2*y+z/2=100   then  
        Memo1.Lines.Add(Format('%d,%d,%d',[x,y,z]));Top

2 楼shaojie（冲冠一怒）回复于 2006-03-03 14:02:44 得分 0

多谢。Top

相关问题

• 输出
• 结果
• inttostr
• 马
• edt
• begin
• text

• 帖主：shaojie
• liangqingzhi

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载