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

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.