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

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

cls1();

fp2=fopen("lpt1", "w+");

fprintf(fp2," Метод %9s \n",NameM);

fprintf(fp2,"+-----------------+\n");

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

fprintf(fp2,"¦ fi ¦ F(%3s,fi) ¦\n",s0);

fprintf(fp2,"+-----+-----------¦\n");

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

fprintf(fp2,"¦%2dп/6¦ %f ¦\n",i,f[i-1]);

}

fprintf(fp2,"+-----------------+\n");

fclose(fp1);

}

void Vvod(){ /* функцiя введення початкових даних */

cls1();

gotoxy(17,7);

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

cprintf("+------------------------+"); gotoxy(17,8);

cprintf("¦ Введiть значення K= ¦"); gotoxy(17,9);

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

gotoxy(17+21,8);

scanf("%f",&K);

cls1();

gotoxy(17,7);

}

void main(void){ /* Головна функцiя */

char vibor,tab, c;

int short i,a,b,x,y,mi,mi1,mif,mi13,ls;