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

if (s[7]='0') then

begin

ss:=(Form1.Components[i] as TControl);

a[StrToInt(s[8])]:=StrToInt((ss as TMaskEdit).Text);

end

else

if (s[8]='0') then

begin

ss:=(Form1.Components[i] as TControl);

b[StrToInt(s[7])]:=StrToInt((ss as TMaskEdit).Text);

end

end;

s:='';

Memo1.Lines.Add('Начальные данные');

for j:=1 to SpinEdit1.Value do

begin

for i:=1 to SpinEdit2.Value do

s:=s+IntToStr(c[i, j])+' ';

s:=s+IntToStr(a[j]);

Memo1.Lines.Add(s);

s:='';

end;

for i:=1 to SpinEdit2.Value do

s:=s+IntToStr(b[i])+' ';

Memo1.Lines.Add(s);

for i:=1 to SpinEdit1.Value do

for j:=1 to SpinEdit2.Value do

x[i,j]:=-1;

i:=1;