语言图形程序设计报告

etcolor(i+2-1);Р ellipse(470,240,0,360,t,b);Р t+=5;Р b-=5;Р }Р}Р/*画变色圆周运动*/Рvoid guochang()Р{Р?int gdriver;Р?int i;Р?int b;Р?int c;Р?int gmode;Р?gdriver=DETECT;Р?initgraph(&gdriver,&gmode,"C:\\TC20\\BGI");Р?setbkcolor(13);Р?for(c=1;c<9;c++)Р?{Р switch(c){Р case 1:for(i=1;i<640;i++)Р {Р if(i==1)Р {Р setcolor(14);Р for(b=1;b<240;b++)Р line(320, 240, 1, b);Р }Р else{}Р }Р break;Р case 2:for(i=1;i<640;i++)Р {Р if(i==1)Р {Р setcolor(4);Р for(b=240;b<480;b++)Р line(320,240,1,b);Р }Р else{}Р }Р break;Р case 3:for(i=1;i<640;i++)Р {Р if(i<320&&i>1)Р {Р setcolor(6);Р line(320,240,i,479);Р }Р else{}Р }Р break;Р case 4:for(i=1;i<640;i++)Р {Р if(i<640&&i>=320)Р {Р setcolor(5);Р line(320, 240, i,479);Р }Р else{}Р }Р break;Р case 5:for(i=640;i>0;i--)Р {Р if(i==639)Р {Р setcolor(10);Р for(b=480;b>240;b--)