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

int npm[4]={2,3,3,1};

char *m[5]={"Про програму","Моделювання","Тестування","Виведення результатiв","Вихiд"};

char *pm[4][3]={{"Про автора","Завдання "},{"Сiмпсон","Чебишев","Гаус "},

{"Тест1","Тест2","Тест3"},{"Читати файл"}};

char *m13[2]={"На екран","Друк "};

do{

l3:;textbackground(7);

clrscr();

l1:; cls1();

mi=1;

gotoxy(1,25);

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

cprintf(" Alt-F4 Вихiд F1 Допомога");

do{

gotoxy(1,1);

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

cprintf(" ");

ls=2;

for(i=0;i<=nm;i++){

gotoxy(ls,1);

if(mi==i+1) textattr(ct+ (ctfa << 4));

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

cprintf("%s",m[i]);

ls=ls+strlen(m[i])+3;

}

c=getch();

if(c==75) {if(mi==1) mi=nm; else mi--;}

if(c==77) {if(mi==nm) mi=1; else mi++;}

if(c==107) exit(0); /* Alt-F4 - Вихiд */