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

cprintf("¦ Дослiдити iнтеграл на ЕОМ при рiзних значеннях ф за допо-¦\n"); gotoxy(dx2,14);

cprintf("¦могою методiв Сiмпсона, Чебишева, Гауса. Результати розра-¦\n"); gotoxy(dx2,15);

cprintf("¦хункiв звести в таблицю. Точнiсть перевiрити, зрiвнюючи з¦\n"); gotoxy(dx2,16);

cprintf("¦табличним значенням. ¦\n"); gotoxy(dx2,17);

cprintf("¦ F(0,5;п/6)=0,52942863. ¦\n"); gotoxy(dx2,18);

cprintf("¦ Зробити висновки. ¦\n"); gotoxy(dx2,19);

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

}

float F(int n,float O){ /* пiдiнтегральна функцiя */

if(n==0) return sqrt(1-pow(K,2.0)*pow(sin(pow(O,K)),2.0));

if(n>=1) return sqrt(2.0*O+1.0);

}

void Simpson(int m){ /* Обчислення iнтегралу методом Сiмпсона */

const n=8;

int i,j,k;

float b0,b9,a,h,s;

cls1();

textattr(ct+ (ctfp << 4));

gotoxy(1,2);

cprintf(" Метод Сiмпсона "); strcpy(NameM,"Сiмпсона");

if(m==0) {

gotoxy(1,3);

cprintf("+-----------------+");gotoxy(1,4);

strcpy(s0,gcvt(K,3,&sb));

cprintf("¦ fi ¦ F(%3s,fi) ¦",s0);gotoxy(1,5);

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

b0=0.0;

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

b9=Pi*i/6.0;