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

Begin

repeat

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

OutTextXY(7,3,'Введите коэффициенты неравенств: ');

Window(34,1,80,1);

Read(N.x, N.y, N.b);{вводим коэффициенты}

j:=N.x;

k:=N.y;

repeat{далее идет сокращение коэффициентов если это возможно}

if (Frac(N.b / j) = 0) then

if (Frac(N.x / j) = 0) then Break;

j:=j-1;

until (j<=0);

if J>=0 then

repeat

if (Frac(N.b / k) = 0) then begin

if (Frac(N.y / k) = 0) then

if (j=k) then begin

N.b:=N.b / k;

N.x:=N.x / k;

N.y:=N.y / k;

Break;

end

end;

k:=k-1;

until (k<=0);

until (N.x<>0) and (N.y<>0); {Ограничение чтоб небыло нулей}

Inc(i); {Увеличиваем счетчик}

Matr[i]:=N;{Добавляем в матрицу коэффициенты}