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

var

k,j: 0..100;

X: Real;

Y: Real;

XTmp: Real;

YTmp: Real;

cTmp: Real;

boolAnswer: Boolean;

key: Char;

STmp: String;

Result: String;{Строка для вывода на экра результата}

procedure SolveOprtel(inN, inMainF: TNerav; ic:Real; var outX, outY: Real);

{в этой подпроцедуре подностью вычисляется определитель}

var

_d: Real;{Дельта определителя}

dx: Real;{Дельта X определителя}

dy: Real;{Дельта Y определителя}

Begin

_d:=(inN.x*(inMainF.y)) - (inN.y*inMainF.x);

dx:=(inN.b*(inMainF.y)) - (inN.y*ic);

dy:=(inN.x*ic) - (inN.b*inMainF.x);

if _d <> 0 then begin{исклюсаем бесчисленное мн-во решений}

outX:=dx/_d;

outY:=dy/_d;

end;

if (_d = 0) and ((dx = 0) xor (dy = 0)) then begin{исклюсаем - нет решений}

SetColor(Red);

OutTextXY(300,230,'Нет решений!!!');

ReadKey;