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

if(c==13){

if(mi<=4){

mi1=1;

l2:; do{

if(c!=13) c=getch();

else c=32;

if(c==72) if(mi1==1) mi1=npm[mi-1]; else mi1--;

if(c==80) if(mi1==npm[mi-1]) mi1=1; else mi1++;

if(c==27) goto l1;

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

if(c==59) zavdannja(); /* F1 - Допомога */

ls=2;

for(i=0;i<mi-1;i++) ls=ls+strlen(m[i])+3;

gotoxy(ls,2);

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

strcpy(s,"+");

for(i=0;i<strlen(pm[mi-1][0]);i++) strcat(s,"-");

strcat(s,"+");

cprintf(s);

for(i=0;i<npm[mi-1];i++){

gotoxy(ls,i+3);

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

cprintf("¦");

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

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

cprintf(pm[mi-1][i]);

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

cprintf("¦");

}