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 | 
 

 Game Can Chi

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 đề: Game Can Chi   21/1/2015, 10:03

program canchi;
var
Nam : integer;
Can : String[5];
Chi : String[5];
begin
repeat
write('Nhap vao so nam : ');
readln(Nam);
until (Nam>0);

{ Kiem tra Nam chia cho 10 du may de lua chon ra gia tri cua Can }
case (Nam mod 10) of
0 : Can := 'Canh';
1 : Can := 'Tan';
2 : Can := 'Nham';
3 : Can := 'Quy';
4 : Can := 'Giap';
5 : Can := 'At';
6 : Can := 'Binh';
7 : Can := 'Dinh';
8 : Can := 'Mau';
9 : Can := 'Ky';
end;

{ Kiem tra nam chia cho 12 du may de lua chon ra gia tri cua Chi }
case (Nam mod 12) of
0 : Chi := 'Than';
1 : Chi := 'Dau';
2 : Chi := 'Tuat';
3 : Chi := 'Hoi';
4 : Chi := 'Ti';
5 : Chi := 'Suu';
6 : Chi := 'Dan';
7 : Chi := 'Mao';
8 : Chi := 'Thin';
9 : Chi := 'Ty';
10 : Chi := 'Ngo';
11 : Chi := 'Mui';
end;

writeln('Nam ',Nam,' la nam ',Can,' ',Chi);

readln

end.
Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
 
Game Can Chi
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Boom Online - Game đặt bom sặc nước online vui nhộn Ò.Ó~
» »[Game] Ý nghĩa tên nick
» CDOV - CongDongOtakuViet.Com - Thế giới tin tức Anime, Manga, Game, Vocaloid, Music, Cosplay,...
» [Game android] Trọn bộ 10 game android tổng hợp hay nhất
» [flash Game][Game collection] BAKUGAN : Mechtanium Surge

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