Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !

Diễn đàn tin học Văn Lang - Vạn Ninh

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 Ứng dụng vẽ cây thông Noel

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

Posts : 113
Danh tiếng : 5
Join date : 10/11/2014
Age : 16

Bài gửiTiêu đề: Ứng dụng vẽ cây thông Noel   21/1/2015, 10:06

uses crt;
const s='*';
var a,b,c,x,y:integer;
procedure inngon(dong,x,y:integer);
var i,j,m:integer;
begin
for i:=1 to dong do
begin
if i=1 then m:=1
else m:=m+2;
gotoxy(x,y);
for j:=1 to m do
write(s);
x:=x-1;
y:=y+1;
end;
end;

procedure inthan(dong,ngon,x,y:integer);
var i:integer;
begin
for i:=1 to dong do
begin
gotoxy(x-2,y+ngon);
write(s,s,s,s,s);
y:=y+1;
end ;
end;

procedure inday(dong,ngon,than,x,y:integer);
var i,j:integer;
begin
for i:=1 to dong do
begin
gotoxy(x-((ngon*2-1) div 2),y+ngon+than);
for j:=1 to ngon*2-1 do
write(s);
y:=y+1;
end;
end;

begin
clrscr;
x:=40;y:=1;
write('H ngon =');readln(a);
write('H than =');readln(b);
write('H goc =');readln(c);
inngon(a,x,y);
inthan(b,a,x,y);
inday(c,a,b,x,y);
readln;

end.
Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
 
Ứng dụng vẽ cây thông Noel
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Bàn ăn Giáng sinh lung linh ánh nến
» XimuoiWin's House
» Đố các bạn về giáng sinh
» xin chart đón noel
» có ai có chart mũ ông già Noel không ạ?

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Các chương trình lớn viết bằng Pascal-
Chuyển đến