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

form1.Memo1.ReadOnly:=true;

form1.Extrem.Enabled:=true;

iftable_changed=truethen {если меняли количество эл-тов или ограничений,}

begin {то создаем новую табличку}

table_changed:=false;

m:=strtoint(form1.Edit1.Text);{считываемколичествопеременных}

n:=strtoi

nt(form1.Edit2.Text);{иограничений}

form1.Edit1.Enabled:=false;{блокируемполядляихввода}

form1.Edit2.Enabled:=false;

i:=0; {используем нулевую строку массива подписей для заголовков}

for j:=1 to 3 do {подписываемчто is что}

begin

podpis[i,j]:=TLabel.Create(Form1.ScrollBox1);

podpis[i,j].parent:=form1.ScrollBox1;

podpis[i,j].Left:=5;

podpis[i,j].Top:=32*(j-1); {расстояниемеждунадписями}

case j of

1: nadpis:='Целеваяфункция:';

2: nadpis:='F(x)=';

3: nadpis:='Система ограничений:';

end;

podpis[i,j].Caption:=nadpis;

end;

i:=n+1; {используем последнюю строку массива полей для целевой ф-ции}

for j:=1 to m+1 do

begin

pole[i,j]:=TEdit.Create(Form1.ScrollBox1);

pole[i,j].parent:=form1.ScrollBox1;