Курсовая работа: Розрахунок інтегралів за допомогою методів Гауса та Чебишева

tc:array[1..3] of extended = (-0.707107, 0, 0.707107);

tg:array[1..3] of extended = (-0.77459667, 0, 0.77459667);

Ag:array[1..3] of extended = (5/9, 8/9, 5/9);

function f(x:extended):extended;

begin

result := c*x/2+1/cos(d*x);

end;

function f_4(x:extended):extended;

begin

result := power(d,4)*

(24-20*power(cos(d*x),2)+

power(cos(d*x),4))/

power(cos(d*x),5);

end;

function f_6(x:extended):extended;

begin

result := -power(d,6)*

(-720-840*power(cos(d*x),2)-

182*power(cos(d*x),4)+power(cos(d*x),6))/

power(cos(d*x),7);

end;

var

i :integer;

h, x,a,b:Extended;

sumC,sumG,iG,iC,ec,max:Extended;

errC,errG:Extended;

begin

try

h:=StrToFloat(LabeledEdit1.Text);