admin Administrators
Tổng số bài gửi : 39 Points : 147 Reputation : 0 Join date : 04/09/2010 Age : 33 Đến từ : nam định
| | code ve hinh elip bang thuat toan lam tron | |
program thuat_toan_ve_elip; uses graph,crt; var gd,gm: integer; {----------------------------------------------------} procedure put4pixel(x1,y1,x,y:integer); begin putpixel(x1+x,y1+y,red); putpixel(x1-x,y1+y,yellow); putpixel(x1+x,y1-y,blue); putpixel(x1-x,y1-y,green); end; {thu tuc ve duong tron} procedure round_elip(x1,y1,a,b:integer); var y:real; x:integer; begin line(x1-a,y1,x1+a,y1); line(x1,y1-b,x1,y1+b); x:=0; y:=b; repeat put4pixel(x1,y1,x,round(y)); x:=x+1; y:=b*sqrt(1-(sqr(x)/sqr(a))); delay(50); until x=a; end; {--------------------------------------------------------} begin gd:=0; initgraph(gd,gm,'d:\bp\bgi'); round_elip(300,300,100,50); readln; closegraph; end.
| |
|