| 以文本方式查看主題 - 曙海教育集團(tuán)論壇 (http://www.scb-ycwb.com/bbs/index.asp) -- C語言開發(fā) (http://www.scb-ycwb.com/bbs/list.asp?boardid=62) ---- 一個(gè)簡(jiǎn)單的一箭穿心程序 (http://www.scb-ycwb.com/bbs/dispbbs.asp?boardid=62&id=2398) |
| -- 作者：wangxinxin -- 發(fā)布時(shí)間：2010-12-10 10:29:29 -- 一個(gè)簡(jiǎn)單的一箭穿心程序 程序如下： #include<graphics.h> #include<math.h> #define FNX(x1) (int)(x (x1)*sl) #define FNY(y1) (int)(MAXY-(y (y1)*sl)) #define R(theta) 1-pow(cos(1*theta),1) int sl=50,MAXY; float x1,y1,xs,ys,r,theta; /*畫心*/ void draw(int x,int y) { for(theta=0;theta<2*3.14;theta =0.01) {r=R(theta); x1=r*sin(theta);y1=r*cos(theta); xs=FNX(x1);ys=FNY(y1); if(theta==0)moveto(xs,ys);else lineto(xs,ys); } } /*畫箭頭*/ void jian() { line(205,235,200,240); line(200,240,205,245); line(200,240,214,240); line(400,240,500,240); line(485,235,480,240); line(480,240,485,245); line(490,235,485,240); line(485,240,490,245); line(495,235,490,240); line(490,240,495,245); line(500,235,495,240); line(495,240,500,245); line(505,235,500,240); line(500,240,505,245); line(485,235,505,235); line(485,245,505,245); } /*主程序*/ main() {int driver=DETECT,mode; initgraph(&driver,&mode,""); setbkcolor(1); setcolor(4); MAXY=getmaxy(); draw(280,280);/*左心*/ draw(370,280);/*右心*/ jian(); getch(); closegraph(); } 看到大家討論對(duì)編程好不關(guān)系的話題,真的感到失望,如果你不是來學(xué)習(xí)的,請(qǐng)不要回復(fù)本貼,但也看到大家對(duì)于一些人生攻擊的醒悟, 象 Momoass 能用公平的態(tài)度來對(duì)待大家的發(fā)言. converse (創(chuàng)系) 也來勸大家說話和氣. 相信他們這樣的人才有成功的品質(zhì),非常熱情,做事情就需要這樣的人. |