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

{ vyvod matrix na ekran }

writeln('Matrix ',M1,'x',N);

for i:=1 to M1 do begin

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

writeln;

end;

cc := 0;

{Zadat oslablennye, iskustvenye peremennye, pometit bazis i vvesti

peremennye v nulevoi stolbez}

writeln('Zadaite oslablennye, iskustvennye peremennye'); { 10, 5, 20, 20 }

if GC <> 0 then begin

for i:=1 to GC do begin {1 2}

A[i,N+1]:=-1; A[i,N1+i]:=1; B[M2,i]:=-1;

B[i,i]:=1; A[M2,N1+i]:=1; BS[i] := N1+i;

write(' ? ');read(A[i,0]); B[i,0]:=A[i,0]

{ if i=1 then A[i,0]:=10;

if i=2 then A[i,0]:=5; }

{ inc(cc) }

end

end;

if EC <> 0 then begin

for i:=GC+1 to MM do begin

A[i,N1+i]:=1; B[i,i]:=1; A[M2,N1+i]:=1;

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

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

{inc(cc); }

end;

end;

if LC <> 0 then begin