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

}

}

s=s*h/2.0; 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=fabs(zrG-s);

e=fabs(ds/zrG)*100.0;

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

}

}

void list(){ /* функцiя виводу результатiв на екран */

cls1();

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

gotoxy(1,2);

cprintf(" Метод %9s ",NameM);

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);

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

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

}

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