Курсовая работа: Решение задач линейного программирования симплекс методом

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>');

К-во Просмотров: 734
Бесплатно скачать Курсовая работа: Решение задач линейного программирования симплекс методом