Choïn N: Leänh n; END; - Đầu tiên biểu thức chọn được tính trị, nếu trị đó nằm trong chọn nào, thì câu lệnh sau chọn đó sẽ thực hiện, nó sẽ kiểm tra từ trên xuống, nếu không có chọn nào [r]
(1)CAÂU LEÄNH CASE … OF 1/ Caâu leänh Case … of … end Có dạng: CASE <Biểu thức chọn> OF Choïn 1: Leänh 1; Choïn 2: Leänh 2; Choïn N: Leänh n; END; - Đầu tiên biểu thức chọn tính trị, trị đó nằm chọn nào, thì câu lệnh sau chọn đó thực hiện, nó kiểm tra từ trên xuống, không có chọn nào thỏa, chöông trình seõ keát thuùc maø khoâng laøm gì caû 2/ Caâu leänh Case … of … else … end; CASE <Biểu thức chọn> OF Choïn 1: Leänh 1; Choïn 2: Leänh 2; Choïn N: Leänh n; Else Caâu leänh; END; - Đầu tiên biểu thức chọn tính trị, trị đó nằm chọn nào, thì câu lệnh sau chọn đó thực Nó kiểm tra từ trên xuống, không có chọn nào thỏa, thì chương trình thực lệnh sau Else VD: Program Case_of; Var x: integer; Begin Write(‘Moi ban nhap so cua thang:’); Readln(x); Case (x) of 1: Writeln(‘Day la thang Gieng’); 2: Writeln(‘Day la thang Hai’); 3: Writeln(‘Day la thang Ba’); 4: Writeln(‘Day la thang Tu’); 5: Writeln(‘Day la thang Nam’); 6: Writeln(‘Day la thang Sau’); 7: Writeln(‘Day la thang Bay’); 8: Writeln(‘Day la thang Tam’); 9: Writeln(‘Day la thang Chin’); 10: Writeln(‘Day la thang Muoi’); 11: Writeln(‘Day la thang Muoi mot’); (2) 12: Writeln(‘Day la thang Muoi hai’); Else Writeln(‘Khong co thang nay!’); End; Readln; End * Trong caâu leänh Case … of cuûa Pascal, neáu nhieàu choïn coù cuøng moät giaù trò, chuùng ta có thể gộïp lại Khi đó có dạng: CASE <Biểu thức> OF <Danh saùch 1>: S1; <Danh saùch 2>: S2; <Danh saùch n>: Sn; Else Caâu leänh; END; - <Biểu thức> phải có trị thuộc kiểu rời rạc Integer, Char, Boolean - <Danh sách 1> … <Danh sách n> liệt kê các trị cùng kiểu với biểu thức, các giá trị ngăn cách dấu phẩy - Caùc caâu leänh S1 … Sn coù theå laø moät leänh, laø caâu leänh khoái, caùc caâu leänh laëp, caâu leänh ñieàu khieån If vaø cuõng coù theå laø moät caâu leänh Case - Khi thực hiện, trị <Biểu thức> đối chiếu với các danh sách vế trái, tìm danh sách trị đầu tiên có chứa trị <Biểu thức>, câu lệnh tương ứng vế phải thực và phát biểu Case kết thúc Nếu không có, thông báo caâu leänh sau Else VD: In soá ngaøy coù thaùng Program Tinhngaycuathang; Var T:1…12; Begin Write(‘Moi ban nhap vao mot thang:’); Readln(T); Case T of 2: Writeln(‘Thang Hai co 28 ngay’); 4,6,9,11: Writeln(‘Thang ’,T,’ co 30 ngay’); 1,3,5,7,8,10,12: Writeln(‘Thang ‘,T,’ co 31 ngay’); Else Writeln(‘Khong co thang nay!’); End; Readln; End (3) Nhaän xeùt: Phaùt bieåu Case laø moät daïng goïn cuûa phaùt bieåu If Moïi phaùt bieåu Case coù thể viết dạng phát biểu If Nên dùng Case lựa chọn nhiều trường hợp (4)