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

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
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