b. Lệnh CASE .. OF * Cách viết, ý nghĩa: Cách viết Ý nghĩa CASE OF Xét giá trị của biểu thức chọn GT1 : Công việc 1 ; Nếu có giá trị 1 (GT1) thì thi hành Công việc 1 ....................... ................................... (R) http://rubiall.tk GTi : Công việc i ; Nếu có giá trị i (GT i) thì thi hành Công việc i ....................... .................................... (R) http://rubiall.tk ELSE Công việc 0 ; Nếu không có giá trị nào thỏa thì thực hiện Công việc 0 END; Ghi chú: - Lệnh CASE .. OF có thể không có ELSE - Biểu thức chọn là kiểu rời rạc như Integer, Char, không chọn kiểu Real - Nếu muốn ứng với nhiều giá trị khác nhau của biểu thức chọn vẫn thi hành một lệnh thì giá trị đó có thể viết trên cùng một hàng cách nhau bởi dấu phẩy (,) : Giá trị k1, k2, ..., kp : Lệnh k ; Ví dụ 6.14: PROGRAM Chon_mau ; VAR color : char ; BEGIN write (' Chọn màu theo một trong 3 ký tự đầu là R / W / B ') ; readln ( color) ; CASE color OF 'R' ,'r' : write (' RED = màu đỏ ') ; 'W', 'w' : write (' WHITE = màu trắng ') ; 'B' , 'b' : write (' BLUE = màu xanh dương ') ; END ; Readln; END.