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

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

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

bar(302,225,302+textwidth(s),226+textheight(s));

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

outtextxy(302,225,s);

if(strlen(s)>15)

{

outtextxy(250,220,"Ѓ®«миҐбЁ¬ў®«®ўўўҐбвЁ ­Ґ«м§п!!!!");

outtextxy(250,230," „«пЇа®¤®«¦Ґ­Ёп ­ ¦¬ЁвҐ Enter");

do

{

a=getch();

}while (a!=13);

}

}while(a!=13);

setfillstyle(SOLID_FILL,0);

bar(300,202,600,235);

nach=atoi(s);

setfillstyle(SOLID_FILL,0);

setcolor(4);

outtextxy(300,202,"‚ўҐ¤ЁвҐўҐае­ооЈа ­Ёжг!!!(*.in)");

outtextxy(315,212,"max 2 бЁ¬ў®« :_");

rectangle(301,224,463,235);

p=0;

do{

a=getch();

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

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

bar(302,225,302+textwidth(s),226+textheight(s));