Курсовая работа: Розв’язок системи нерівності з двома змінними
end;
for i:=1 to N do
begin
xg[i]:=(left+round(Kx*(x[i]-x_min)));
yg[i]:=(down-round(Ky*(y[i]-x_min)));
end;
MoveTo (xg[i], yg[i]);
for i:=2 to N do
LineTo (xg[i], yg[i]);
End;
xg[i]:=yg[i];
for i:=1 to N do
MoveTo (xg[i],yg[i]);
LineTo (left, yg[i]);
readln;
closegraph;
end.
Висновок
У цій роботі описуються розв’язок систем нерівностей призначених для створення графіків в графічному середовищі Турбо Паскаля. Використовуючи вище перераховані процедури та функції, я навчився зображати графіки систем нерівностей, так само зміг показати переріз цих графіків. Написавши дану програму, я отримав навички роботи в графічному середовищі Турбо Паскаль, навчився правильно застосовувати різні процедури та функції, точно визначати і задавати координати графіків.
Блок–схема
 |
Математична модель
 |
y – x2 ≥ 0,
y – x ≥ 1;
y=x2 ,
y= 1+x;
y=x2 :
(0; 0), (2; 4);
y=1+x:
(2; 3), (1; 2).