Програмування і алгоритмічні мови

X=160;

y=110;

rectangle(46,20,255,40);

setfillstyle(1,15);floodfill(51,21,1);

settextstyle(0,0,1);

//setcolor(6);

outtextxy(52,25, "Демонстрацiя роботи схеми");

rectangle(46,70,105,90);

setfillstyle(1,15);floodfill(51,71,1);

//setcolor(6);

outtextxy(52,75,"Вихiд");

do

{

putimage(X-155,y-100,saucer,XOR_PUT);

c=getch();

putimage(X-155,y-100,saucer,XOR_PUT);

switch(c)

{

case 80: y+=STEP;q++;if(y==210){y=110 ;q=1;}break;

case 72: y-=STEP;q--;if(y==60){y=160;q=2;}break;

case 13:if(q==2)closegraph();

if(q==1)

{

lma();

setfillstyle(0,16);