Реферат: Линейное программирование: решение задач графическим способом

Halt;

end;

End;

Begin

Bar(0,0,GetMaxX,MaxY-1);

SetColor(White);

OutTextXY(7,3,'Пожалуйста подождите... (Esc - Отмена)');

{считаем координаты выхода}

c:=0;

cTmp:=0;

repeat

if i=1 then SolveOprtel(Matr[1], MainF, c, XResult, YResult)

else

for j:=1 to i-1 do begin

SolveOprtel(Matr[j], MainF, c, XTmp, YTmp);

for k:=j+1 to i do begin

SolveOprtel(Matr[k], MainF, c, X, Y);

if X=XTmp then XResult:=X;

if Y=YTmp then YResult:=Y;

end;

end;

{далее мы находим максимум функции}

BoolAnswer:=False;

for k:=1 to i do begin

N:=Matr[k];

if (N.x*XResult+N.y*YResult<=N.b) then begin

{Если в ОДЗ}

c:=cTmp;

boolAnswer:=True;