DIỄN ĐÀN TRƯỜNG THPT QUỐC OAI

DIỄN ĐÀN TRAO ĐỔI HỌC TẬP, BÀI GIẢNG CỦA HỌC SINH VÀ GIÁO VIÊN TRƯỜNG THPT QUỐC OAI
 
Trang ChínhPortalGalleryTìm kiếmThành viênNhómĐăng kýĐăng NhậpTrợ giúpCalendar

Share | 
 

 biểu đồ cột trong PASCAL

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
jika0

avatar

Tổng số bài gửi : 7
Join date : 09/01/2010
Age : 24
Đến từ : Quoc oai

Bài gửiTiêu đề: biểu đồ cột trong PASCAL   13/1/2010, 5:50 pm

uses crt,Graph;
var Gd,Gm,i,max: integer;
a: array[1..5] of word;
tl: real;
pattern : FillPatternType;
begin
write('nhap 5 so tu nhien:');
for i:=1 to 5 do read (a[i]);
readln;
max:= a[1];
for i:=2 to 5 do if Max < a[i] then Max:= a[i];
tl:= 300/max;
Gd:= detect;
initGraph (Gd,Gm,' ');
GetFillPattern (Pattern);
for i:=1 to 5 do
begin
SetFillPattern (Pattern,i);
bar (i*30+100,400,i*30+120,round (400-a[i]*tl));
end;
readln;
closegraph;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên http://www.me.zing.vn/profile/jika0-vm
 
biểu đồ cột trong PASCAL
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» GTA IV (PC) DVDrip

Permissions in this forum:Bạn không có quyền trả lời bài viết
DIỄN ĐÀN TRƯỜNG THPT QUỐC OAI  :: Lớp 11 :: Tin học-
Chuyển đến