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

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

gotoxy(1,i+1);

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

cprintf("____________________________________________________");

}

}

void about(){ /* Виведення вiдомостей про автора */

cls1();

gotoxy(dx2,2);

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

cprintf("+---- Про автора -----------------------+\n"); gotoxy(dx2,3);

cprintf("¦ Автор: ст. гр. 5АС-02 Болоненков А.С. ¦\n"); gotoxy(dx2,4);

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

}

void zavdannja(){ /* Виведення допомоги */

/* cls1();*/

gotoxy(dx2,2);

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

cprintf("+----

Завдання ---+\n"); gotoxy(dx2,3);

cprintf("¦ Застосування точного рiвняння Ейлера-Бернулi для великих ¦\n"); gotoxy(dx2,4);

cprintf("¦деформацiй бруса призводить до елiптичних iнтегралiв. Елiп-¦\n"); gotoxy(dx2,5);

cprintf("¦тичний iнтеграл першого порядку (роду) записуэться у вигля-¦\n"); gotoxy(dx2,6);

cprintf("¦дi: ф¦\n"); gotoxy(dx2,7);

cprintf("¦+- ----------+ ¦\n"); gotoxy(dx2,8);

cprintf("¦¦ / 2 2 K¦\n"); gotoxy(dx2,9);

cprintf("¦ F(K,ф)=¦\\/1-K*sin O dO, ¦\n"); gotoxy(dx2,10);

cprintf("¦¦¦\n"); gotoxy(dx2,11);

cprintf("¦ -+¦\n"); gotoxy(dx2,12);