Реферат: Вычисление интеграла фукции f (x) (методом Симпсона WinWord)

drv:=VGA;

mode:=VGAHi;

initgraph(drv,mode,'');

{ Выяснение порядков минимумов и максимумов }

norm(xmax);

norm(ymax);

norm(ymin);ymin:=ymin/10;

norm(xmin);ymin:=ymin/10;

if (xmin/xmax)>0.01 then dltx:=20 else dltx:=0;

if (ymin/ymax)>0.01 then dlty:=20 else dlty:=0;

{ Расчет масштабов }

mx:=500/(xmax-xmin);

my:=400/(ymax-ymin);

{ Расчет приращения по X }

sx:=(xmax-xmin)/550;

{ Вывод системы координат }

settextjustify(1,1);

xx:=xmin;

repeat

setcolor(1);

line(trunc(40+mx*(xx-xmin)+dltx),20,trunc(40+mx*(xx-xmin)+dltx),469);

str(xx:4:2,s);

setcolor(15);

outtextxy(trunc(40+mx*(xx-xmin)+dltx),475,s);

xx:=xx+50*sx;

until (xx>(xmax+50*sx));

yy:=ymin+(ymax-ymin)/10;

repeat

setcolor(1);