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

A[i,N+i-EC]:=1; B[i,i]:=1; BS[i]:=N+i-EC; write(' ? '); read(A[i,0]);

B[i,0]:=A[i,0]

{ if i=3 then A[i,0]:=20;

if i=4 then A[i,0]:=20; }

{inc(cc);}

end;

end;

if MM = 0 then writeln('Otsutstvuet ETAP 1 resheniya zadachi ');

{writeln(cc);}

{Zadat iskustvenuyu function for ETAP 1 }

L := 1; N0 := P; { N0 yavlyaetsya nomerom nuzhnogo stolbza }

for i:=1 to MM do B[M2,0] := B[M2,0] - B[i,0];

ML:=M1+L; { ML=M+2 dlya ETAPA 1; ML=M+1 dlya ETAPA 2 }

if zz >= 0 then writeln('Pervonachalnaya tabliza');

Gosub3000;

{Repeat until keypressed;}

{ Vyhod iz progi }

{Pometit nebazisnye peremennye, NB[j]=0, esli j-nebazisnaya peremennaya}

for i:=1 to M do NB[BS[i]]:=1;

Zero := 0.00000001; NILL := 1E-20;

{Exit; { Halt(0) }

{ Naiti naimenshiy koef-t v stroke zelevoy functii, t.e. stroku ML }

500: MIN := -Zero; S:=0; PV:=0; ML:=M1+L;

for j:=1 to N0 do begin

C[j]:=0;

if NB[j] <> 1 then begin

{ Vychislit C[j] }

for i:=1 to M do C[j]:=C[j]+B[ML,i]*A[i,j];

C[j]:=C[j]+A[ML,j];