admin
Administrators
Tổng số bài gửi : 39
Points : 147
Reputation : 0
Join date : 04/09/2010
Age : 32
Đế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.
| |
|
