СИМПЛИКС МЕТОД
if i_basis=0 then
begin
iter:=0;findved;if done=false then
begin
writeln(f,'<H2>Применяем симплекс метод</H2>');
repeat
inc(iter);findved;preobr;until (done=true) or (iter=20);end;end;otvet;
Закончился СИМПЛИКС МЕТОД
writeln(f,'</BODY>');writeln(f,'</HTML>');CloseFile(f);end;
procedure TForm1.ExitClick(Sender: TObject);
begin
Close();
end;
procedure TForm1.Button_NextClick(Sender: TObject);
begin
step:=step+1;
Form1.Button_Prev.Enabled:=true;
case step of1:Step1;
2:begin
Step2;
Form1.Button_Next.Enabled:=false;
end; else step:=step-1;
end;form1.Caption:='Симплекс метод - шаг '+inttostr(step);
end;
procedure TForm1.Button_PrevClick(Sender: TObject);
begin
step:=step-1; Form1.Button_Next.Enabled:=true;
case step of
0:begin
Init;
Form1.Button_Prev.Enabled:=false;end;
1:Step1;
else step:=step+1;end;
form1.Caption:='Симплекс метод - шаг '+inttostr(step);end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Init;end;