Данная программа использует только модуль GraphABC, добавлены операторы заголовка и размеров экрана, выделены цветом оси координат.

       Наряду с графиком функции строится график её производной

                                                                 

Аналогичная программа для интеграла

  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 (как в приведённом ниже примере).