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

k=-k;

}

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

cprintf(" - тест"); gotoxy(1,3);

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

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

cprintf("+ ----+",s); gotoxy(1,5);

cprintf("¦/2x+1 dx=%f;",s); gotoxy(1,6);

cprintf("+",s); gotoxy(1,7);

cprintf("0"); gotoxy(20,5);

ds=zrS-s;

e=fabs(ds/zrS)*100.0;

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

}

}

void Chebyshev(int m){ /* Обчислення iнтегралу методом Чебишева */

const n=7;

int i,j;

float b0,b9,s,x;

float

t[7]={-0.883862,-0.529657,-0.321912,0.0,0.321912,0.529657,0.883862};

cls1();

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

gotoxy(1,2);

cprintf(" Метод Чебишева "); strcpy(NameM,"Чебишева");

if(m==0){

gotoxy(1,3);

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

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