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();
	}