Курсовая работа: Применение симплекс-метода

PB := 122;

for i:=1 to ML do begin

if i=M1 then write(' tselev func');

if i=M2 then write(' iskust func');

if (i<>M1)and(i<>M2)then begin write(' ',i,' '); PA:=A[i,0]; Gosub9000 end;

for j:=0 to N0 do begin

PA:=A[i,j];

Gosub9000;

end;

writeln(' ');

end;

write(' ');

end;

procedure Gosub3500;

begin

If L=1 then writeln('ETAP 1 vsyo esho prodolzhaetsya');

PB:=122;

for j:=1 to N0 do write(' C',j,' ');

writeln;

for j:=1 to N0 do begin PA:=C[j]; Gosub9000 end;

writeln;

if SS<>1 then writeln('X',S,' Vhodit B,X',BS[R],' v uslovii ',R,' vyveden iz bazisa');

writeln('Bazis Znachenie Obrashenie Bazisa');

if SS=1 then write(' ');

{write(' A'iS');}

for i:=1 to ML do begin

if i=M1 then write('Reshenie dlya tselevoy functii');

if i=M2 then write('Reshenie dlya iskustven functii');

if (i<>M1)and(i<>M2) then write(' ',BS[i]);