Bài tập điều kiện 4

Thu Jul 04, 2024 10:48 am

Đề bài:Nhập vào một năm dương lịch kể từ sau công nguyên (năm 1) và cho biết tên của năm âm lịch tương ứng (gồm Can và Chi). Ví dụ: nhập năm 1976 thì xuất năm Bính Thìn; năm 2011 thì xuất năm Tân Mão; năm 2020 thì xuất năm Canh Tý.
Hướng dẫn:
Tính Can: Lấy năm dương lịch chia nguyên cho 10 và xét phần dư:
dư 0 can là Canh
dư 1 can là Tân
dư 2 can là Nhâm
dư 3 can là Quý
dư 4 can là Giáp
dư 5 can là Ất
dư 6 can là Bính
dư 7 can là Đinh
dư 8 can là Mậu
dư 9 can là Kỷ

Tính Chi: Lấy năm dương lịch chia nguyên cho 12 và xét phần dư:
dư 0 chi là Thân
dư 1 chi là Dậu
dư 2 chi là Tuất
dư 3 chi là Hợi
dư 4 chi là Tý
dư 5 chi là Sửu
dư 6 chi là Dần
dư 7 chi là Mão
dư 8 chi là Thìn
dư 9 chi là Tỵ
dư 10 chi là Ngọ
dư 11 chi là Mùi
~~GIẢI:~~

Code:: program nam2; uses crt; var y:longint;{y:=year} can,chi:string; begin clrscr; write('Nhap nam duong lich: '); readln(y); case y 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; case y mod 12 of 0 :chi := 'Than'; 1 :chi := 'Dau'; 2 :chi := 'Tu?t'; 3: chi := 'Hoi'; 4: chi := 'Ty'''; 5 :chi := 'Suu'; 6: chi := 'Dan'; 7 :chi := 'Mao'; 8: chi := 'Thin'; 9 :chi := 'Ti'; 10: chi := 'Ngo'; 11 :chi := 'Mui'; end; write('Nam ',y,' ung voi nam ',can,' ',chi); readln; end.