yw.txt

来自「一个鱼网曲线程序」· 文本 代码 · 共 41 行

/*画一个鱼网*/
#include<graphics.h>
main()
{
int x,y,x1,y1,x0=320,y0=50;
int i,j,n=5,r=20;
int gd=DETECT,gm; 
initgraph(&gd,&gm,"d:\tc\bgi");/*进行图形的初始化*/
/*“ ”之间表示graphics.h所在的路径*/
cleardevice(); /*清屏*/
setbkcolor(9); /*设置背景颜色*/
for(i=0;i<=2*n;i++)
{
     x1=x0-i*r;
     y1=y0+i*r;
     for(j=0;j<=n-1;j++)
        {
          x=x1+2*j*r;
          y=y1+2*j*r;
         arc(x,y,180,270,r); 
         arc(x,y+2*r,0,90,r);
         }
}
x1=x0-2*r;
y1=y0;
for(i=0;i<=2*n;i++)
{
      x1=x1+r;
      y1=y1+r;
      for(j=0;j<=n-1;j++)
        {
            x=x1-2*j*r;
            y=y1+2*j*r;
           arc(x,y,90,180,r);
           arc(x-2*r,y,270,360,r);
          }
}
getch();
closegraph();/*关闭图形模式*/
}