Tìm Tên của năm theo Âm lịch

[BigDargon♥ Root ♥]

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

[BigDargon♥ Root ♥]

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.