Курсовая работа: Розв’язок системи нерівності з двома змінними

begin

Ky:=(down-up)/(Y_max-Y_min);

Kx:=Ky;

right:=left+round(Kx*(X_max-X_min));

if right>GetMaxX then

begin

right:=GetMaxX;

Kx:=(right-left)/(X_max-X_min);

Ky:=Kx;

up:=(down-round(Ky*(Y_max-Y_min)));

end;

for i:=1 to N do begin

Xg[i]:= left+round(Kx*(X[i]-X_min));

Yg[i]:= down-round(Ky*(Y[i]-Y_min));

end;

MoveTo (Xg[i], Yg[i]);

for i:=2 to N do

LineTo (Xg[i], Yg[i]);

XGO:=left+round(Kx*(XO-Y_min));

YGO:=down-round(Ky*(YO-Y_min));

Line(XGO,up,XGO,down);

Line(left,YGO,right,YGO);

for i:= 1 to N do

y[i]:=x[i]*x[i];

X_max:=y[1];

Y_min:=y[1];

for i:= 1 to N do

begin

if Y_max<y[1] then y_max:=y[1];