Курсовая работа: Численное интегрирование методом Гаусса

setcolor(14);

setlinestyle(0,0,3);

if i=0 then moveto(i,j) else lineto(i,j);

setcolor(8);

if (x>t*k+a) then begin

k: =k+1;

setcolor(15);

end;

setlinestyle(0,0,1);

if (x>=a) and (x<=b) then line(i,j, i,j1);

end;

setcolor(15);

y: =f(b);

i: =trunc(640*(b-x1) /(x2-x1));

j: =trunc(480*(y-y2) /(y1-y2));

line(i,j, i,j1);

setlinestyle(0,0,1);

setcolor(12);

{Подписи}

setcolor(13);

str(a: 6: 6,s);

s: ='a='+s;

i: =trunc(640*(a-x1) /(x2-x1));

outtextxy(i,j1+2,s);

str(b: 6: 6,s);

s: ='b='+s;

i: =trunc(640*(b-x1) /(x2-x1));

outtextxy(i-10,j1+2,s);

setcolor(15);