Данная программа использует только модуль GraphABC, добавлены операторы заголовка и размеров экрана, выделены цветом оси координат. Наряду с графиком функции строится график её производной Построение графика функции и её производной program gr; uses GraphABC; var n,i:integer; x,k:real; Function y(x:real):real; begin y:=sin(x); {функция} end; function z(x:real):real; begin z:=(y(x+0.001)-y(x))/0.001; end; begin setwindowsize(650,400); k:=2; setwindowtitle('dy/dx'); setpencolor(clblack); textout(323,192,'0'); textout(323,10,'Y'); textout(630,192,'X'); for n:=-20 to 20 do line(320+trunc(25*n*k),0,320+trunc(25*n*k),480); for n:=-20 to 20 do line(0,190 +trunc(25*n*k),1000,trunc(190+25*n*k)); setpencolor(clred); line(0,190,720,190); line(320,0,320,480); for i:=-10000 to 10000 do begin x:=i/500; setpixel(320+trunc(25*x*k),190-trunc(25*(y(x))*k),clblue); end; sleep(2000); for i:=-10000 to 10000 do begin x:=i/500; setpixel(320+trunc(25*x*k),190-trunc(25*z(x)*k),clgreen); end; savewindow('prsinus'); end. Аналогичная программа для интеграла program integral; uses GraphABC,crt; var n,i,x0,xk:integer; x,k,p,s:real; Function y(x:real):real; begin y:=cos(x); {функция} end; begin setwindowsize(650,400); k:=2; write('x0='); read(x0); write('xk='); read(xk); setwindowtitle('opr. integral cos(x)от x0 до xk '); setpencolor(clblack); textout(323,192,'0'); textout(323,10,'Y'); textout(630,192,'X'); for n:=-20 to 20 do line(320+trunc(25*n*k),0,320+trunc(25*n*k),480); for n:=-20 to 20 do line(0,190 +trunc(25*n*k),1000,trunc(190+25*n*k)); setpencolor(clred); line(0,190,720,190); line(320,0,320,480); for i:=500*x0 to 500*xk do begin ; x:=i/500; setpixel(320+trunc(25*x*k),190-trunc(25*(y(x))*k),clblue); end; sleep(1000); for i:=500*x0 to 500*xk do begin x:=i/500; p:=y(x)*0.002; s:=s+p; setpixel(320+trunc(25*x*k),190-trunc(25*s*k),clgreen); end; end. Вычисляется определённый интеграл методом прямоугольников. Но шаг очень маленький, так что точность достаточно большая. Строится график, который совпадает с графиком главной первообразной только если её значение при x0 равно 0 (как в приведённом ниже примере). |