Реферат: Вычисление интеграла методом Ньютона-Котеса (теория и программа на Паскале)

setcolor(15);

if ((r mod 2)=1) and (i<>0) then

begin

if ((320+i*24)<561) and ((320+i*24)>71) then

line(320+i*24,20,320+i*24,460);

if ((240+i*24)<461)and(240+i*24>19) then

line(80,240+i*24,560,240+i*24);

end;

end;

setcolor(15);

d:=readkey;

case d of

#75:

begin

x1:=x1-30;

x2:=x2-30;

end;

#77:

begin

x1:=x1+30;

x2:=x2+30;

end;

#80:

if c>1 then

c:=c-1;

#72:

c:=c+1;

#71:

c:=24;