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

LineTo(MaxX, MinY);

Line(MaxX, MinY, MaxX-7, MinY-4);{стрелочки у X}

Line(MaxX, MinY, MaxX-7, MinY+4);

OutTextXY(MaxX, MinY+5, 'X');

End;

procedure ShowLine(_iN:TNerav);

var s: String;

Begin

if _iN.b/_iN.y<0 then begin{если коэффиц. при Y меньше 0}

MoveTo(MinX+Round((_iN.b-(Round(MinY/MASHT)*_iN.y))/_iN.x*MASHT),MaxY);

SetColor(15);

LineTo(MinX+Round(_iN.b/_iN.x*MASHT),MinY);

end;

if _iN.b/_iN.x<0 then begin{если коэффиц. при X меньше 0}

MoveTo(MinX,MinY-Round(_iN.b/_iN.y*MASHT));

SetColor(15);

LineTo(MaxX,MinY-Round((_iN.b-(Round(MaxX/MASHT)*_iN.x))/_iN.y*MASHT));

end;

SetColor(LightGreen);

Str(_iN.b/_iN.x:3:1,s);

OutTextXY(MinX+Round(_iN.b/_iN.x*MASHT),MinY+5,s);{рисуем значения на оси OX}

Str(_iN.b/_iN.y:3:1,s);

OutTextXY(MinX-40,MinY-Round(_iN.b/_iN.y*MASHT),s);{рисуем значения на оси OY}

MoveTo(MinX,MinY-Round(_iN.b/_iN.y*MASHT));

SetColor(15);{Рисуем саму линию}

LineTo(MinX+Round(_iN.b/_iN.x*MASHT),MinY);

End;

procedure EnterNerav;{процедура ввода неравенств до нажатия Esc}

procedure GetNerav;{подпроцедура ввода коэф-тов одного неравенства}