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

cprintf("+-----+-----------¦"); gotoxy(1,6);

b0=0.0;

for(i=1;i<=12;i++){

b9=Pi*i/6.0;

s=0.0;

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

x=(b9+b0)/2.0+(b9-b0)*t[j-1]/2.0;

s=s+F(m,x);

}

s=s*(b9-b0)/n; 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;

s=0.0;

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

x=(b9+b0)/2.0+(b9-b0)*t[j-1]/2.0;

s=s+F(m,x);

}