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

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.