Cấu trúc rẽ nhánh (tt) CASE OF II – Câu lệnh lựa chọn CASE OF Cú pháp: CASE OF : ; : ; …………………………………… : ; ELSE ; END; Trung tâm tin học Thanh N iên Ví dụ đơn giản Var num : byte; Begin write(’ Hay nhap so tu den 3: ’); readln(num); case num of : writeln(’Ban da nhap so MOT’); : writeln(’Ban da nhap so HAI’); : writeln(’Ban da nhap so BA’); else writeln(’Ban khong nhap so tu den 3’); end; End Trung tâm tin học Thanh N iên Nhập tháng năm, viết chương trình cho biết số ngày tháng Biết: Tháng 1,3,5,7,8,10,12 có 31 ngày Tháng 4,6,9,11 có 30 ngày Tháng năm nhuận có 29 ngày, ngược lại có 28 ngày (năm nhuận năm chia hết cho 400 chia hết cho mà không chia hết cho 100) Trung tâm tin học Thanh N iên Program Tinh_so_ngay_cua_thang; Var songay, thang, nam : integer; Begin write(’Nhap thang va nam can tinh: ’); readln(thang, nam); case thang of 4,6,9,11 : songay := 30; : if (nam mod 400 = 0) or ((nam mod =0) and (nam mod 100 0)) then songay :=29 else songay:=28; else songay := 31; end; Write(’Thang ’, thang,’Nam ’, nam,’ co ’, songay); Trung tâm tin học Thanh N End iên ...II – Câu lệnh lựa chọn CASE OF Cú pháp: CASE OF : ; : ; …………………………………… ... Thanh N iên Ví dụ đơn giản Var num : byte; Begin write(’ Hay nhap so tu den 3: ’); readln(num); case num of : writeln(’Ban da nhap so MOT’); : writeln(’Ban da nhap so HAI’); : writeln(’Ban da nhap... songay, thang, nam : integer; Begin write(’Nhap thang va nam can tinh: ’); readln(thang, nam); case thang of 4,6,9,11 : songay := 30; : if (nam mod 400 = 0) or ((nam mod =0) and (nam mod 100 0))