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

PA:=B[i,j];

Gosub9000;

end;

if SS<>1 then begin PA:=V[i]; Gosub9000 end;

writeln(' ');

end;

writeln(' ');

end;

begin

clearkeybuf;

Init;

textbackground(0); textcolor(15);

clrscr;{promezhut tablitsa pri zz = +1 vyvod, -1 net }

writeln('Reshenie zadachi lin prog-ya simplex-metodom');

{write('Vvedite zz '); readln(zz);} zz:=1;

{Vvesti kol-vo vidov ogranicheniy i kolvo peremennyh}

{write('Vvedite cherez probel GC, EC, LC, N ');

Readln(GC, EC, LC, N); { 2, 0, 2, 2 }

GC:=0; EC:=0; LC:=3; N:=2;

MM:=GC+EC; M:=MM+LC; MK:=GC+LC; N1:=MK+N;

P:=N1+MM; M1:=M+1; M2:=M+2; N0:=N1;

{Vvesti koeff-ty dlya ogranicheniy i tselevoy functii}

{matriza: vvodit stroku matrizy cherez probel,v konze stroki press Enter}

{writeln('Input matrix ',M1, 'x', N);

for i:=1 to M1 do begin

for j:=1 to N do read(A[i,j]);

readln;

end; }

A[1,1]:=1; A[1,2]:=-2; A[2,1]:=2; A[2,2]:=-1; A[3,1]:=1; A[3,2]:=1;