Duong Tron
procedure doixung;
begin
putpixel(xc+x,yc+y,color);
putpixel(xc-x,yc+y,color);
putpixel(xc+x,yc-y,color);
putpixel(xc-x,yc-y,color);
putpixel(xc+y,yc+x,color);
putpixel(xc-y,yc+x,color);
putpixel(xc+y,yc-x,color);
putpixel(xc-y,yc-x,color);
procedure circle(xc,yc,r: integer);
var x,y:integer;
begin
for x:=0 to round(r&sqrt(2)/2) do
begin
y:=round(sqrt(r*r-x*x));
doixung;
end;
end;
Bạn đang đọc truyện trên: Truyen2U.Com