- BigDargon♥ Root ♥
Tổng số bài gửi : 1023
Age : 31
Bạn đến từ : BigDargon's Site
Nghề nghiệp : Học sinh
Tự bạch : http://tinyurl.com/profilebig
Registration date : 18/12/2007
Tìm Tên của năm theo Âm lịch
Wed Nov 19, 2008 7:09 pm
Đề bài :
Nhập vào một năm, đưa ra tên của năm theo Âm lịch
Giải :
Download File .EXE
Download File .PAS
Download File .ZIP
Nhập vào một năm, đưa ra tên của năm theo Âm lịch
Giải :
Download File .EXE
Download File .PAS
Download File .ZIP
- BigDargon♥ Root ♥
Tổng số bài gửi : 1023
Age : 31
Bạn đến từ : BigDargon's Site
Nghề nghiệp : Học sinh
Tự bạch : http://tinyurl.com/profilebig
Registration date : 18/12/2007
Re: Tìm Tên của năm theo Âm lịch
Wed Nov 26, 2008 3:08 pm
- Code:
{Ho tro boi BigDargon's Blog. Moi thac mac vui long lien he Y!M : anhchang_khotinh273}
Program Can_Chi_Power_By_BigDargon;
Uses crt;
Const
Can : Array [0..9] OF String = ('Canh','Tan','Nham','Quy','Giap','At','Binh','Dinh','Mau','Ki');
Chi : Array [0..11] OF String = ('Than','Dau','Tuat','Hoi','Ti','Suu','Dan','Mao','Thin','Ty','Ngo','Mui');
Var Year : Integer;
i,j : Byte;
BEGIN
clrscr;
Begin
Writeln;Write('Moi ban nhap nam duong lich : ');Read(Year);Writeln;
IF Year > 0
THEN
begin
i:= Year MOD 10;
j:= Year MOD 12;
Writeln('******************************************************************');
Writeln;Writeln;
Writeln(' --> Nam ban vua nhap la nam ', Can[ i],' ',Chi[ j] ,' theo am lich');
Writeln;Writeln;
Writeln('******************************************************************');Writeln;
Writeln;Writeln(' _*_*_*_*_*_');Writeln;
Writeln(' Power By BigDargon - HomePages : http://bigdargon.blogspot.com ');Writeln;
Writeln(' _*_*_*_*_*_');Writeln;
Writeln;GotoXY(5,WhereY);
Write(' Nhan Enter de thoat !');Readln
end
ELSE
begin
Writeln('******************************************************************');
Writeln;Writeln;
Writeln(' --> Xin loi ! Nam ban vua nhap khong co theo am lich');
Writeln;Writeln;
Writeln('******************************************************************');Writeln;
Writeln;Writeln(' _*_*_*_*_*_');Writeln;
Writeln(' Power By BigDargon - HomePages : http://bigdargon.blogspot.com ');Writeln;
Writeln(' _*_*_*_*_*_');Writeln;Readln;
Writeln;GotoXY(5,WhereY);Write(' Nhan Enter de thoat !');
end
End;
Readln;
END.
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|