给我发过短信的进来啊， 还有一个问题，大家来帮忙，我给分的。

Question

我每次回复你们的短信的时候，总是提示服务器忙~~晕哉倒呼~~~~~~~
在问一个题目：
下表给出X,Y,Z三种食物的维生素含量及成本.
                    X    Y    Z
维生素A(单位/千克) 400  500  300
维生素B(单位/千克) 700  1000  300
成  本（元/千克）   6    4     3现在欲将三中实物混合成100千克的混合食品，要求至少含35000单位维生素A，40000单位维生素B，采用何种配比成本最小？这个问题如何解决呢？？
需要：数学模型的建立，以及Delphi的代码示例~~谢谢。

Answer 1

X＋Y＋Z＝100
400X＋500Y＋300Z＞＝35000
700X＋1000Y＋300Z＞＝40000
R：＝6X＋4Y＋3Z
求R最小值基本列式应该就是这样吧，我才高中文化，代码就由别人完成吧嘻嘻：）

Answer 2

还是做了一下，好像很简单，要是读书时候够算了，还是电脑好啊＾＾
代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
  x,y,z,R:integer;
  Result:integer;
  M,N:integer;
begin
  Result:=100000;
  for x:=1 to 98 do
    for y:=1 to 98 do
      for z:=1 to 98 do
      begin
        M:=400*x+500*y+300*z;
        N:=700*x+1000*y+300*z;        if (M>= 35000) and (N>=40000) then
          begin
            R:=6*x+4*y+3*z;
            if R<Result then
            begin
             Result:=R;
             label1.Caption:='X='+IntToStr(x);
             label2.Caption:='Y='+IntToStr(y);
             label3.Caption:='Z='+IntToStr(z);
             label4.Caption:='Money='+IntToStr(Result);
             label5.Caption:='维生素A='+IntToStr(M);
             label6.Caption:='维生素B='+IntToStr(N);            end;
          end;
      end;end;结果为X＝1，Y＝68，Z＝2，钱＝284　维生素A＝35000　B＝69300