目标函数 maxZ=6x1+4x2 约束条件 2x1+3x2≤100 4x1+2x2≤120 x1,x2≥0 要求：编程过程体现单纯形方法的解

题目

目标函数 maxZ=6x1+4x2 约束条件 2x1+3x2≤100 4x1+2x2≤120 x1,x2≥0 要求：编程过程体现单纯形方法的解

答案

var i,j,n:longint;
s:real;
begin
n:=0;
while s<=10 do
begin
n:=n+1;
s:=s+1/n;
end;
writeln('n=',n);
end.
这是答案.