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

setfillstyle(SOLID_FILL,8);

bar(0,0,640,480);

setfillstyle(SOLID_FILL,0);

bar(164,24,606,446);

setfillstyle(SOLID_FILL,1);

for (i=0;i<4;i++)

{

bar(20,20+i*60,130,50+i*60);

liniya(i,9,0);

}

setfillstyle (SOLID_FILL,1);

bar(160,20,163,450);

bar(20,265,163,268);

bar(160,20,610,23);

bar(607,20,610,450);

bar(160,447,610,450);

d=1;

while (ch!=27)

{

setcolor(6);

outtextxy(60,30,"”Ђ‰‹");

outtextxy(45,90,"“„Ђ‹…Ќ€…");

outtextxy(45,150,"‘ЏђЂ‚ЉЂ");

outtextxy(55,210,"‚›•Ћ„");

if ((a==80)||(a==72))

{

if (a==80) d++;

if (a==72) d--;

if (d>4) d=1;