PASCAL/Điều kiện/Case ... Of

Cú pháp

Có hai dạng cấu trúc:

Dạng 1:

CASE <tên biến> OF
     <(dãy) giá trị 1> : <câu lệnh 1>;
     <(dãy) giá trị 2> : <câu lệnh 2>;
     ...
     <(dãy) giá trị N> : <câu lệnh N>;
END;

Dạng 2:

CASE <tên biến> OF
     <(dãy) giá trị 1> : <câu lệnh 1>;
     <(dãy) giá trị 2> : <câu lệnh 2>;
     ...
     <(dãy) giá trị N> : <câu lệnh N>;
     ELSE <câu lệnh>
END;

Lưu ý: phải có câu lệnh END; kết thúc (không có BEGIN).

Thí dụ

CASE thang OF
     1,3,5,7,8,10,12 : ngay:=31;
     4,6,9,11        : ngay:=30;
     2               : if ((nam mod 100=0) and (nam mod 400=0)) or (nam mod 4=0) then ngay:=29 else ngay:=28;
END;
writeln('Tháng ',thang,' năm ',nam,' có ',ngay,' ngày.');

Code	Điều kiện, kết quả, giải thích
CASE thang OF 1,3,5,7,8,10,12 : ngay:=31; 4,6,9,11 : ngay:=30; 2 : if ((nam mod 100=0) and (nam mod 400=0)) or (nam mod 4=0) then ngay:=29 else ngay:=28; END; writeln('Tháng ',thang,' năm ',nam,' có ',ngay,' ngày.');	Điều kiện Nếu biến thang có giá trị là 1; 3; 5; 7; 8; 10 hoặc 12 thì biến ngay sẽ được gán cho giá trị 31. Nếu biến thang có giá trị là 4; 6; 9 hoặc 11 thì biến ngay sẽ được gán cho giá trị 30. Nếu biến thang có giá trị là 2 thì tùy theo kết quả: Nếu (nam mod 100=0) và (nam mod 400=0) hoặc (nam mod 4=0) thì biến ngay được gán giá trị 29 Trường hợp còn lại biến ngay được gán giá trị 28 Kết quả Hiện ra màn hình tùy theo giá trị mà biến được gán.

Học Pascal/Mảng--> Thể loại:Pascal