50450 (Розв’язок системи нерівності з двома змінними), страница 2
Описание файла
Документ из архива "Розв’язок системи нерівності з двома змінними", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "50450"
Текст 2 страницы из документа "50450"
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
– x2 ≥ 0,
y
– x ≥ 1;
y
=x2,
y= 1+x;
y=x2:
(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