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

b9=Pi*i/6.0;

h=(b9-b0)/n;

s=0.0;

for(j=0;j<=n-1;j++){

for(k=1;k<=m;k++){

x=b0+h*j;

s=s+A[k-1]*F(m,x+h/2.0+t[k-1]*h/2.0);

}

}

s=s*h/2.0; f[i-1]=s;

cprintf("¦%2dп/6¦ %f ¦",i,s); gotoxy(1,6+i);

if(i==1){

gotoxy(20,5+i);

ds=zr-s;

e=fabs(ds/zr)*100.0;

cprintf("табл. знач.=%f абс. пох.=%f вiдн. пох.=%f%%",zr,ds,e);

gotoxy(1,6+i);

}

}

cprintf("+-----------------+");

}

else{

b0=aS;

b9=bS;

h=(b9-b0)/n;

s=0.0;

for(j=0;j<=n-1;j++){

for(k=1;k<=m;k++){

x=b0+h*j;