Курсовая работа: Написание программы для удаления элементов и очистки внешних таблиц

cd[a-1]=' ';

setcolor(7);

outtextxy(10,10+x,cd);

x+=10;

k++;

}

a=getch();

while (a!=27)

{

a=getch();

}

k=0;

x=0;

clearviewport();

setviewport(0,0,639,479,0);

fclose(in);

return(0);

}

void imya()

{

p=0;

do{

a=getch();

if ((a!=13)&&(a!=8)&&(a!=27))

{ s[p]=a; p++; s[p]='\x0';}

bar(302,175,302+textwidth(s),176+textheight(s));

if (a==8) if (p>0) s[--p]='\x0';

outtextxy(302,175,s);

if(strlen(s)>19)