Top posters
Admin (41075)
41075 Số bài - 95%
kukukakaka (785)
785 Số bài - 2%
alibattuv (736)
736 Số bài - 2%
NTLongHo (549)
549 Số bài - 1%
armata229 (79)
79 Số bài - 0%
60 Số bài - 0%
typhon2 (52)
52 Số bài - 0%
33 Số bài - 0%
29 Số bài - 0%
boy747bhp (22)
22 Số bài - 0%
Top posting users this week
Top posting users this month
Tìm kiếm
Display results as :
Advanced Search

Share
Xem chủ đề cũ hơnGo downXem chủ đề mới hơn
Ban quản trị
Ban quản trị
Chủng tộc : SONGOKU
Tổng số bài gửi : 41075
Độ nổi tiếng : 846
Join date : 14/11/2011
Age : 25
Xem lý lịch thành viênhttp://truyenhay.forumvi.com

Vẽ đồng hồ pascal

on Tue Dec 25, 2012 9:10 am
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ơnVề Đầu TrangXem chủ đề mới hơn
Permissions in this forum:
Bạn không có quyền trả lời bài viết