Nơi trao đổi thông tin Văn Lang
Chào mừng bạn đến với nơi trao đổi thông tin 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 !
Nơi trao đổi thông tin Văn Lang
Chào mừng bạn đến với nơi trao đổi thông tin 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 !
Nơi trao đổi thông tin Văn Lang
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Nơi trao đổi thông tin Văn Lang

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ínhTìm kiếmLatest imagesĐăng kýĐăng Nhập

 

 Game Can Chi

Go down 
Tác giảThông điệp
Admin
Admin
Admin


Posts : 121
Danh tiếng : 6
Join date : 10/11/2014
Age : 22

Game Can Chi Empty
Bài gửiTiêu đề: Game Can Chi   Game Can Chi Icon_minitime21/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
https://forumpascalvanlang.forumvi.com
 
Game Can Chi
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Game oẳn tù tì
» Game Egg.pas
» Game rút cờ
» Game uptowin.pas
» Game Xep_hinh.pas

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