Реферат: Программа исследования функций

// Выделение цветом выбранного пункта и неактивных поселдних пунктов

if (n==vp) {

setfillstyle(1,4);

setcolor(15);

} else {

if (n>(m.onum-1)) {

setfillstyle(1,8);

setcolor(10);

} else {

setfillstyle(1,1);

setcolor(14);

}

}

// Выводпункта

bar(x+5,5+30*n,x+100,25+30*n);

rectangle(x+6,6+30*n,x+99,24+30*n);

outtextxy(x+55,15+30*n,m.capt[n]);

}

// Опрос клавитауры

do {

c=getch();

if (c==0) c=getch();

// КлавишаВниз

if (c==72) {

vp--;

if (vp<0) vp=m.onum-1;

}

// КлавишаВверх

if (c==80) {