СИМПЛИКС МЕТОД

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;