Question

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

Answer 1

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.

这是答案。