Тапсырма. ГРАФИКА. Суретті сызу бағдарламасын жаз

Тапсырма. Функция графигін сызу бағдарламасын жаз.

Мысал 1. функциясының графигін тұрғызу керек.

Функция аргументінің мәндерін қалауымызша алуға болады. Есептің берілуіндегі x≤3 және x>3 шарттары үшін мәндер аралығын мысалы, [-20; 10] деп берейік. х-тің өзгеру қадамы кем болған сайын функция графигінің сызықтары анықтау көрінетін болады, сондықтан h=0,01 болсын.

uses GraphABC,crt;

var

x,dx: real; { аргумент пен оның өсімшесі (қадамы) }

x1,x2: real; { аргументтің мәндер аралығы}

y: real; { функция мәні }

mx,my: integer; { Х және У осьтері бойынша масштаб – координата осьтері бойынша бірлікке сәйкес келетін нүктелер саны }

x0,y0: integer; { координата осьтерінің басы }

px,py: integer; { функция нүктелерінің координаталары }

i: integer;

begin

x0:=320; y0:=240;

mx:=20; my:=20;

{ координата осьтері }

Line(10, y0, 630, y0) ; Line(x0,10,x0,470);

{ функция графигі }

x1:=-20;

x2:=10;

dx:=0.01;

x:=x1;

while (x<x2) do

begin

if x<=3 then

y:=x*x-x*3+5

else y:=1/(x-6);

px:=x0+Round(x*mx);

py:=y0-Round(y*my);

SetPixel(px,py,clblue);

x:=x+dx;

end;

readkey;

end.

Мысал 2. функциясының мәнін [-15; 5] аралығында h=0,05 қадаммен есептеп, графигін тұрғызу керек.

uses GraphABC,crt;

var

x,dx: real; { аргумент пен оның өсімшесі (қадамы) }

x1,x2: real; { аргументтің мәндер аралығы}

y: real; { функция мәні }

mx,my: integer; { Х және У осьтері бойынша масштаб – координата осьтері бойынша бірлікке сәйкес келетін нүктелер саны }

x0,y0: integer; { координата осьтерінің басы }

px,py: integer; { функция нүктелерінің координаталары }

i: integer;

begin

x0:=320; y0:=240;

mx:=20; my:=20;

{ координата осьтері }

Line (10, y0, 630, y0) ;

Line(x0,10,x0,470);

{ график }

x1:=-15;

x2:=5;

dx:=0.05;

x:=x1;

while (x<x2) do

begin

y:= 0.5*x*x+x*4+3;

px:=x0+Round(x*mx);

py:=y0-Round(y*my);

SetPixel(px,py,clblue);

x:=x+dx;

end;

readkey;

end.

Мысал 3. Функциясы мен суреті берілген астроиданың графигін сызу керек (b=7):

Берілген өрнектерді 2-мысалдағы нүктенің координаттарын есептеу формуласындағы (рх, ру) х пен у-тің орнына қоямыз, t параметрінің мәндер аралығын x үшін х1:=0 және x2:=360 деп ендіреміз.

...

begin

x0:=320; y0:=240;

mx:=20; my:=20;

{ координата осьтері }

Line (10, y0, 630, y0) ;

Line(x0,10,x0,470);

{ график }

x1:=0;

x2:=360;

dx:=0.5;

x:=x1;

b:=7;

while (x<x2) do

begin

px:=x0+Round((b*sqr(cos(x))*cos(x))*mx);

py:=y0-Round((b*sqr(sin(x))*sin(x))*my);

SetPixel(px,py,clblue);

x:=x+dx;

end;

readkey; ...

№	6.1-тапсырма. Келесі функциялардың графигі сызылсын	6.2-тапсырма. Келесі өрнектердің әрқайсысы үшін F(х) функциясының мәндері [x1, x2] аралығында h қадаммен есептелсін және графигі сызылсын
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.

№	Аты-жөні	Есеп номерлері
	Арын Ерғали Ахмет Айдана Байғабыл Нурислан Дәліхан Жанат Дәулет Әсел Досжанова Нұржанат Ержанова Нигора Естібай Нұрым Жұмабаева Дилрабо Қалыбай Жанерке Қаражан Таңшолпан Қуанышбек Қазына Ордабек Асылтаң Оскинова Мериуерт Рахмет Айгүл Рахым Ақжол Садуллаева Динара Сарыбекова Дана Сейдулла Аида Сүйіндік Маржан Талғатқызы Ғазиза Тохтамуратов Сардор Тұрмахан Ботагөз Ысқақ Гаухар Шауқан Әсем	1.17 1.3 1.11 1.23 1.1 1.12 1.6 1.14 1.9 1.7 1.2 1.4 1.5 1.19 1.21 1.24 1.20 1.25 1.16 1.15 1.8 1.10 1.18 1.13 1.22	1.33 1.47 1.36 1.40 1.28 1.48 1.41 1.34 1.30 1.45 1.27 1.26 1.32 1.29 1.44 1.42 1.38 1.50 1.37 1.46 1.43 1.31 1.39 1.35 1.49	2.4 2.2 2.3 2.20 2.1 2.25 2.16 2.19 2.6 2.7 2.18 2.23 2.5 2.17 2.10 2.22 2.9 2.24 2.13 2.15 2.21 2.11 2.12 2.14 2.8	3.23 3.6 3.1 3.9 3.16 3.24 3.22 3.12 3.19 3.3 3.13 3.10 3.21 3.20 3.25 3.7 3.2 3.11 3.8 3.18 3.17 3.5 3.14 3.4 3.15	4.25 4.12 4.1 4.7 4.18 4.9 4.8 4.20 4.3 4.4 4.13 4.23 4.14 4.17 4.22 4.15 4.19 4.16 4.5 4.10 4.21 4.6 4.24 4.2 4.11	5.1 5.24 5.8 5.22 5.17 5.7 5.12 5.9 5.14 5.10 5.21 5.11 5.4 5.3 5.23 5.5 5.2 5.19 5.20 5.18 5.6 5.13 5.16 5.15 5.25	6.10 6.16 6.25 6.1 6.15 6.17 6.8 6.13 6.5 6.23 6.11 6.12 6.24 6.6 6.4 6.19 6.2 6.7 6.3 6.18 6.14 6.9 6.22 6.20 6.21