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

end

end;

{ Esli S = 0, to vse koef-ty polozhitelny i minimum naiden }

if S = 0 then goto 1900;

{ Naiti stroku peremennyh, kotoruyu sleduet iskluchit iz bazisa

po usloviyu minimuma BI/A'[iS] }

MIN := 1E20; R:=0;

{Vychislit A'[iS] i pomestit v stolbez V }

for i:=1 to M1 do begin

V[i]:=0;

for k:=1 to M1 do V[i]:=V[i]+B[i,k]*A[k,s]

end;

V[ML]:=C[S];

for i:=1 to M do begin

if V[i]<=Zero then Continue;

k:=0;

Zikl:

RT:=B[i,k]/V[i];

DF:=RT-MIN;

if DF<0 then begin

R:=i;

MIN:=B[i,0]/V[i];

Continue

end;

if DF<>0 then Continue;

k:=k+1;

MIN:=B[R,k]/V[R];

goto Zikl

end; {NEXT i}