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

x: Real;{a1}

y: Real;{a2}

b: Real; {b}

end;

TMatrix = array[1..100] of TNerav;{Количество неравенств}

{Константы}

const

MaxX: Integer = 640-30; {максимальное значение X на экране}

MaxY = 20; {максимальное значение Y на экране}

MinX = 40; {x=0 минимальное значение X на экране}

MinY: Integer = 480-40;{y=0 минимальное значение Y на экране}

MASHT = 15; {Масштаб при 15: maxY=28, MaxX=38}

STEP = 1; {шаг изменения свободного члена целевой функчии}

{Переменные}

var

Gd, Gm: Integer; {Иниц. гафики}

Matr: TMatrix; {Матрица неравенств}

c: Real; {Свободный член целевой ф-ии}

N: TNerav; {Коэффициенты неравенств}

i: 0..100; {Счетчик кол-ва неравенств}

MainF: TNerav; {Коэффициенты целевой ф-ии}

XResult,YResult: Real; {Ответ(кординаты)}

procedure ShowXOY;{Проц. показа координатных осей}

Begin

SetColor(White);

Line(MinX, MaxY,MinX-4, MaxY+7);{стрелочки у Y}

Line(MinX, MaxY,MinX+4, MaxY+7);

OutTextXY(MinX-15, MaxY, 'У');

MoveTo(MinX, MaxY);