Tròn>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

MIDline TRòn

uses crt,graph;
var xi,yi,Ri:integer;
var xp,yp,xq,yq:integer;
procedure khoitao;
var gd,gm:integer;
Begin
gd:=detect;
initgraph(gd,gm,'D:\tp\bgi');
if graphresult <>grok then
Begin
writeln('Loi khoi tao do hoa, kiem tra lai duong dan!');
halt(1);
End;
End;
procedure dunghinh;
Begin
repeat until keypressed;
End;
procedure ketthuc;
Begin
closegraph;
End;
procedure put8px(x,y,xc,yc,c:integer);
Begin
putpixel(x+xc,y+yc,c);
putpixel(-x+xc,y+yc,c);
putpixel(x+xc,-y+yc,c);
putpixel(-x+xc,-y+yc,c);
putpixel(y+xc,x+yc,c);
putpixel(-y+xc,x+yc,c);
putpixel(y+xc,-x+yc,c);
putpixel(-y+xc,-x+yc,c);
End;
procedure MidCircle(xt,yt,Rt,mt:integer);
var x,y:integer;
P:real;
Begin
putpixel(xt+10,yt,white);
outtextxy(xt,yt,'I');
x:=0;
y:=Rt;
P:=1.25-rt;
put8px(x,y,xt,yt,mt);
while x<y do
Begin
if P<0 then
P:=P+2*x+3
else
begin
P:=P+2*(x-y)+5;
y:=y-1;
end;
x:=x+1;
put8px(x,y,xt,yt,mt);
End;
End;
procedure Nhaptron(var x,y,r:integer);
Begin
writeln('Nhap thong so cho duong tron!');
Write('Tam I(x,y= ');readln(x,y);
Write('Ban kinh R= ');readln(r);
End;

BEGIN
clrscr;
Nhaptron(xi,yi,ri);
khoitao;
Midcircle(xi,yi,ri,yellow);
dunghinh;
ketthuc;
END.
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Tô màu tròn

uses graph, crt;
var xi,yi,ri,i,n:integer;
procedure init;
var gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'d:\tp\bgi');
if graphresult <> grok then
begin
writeln(' loi khoi tao do hoa, ktra lai duong dan!');
halt;
end;
end;
{*****DUNG HINH XEM KET QUA*********}
procedure dunghinh;
begin
repeat until keypressed;

end;
{*****DONG MAN HINH*******}
procedure donghinh;
begin
closegraph;
end;
{******TO MAU*******}
procedure tomau(x,y,xt,yt:integer);
begin
setcolor(blue);
line(-x+xt+1,y+yt,x+xt-1,y+yt);
line(-x+xt+1,-y+yt,x+xt-1,-y+yt);
line(-y+xt+1,x+yt,y+xt-1,x+yt);
line(-y+xt+1,-x+yt,y+xt-1,-x+yt);
end;
{***T.TOAN DUONG TRON***}
procedure put8pixel(x,y,xt,yt,m:integer);
begin
putpixel(x+xt,y+yt,m);
putpixel(x+xt,-y+yt,m);
putpixel(-x+xt,y+yt,m);
putpixel(-x+xt,-y+yt,m);
putpixel(y+xt,x+yt,m);
putpixel(y+xt,-x+yt,m);
putpixel(-y+xt,x+yt,m);
putpixel(-y+xt,-x+yt,m)
end;
procedure M(xtam,ytam,r,m:integer);
var x,y:integer;
p:real;
begin

x:=0; y:=r;
p:=1.25-r;
put8pixel(x,y,xtam,ytam,m);
tomau(x,y,xtam,ytam);
while(x<y) do
begin
if p<0 then p:=p+2*x+3
else
begin
p:=p+2*(x-y)+5;
y:=y-1;
end;
x:=x+1;
put8pixel(x,y,xtam,ytam,m);
tomau(x,y,xtam,ytam);
end;
putpixel(xtam,ytam,m-1);
setcolor(white);
outtextxy(xtam+10,ytam,'I');
end;
{*******NHAP TOA DO**********}
procedure nhap(var xtam,ytam,r:integer);
begin
writeln('nhap thong so duong tron');
write('I(x,y)=');
readln(xtam,ytam);
write('nhap ban kinh r=');
readln(r);
end;

{******CHUONG TRINH CHINH********}
begin
nhap(xi,yi,ri);
init;
M(xi,yi,ri,red);
dunghinh;
donghinh;;
end.
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Bóng nảy

uses crt,graph;
{----------------------khoi tao do hoa---------------------------- }
procedure Khoitao;
var gd,gm:integer;
Begin
gd:=detect;
initgraph(gd,gm,'d:\tp\bgi');
if graphresult <> grok then
Begin
writeln('Loi khoi tao do hoa, kiem tra lai duong dan');
readln;
halt(1);
End;
End;
{------------Dung Hinh----------------}
procedure DungHinh;
Begin
repeat until keypressed;
End;
{---------ket thuc do hoa----}
procedure Ketthuc;
Begin
closegraph;
End;
{----------------Ve duong tron---------------}
procedure put8px(x,y,xt,yt,m:integer);
Begin
putpixel(x+xt,y+yt,m);
putpixel(-x+xt,y+yt,m);
putpixel(x+xt,-y+yt,m);
putpixel(-x+xt,-y+yt,m);
putpixel(y+xt,x+yt,m);
putpixel(-y+xt,x+yt,m);
putpixel(y+xt,-x+yt,m);
putpixel(-y+xt,-x+yt,m);
End;
procedure Mid_Circle(xi,yi,r,c:integer);
var x,y:integer;
P:real;
Begin
putpixel(xi,yi,c);
outtextxy(xi+10,yi,'I');
x:=0;
y:=r;
P:=1.25-r;
put8px(x,y,xi,yi,c);
while x<y do
Begin
if P<0 then P:=P+2*x+3
else
begin
P:=P+2*(x-y)+5;
y:=y-1;
end;
x:=x+1;
put8px(x,y,xi,yi,c);
End;
End;
{____________Bong nay______________________}
procedure bongnay(r:integer);
var i:integer;
Begin
for i:=r to getmaxy-r do
begin
Mid_circle(round(getmaxx/2),i,r,yellow);
delay(20);
cleardevice;
end;
for i:=getmaxy-r downto r do
begin
Mid_circle(round(getmaxx/2),i,r,yellow);
delay(20);
cleardevice;
end;
End;
{---------------CHUONG TRINH CHINH---------------------}
BEGIN
khoitao;
repeat
bongnay(100);
until keypressed;
dunghinh;
ketthuc;
END.