Составители:
Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.
m:=abs (f(a));
for i:=l to ,n do if m<abs(f(a+i*h)) then
m:=abs(f(a+i*h));
tl:=(xl-x0)/(b-a);
t2:-=(yl-y0)/(2*m); {построение координатных осей)
setfillstyle(l,15); bar(x0-5,y0-5,xl+5,yl+5) ;
xv:=round(x0-a*tl); yv:=round((y0+yl)/2) ;
setcolor(l); line(xv,y0,xv,yl);
line(x0,yv,xl,yv) ;
Moveto(x0,yv-round(f (a) *t2.)); {установка курсора в начало графика)
setcolor(3); {построение графика}
for i:=l to n do
begin
x:=a+i*h; u:=x0+round((x-a)*tl) ;
v:=yv-round(f(x)*t2); lineto(u,v);
end;
end; (конец процедуры)
begin,
clrscr;
write ('введи a,b и n : ');
readln(a,b,n);
gd:=Detect;
InitGraph(gd,gm,'');
errCode:=GraphResult;
if errCode = grOk then
begin
grafun(100,500,50,300,n,a,b);
grafun(550,620,10,100,200,-0.1,0.1) ;
repeat until keypressed;
CloseGraph; tnd;
else writeln('errCode=',errCode);
end.
Для изображения поверхностей, определяемых функцией двух пере-
менных z=f(x,y), можно использовать разные способы. Одним из них явля-
ется метод построения семейства одномерных графиков функции
z=f(x,y) от одной переменной или при различных фиксированных значе-
ниях другой. Это может быть хорошей тренировкой для самостоятельной
работы по освоению графики.
Построение движущихся изображений. Особую ценность в графике
представляет организация движения фрагментов рисунка. Наиболее про-
сто это сделать по следующему плану:
• нарисовать фрагмент в нужном месте экрана;
• стереть фрагмент, рисуя его цветом фона или используя процедуру
18
Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.
m:=abs (f(a));
for i:=l to ,n do if m
