回 帖 发 新 帖 刷新版面

主题:一个简单的玫瑰花儿程序

#include <dos.h>
#include <graphics.h>

/*花儿*/
void hua(int x,int y)
{
register i;
setcolor(12);
arc(x+65,y-60,150,350,8);
arc(x+66,y-54,300,470,8);
arc(x+65,y-56,30,230,10);
arc(x+64,y-57,300,460,17);
ellipse(x+73,y-30,250,450,27,40);
ellipse(x+59,y-30,100,290,27,40);
ellipse(x+65,y-40,140,270,20,30);
setfillstyle(SOLID_FILL,5);
floodfill(x+65,y-20,12);
arc(x,y,150,350,12);
arc(x+1,y+8,280,470,12);
arc(x,y+2,30,230,16);
arc(x,y+3,80,240,28);
arc(x+2,y+8,180,330,22);
arc(x-2,y+2,310,460,25);
ellipse(x-12,y+30,120,300,30,40);
ellipse(x+10,y+28,250,423,30,42);
ellipse(x-4,y+10,290,393,30,40);
setfillstyle(SOLID_FILL,4);
floodfill(x+5,y+31,12);
ellipse(x+120,y+5,0,360,15,25);
setfillstyle(SOLID_FILL,15);
floodfill(x+120,y,12);
ellipse(x-70,y+10,0,360,14,20);
setfillstyle(SOLID_FILL,14);
floodfill(x-70,y+10,12);
setcolor(10);
ellipse(x-15,y+32,190,310,30,35);
ellipse(x+16,y+32,235,355,26,35);
ellipse(x,y+35,190,350,43,50);
arc(x,y+82,190,350,6);
setfillstyle(SOLID_FILL,2);
floodfill(x,y+75,10);
ellipse(x+50,y-48,190,320,22,50);
ellipse(x+80,y-48,220,350,22,50);
ellipse(x+65,y-28,180,360,36,50);
floodfill(x+65,y+18,10);
for(i=0;i<3;i++)
{
  ellipse(x-98,y+100+i,255,371,100,80);
  ellipse(x-20,y+30+i,260,358,140,140);
  ellipse(x+233,y+20+i,180,218,160,140);
}
ellipse(x+70,y+34,180,233,140,140);
ellipse(x,y+40,205,255,100,120);
ellipse(x+135,y-30,209,249,72,120);
ellipse(x,y+20,263,301,100,120);
ellipse(x+85,y-10,278,305,100,120);
ellipse(x+100,y-62,282,308,90,120);
ellipse(x-50,y-10,277,314,30,120);
ellipse(x+70,y+80,222,266,52,120);
ellipse(x-60,y-45,229,266,52,120);
ellipse(x+79,y-45,229,266,52,120);
ellipse(x+84,y,224,273,52,120);
ellipse(x+110,y+40,240,282,100,120);
ellipse(x+120,y-6,200,340,17,25);
ellipse(x+120,y+7,160,380,17,27);
ellipse(x-70,y+15,140,380,17,20);
}

/*主程序*/
main()
{
int driver=VGA,mode=2;
initgraph(&driver,&mode,"");
cleardevice();
hua(480,90);
setcolor(10);
rectangle(0,0,639,479);
getch();
closegraph();
}

回复列表 (共30个回复)

21 楼

好像不能运行!!

22 楼

怎么不动的花啊,没意思

23 楼

这个问题你这样解决就是了,粘到记事本中另存为"filename.c"就是了,然后在中load过来不就行了 呵呵~~~~~~~~~

24 楼

我想晕啊!!!
不过好像蛮好玩的啰~~

25 楼

好漂亮啊
[em3]

26 楼

好漂亮啊[em3]

27 楼

好漂亮啊

28 楼

好漂亮啊[em3]

29 楼

哈哈,10楼的:真是个好男人~对了,怎么粘贴上去啊,有没有谁晓得?是不是要复制到一个文件中去,再打开~?

30 楼

graphics.h

dos.h
两个头文件有什么做用的啊?

我来回复

您尚未登录,请登录后再回复。点此登录或注册