You are not connected. Please login or register

truyện hay - truyen hay - truyện sắc hiệp - truyện đô thị

Vẽ đồng hồ pascal

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down Thông điệp [Trang 1 trong tổng số 1 trang]


Ban quản trị


Ban quản trị
program VEMATDONGHO;
uses crt,graph;
var
x,y,maxx,maxy,gd,gm,color,i,j,t:integer;
Begin
clrscr;
gd:=detect;
initgraph(gd,gm,'c:\tp7\BGI');
setcolor(5);
rectangle(30,20,610,450);
rectangle(31,21,609,449);
rectangle(32,22,608,448);
setfillstyle(9,2);
bar(33,23,607,447);
setcolor(red);
setbkcolor(red);
for i:=1 to 10 do circle(320,240,i);
setcolor(11);
setbkcolor(white);
for i:= 11 to 80 do circle(320,240,i);
setcolor(14);
setbkcolor(white);
for i:= 80 to 160 do circle(320,240,i);
setcolor(white);
for i:= 160 to 200 do circle(320,240,i);
setcolor(red);
circle(320,240,79);
circle(320,240,80);
settextstyle(7,0,3);
outtextxy(310,40,'12');
outtextxy(405,60,'1');
outtextxy(470,120,'2');
outtextxy(490,200,'3');
outtextxy(480,290,'4');
outtextxy(410,370,'5');
outtextxy(310,400,'6');
outtextxy(210,370,'7');
outtextxy(135,290,'8');
outtextxy(130,210,'9');
outtextxy(155,130,'10');
outtextxy(220,60,'11');
setcolor(red);
settextstyle(4,0,5);
outtextxy(230,100,'DONG HO');
setcolor(random(14));
for i:= 1 to 20 do
circle(320,360,i);
settextstyle(1,0,2);
setcolor(5);
for i:=1 to 20 do
begin
setcolor(random(14));
circle(320,360,i);
end;
for i:= 1 to 20 do
begin
setcolor(random(14));
circle(320,360,i);

end;

Readln;
End.


๑۩۞۩๑[♥๑۩۞۩๑ (¯`•♥Truyện hay♥•´¯) ๑۩۞۩๑[♥๑۩۞۩๑ ๑۩۞۩๑[♥๑۩۞۩๑ (¯`•♥Forumi.com♥•´¯) ๑۩۞۩๑[♥๑۩۞۩๑
Đăng nhập để có 1 link download đúng lol! lol!

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang Thông điệp [Trang 1 trong tổng số 1 trang]

Permissions in this forum:
Bạn không có quyền trả lời bài viết

 
  • Free forum | © PunBB | Free forum support | Liên hệ | Report an abuse | Sosblogs