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

if R = 0 then goto 1800;

if zz>=0 then Gosub3500;

Repeat Until keypressed; {pervoe reshenie}

{ Obnovit obratnyi i simplex- mnozhiteli }

PV := V[R];

for j:=0 to M1 do B[R,j]:=Round(B[R,j]/PV);

{ Perenaznachit B povtorno pometit bazisnye i nebazisnye peremennye }

NB[BS[R]]:=0; NB[S]:=1; BS[R]:=S; NI:=NI+1;

Goto 500;

1800: writeln('Peremennaya "S" ne imeet ogranicheniy ');

Gosub3500; readkey;

Goto 2500;

1900:if L=0 then Goto 2000;

{ Dlya ETAPA 2 eta tochka yavl-sya minimumom. Esli my nahodimsya na ETAPE 1,

to pereiti k ETAPU 2, proverit, chto W stalo ravno 0 }

if abs(A[ML,0]) >= 1E-08 then Goto 1960;

writeln('ETAP 1 uspeshno zavershon');

L:=0; N0:=N1; { Zadat L i nomer stolbza dlya ETAPA 2 }

Goto 500;

1960: writeln('Ogranicheniya ne imeyut dopustimogo resheniya');

writeln('summa iskustvennyh peremennyh ravna ',-B[ML,0]);

Gosub3500;

2000:writeln('Okonchatelnoe reshenie');

writeln('Ogranichenie Bazis Znachenie');

PB := 144;

for i:=1 to M do begin

SL[BS[i]]:=B[i,0];

write(' ',i,' ',BS[i],' ');

PA:=B[i,0];