kursovoy / borland / KURSACH2

void zad2()
{
int i,bv,q;
bv=0;
float y,xn=470,xk=170,x,prov,pr;
int cc,ce,buffer;
x=xn;
e:
setbkcolor(bv);
do
{
buffer = kbhit();
if (buffer)
goto w;
prov=x/10;
pr=int(prov);
if(prov==pr){cc=rand()%16;
while(cc==4) cc=rand()%16;
ce=rand()%16;
while(ce==cc) ce=rand()%16;}
cleardevice();

y=240+sqrt(22500-(x-320)*(x-320));
setcolor(ce);
rectangle(x-45,y-50,x+45,y+50);
setfillstyle(1,ce);
floodfill(x,y,ce);
setcolor(cc);
circle(x,y,40);
setfillstyle(1,cc);
floodfill(x,y,cc);
delay(25);
x-=2;
}while(x>xk);
x=xk;
do
{
buffer = kbhit();
if (buffer)
goto w;
prov=x/10;
pr=int(prov);
if(prov==pr){cc=rand()%16;
while(cc==4) cc=rand()%16;
ce=rand()%16;
while(ce==cc) ce=rand()%16;}
cleardevice();

y=240-sqrt(22500-(x-320)*(x-320));
setcolor(ce);
rectangle(x-45,y-50,x+45,y+50);
setfillstyle(1,ce);
floodfill(x,y,ce);
setcolor(cc);
circle(x,y,40);
setfillstyle(1,cc);
floodfill(x,y,cc);
delay(25);
x+=2;
}
while(x<xn);
w:
q=getch();
switch(q)
{
case 49: if (bv > 0) bv-=1; goto e;
case 50: if (bv < 15) bv+=1; goto e;
case 27: goto t;
default: goto w;
}
t:
setbkcolor(0);
getch();
}