50450 (Розв’язок системи нерівності з двома змінними), страница 2

var gd,gm,sgr,left,up,down,right,xgo,ygo,i:integer;

x, y :array [1..300] of real;

xg, yg: array [1..300] of integer;

Kx, Ky, Y_min, Y_max, X_min, X_max, Dx:real;

begin

gd:=0;gm:=0;

initgraph (gd,gm,'C:\tp70\bgi');

SetBkColor (3);

left:=40; up:=40; down:=440;

X_min:=A; X_max:=B;

Dx:=(B-A)/(N-1);

for i:=1 to N do begin

X[i]:=A+round(Dx*(i-1));

Y[i]:=1+X[i];

end;

Y_max:=Y[1];

Y_min:=Y[1];

for i:=1 to N do begin

if Y_max

if Y_min>Y[i] then Y_min:=Y[i];

end;

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

if Y_min>y[i] then y_min:=y[i];

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_min,y_max.

РОЗРАХ.КОЕФІЦІЕНТА В МАСИВІ.

РОЗРАХ.ЕКРАННОГО КОЕФІЦІЕНТА.

ПОБУДУВА ГРАФІКУ.

ПОБУДУВА ВІСЕЙ OX,OY.

Математична модель

y – x² ≥ 0,

y – x ≥ 1;

y =x²,

y= 1+x;

y=x²:

(0; 0), (2; 4);

y=1+x:

(2; 3), (1; 2).

Список використаних джерел

1)Е. А. Зуєв. Програмування на мові Turbo Pascal 6.0, 7.0, М.: Веста, Радіо і зв'язок, 1993, - С.376

2)Turbo Pascal: вчиться програмувати, О. А. Меженний, Москва:

Изд.дом «Вільямс», 2001

3)Основи мови Turbo Pascal (навчальний курс), П. И. Рудаков, М. А.Федотов, Москва: Радіо та зв'язок, 2000р.

4)Моргун Олександр Миколайович. Довідник по Turbo Pascal для студентів. - М.: Діалектика, 2006. - С. 608.

Размещено на Allbest.ru