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

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=fabs(zrC-s);

e=fabs(ds/zrC)*100.0;

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

}

}

void Gaus(int m1){ /* Обчислення iнтегралу методом Гауса */

const n=7,m=3;

int i,j,k;

float b0,b9,s,x,h;

float t[3]={-0.774597,0.0,0.774597};

float A[3]={5.0/9.0,8.0/9.0,5.0/9.0};

cls1();

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

gotoxy(1,2);

cprintf(" Метод Гауса"); strcpy(NameM,"Гауса ");

if(m1==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;