Курсовая работа: Решение задач линейного программирования симплекс методом
form1.Memo1.Lines.Add('');
end;
end;
end else
begin
writeln(f,'<P>Решениененайдено.(</P>');
form1.Memo1.Lines.Text:=form1.Memo1.Lines.Text+'Решениененайдено.';
end;
form1.Memo1.ReadOnly:=true;
end;
{/////////////////}
procedure Step2;
{шаг второй: решение задачи и формирование отчета}
var
i,j: integer;
k: integer;
begin
for i:=1 to n+1 do
for j:=1 to m+1 do
begin
matrix[i,j]:=strtofloat(pole[i,j].Text); {Вводимзначениявмассив}
pole[i,j].Enabled:=false; {Блокируемполя}
if i<=n then znak[i].Enabled:=false;{блокируемзнаки}
end;
form1.Extrem.Enabled:=false;
{////////////////////////////////////////////////////////////////////////////}
{ имеемматрицу [ n+1, m+1 ] }
rewrite(f);
writeln(f,'<HTML>');