. : All For One's Forums : .
Xin khai báo tên truy cập và mật khẩu để tham gia diễn đàn. Nếu không có tài khoản hãy nhấn vào nút Đăng Kí.

Hỗ trợ bởi BigDargon (http://big.321.cn)

Share
Xem chủ đề cũ hơnGo downXem chủ đề mới hơn
♥ Root ♥
♥ Root ♥
Nam
Tổng số bài gửi : 1023
Age : 25
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
Xem lý lịch thành viênhttp://bigdargon.blogspot.com/

Bình Thường Tìm Tên của năm theo Âm lịch

on 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

_________________
---------- . : ^_^ Chào cả nhà ! ^_^ : . ----------
♥ Root ♥
♥ Root ♥
Nam
Tổng số bài gửi : 1023
Age : 25
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
Xem lý lịch thành viênhttp://bigdargon.blogspot.com/

Bình Thường Re: Tìm Tên của năm theo Âm lịch

on 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.

_________________
---------- . : ^_^ Chào cả nhà ! ^_^ : . ----------
Xem chủ đề cũ hơnVề Đầu TrangXem chủ đề mới hơn
Permissions in this forum:
Bạn không có quyền trả lời bài viết