IV. Các bƣớc lập trình
c. Lệnh nhập dữ liệu từ bàn phím:
4.3. 1 Cú pháp: có 2 dạng: (1)Case <BT> of
(1) Case <BT> of TH1: CL1; TH2: CL2; … THn: CLn; Else CLn+1; End; 4.3.2. Giải thích:
BT ký hiệu cho biểu thức; TH1, TH2, …THn ký hiệu cho các tập hằng; CL1, CL2,…CLn, CLn+1 ký hiệu cho các câu lệnh.
4.3.3. Ý nghĩa:
(1) Tuỳ thuộc vào giá trị của biểu thức <BT> thuộc vào tập hằng nào mà máy tính sẽ thực hiện câu lệnh tương ứng. Nếu không sẽ thực hiện CLn+1;
(2) Tương tự dạng (1), chỉ khác ở chỗ nếu giá trị của biểu thức không thuộc tập hằng nào cả thì máy sẽ không thực hiện câu lệnh nào cả trong thân lệnh CASE và sẽ thoát. 4.3.4. Sơ đồ hoạt động: F F F T T GTBT € TH1 GTBT € TH2 GTBT € THn CL1 CLn CL2 … T T F F F T T GTBT € TH1 GTBT € TH2 GTBT € THn CL1 CLn CL2 CLn+1 … Dạng (1) (2)Case <BT> of TH1: CL1; TH2: CL2; … THn: CLn; End;
4.3.5 Chú ý:
(1). Giá trị của BT phải có cùng kiểu với các phần tử của tập hằng và phải là kiểu vô hướng đếm được.
(2). Tập hằng có thể là một giá trị, một tập hợp các giá trị, và thậm chí là một kiểu dữ liệu (kiểu đoạn con, liệt kê)
(3). Lệnh CASE có thể được thay thế bởi nhiều lệnh IF lồng nhau và ngược lại lệnh IF cũng có thể được thay thế bằng lệnh CASE. Ví dụ IF dạng (1) có thể được thay thế bằng:
CASE <BTLG> OF True: CL1; False: CL2; END;
Tuy nhiên sử dụng lệnh Case hay If là tuỳ vào từng bài toán cụ thể.
4.3.6 Các ví dụ:
Ví dụ 1: Viết chương trình nhập vào một số n bất kỳ trong đoạn [0..255] và thông báo lên màn hình:
- Câu thông báo: ‗Day la ky tu dieu khien‘ (nếu n<32)
- Câu thông báo: ‗là ky tu thong dung‘ (nếu 127≥ n ≥32);
- Câu thông báo: ‗la ky tu dac biet‘ (nếu n ≥ 128 );
Hướng dẫn:
- Khai báo biến n kiểu byte để nhập dữ liệu.
- Nhập n
- Dùng lệnh CASE để phân chia các trường hợp theo n và thông báo kết quả lên màn hình theo yêu cầu.
Chương trình
Var n: byte; Begin
Write (‘Nhap so n (0<=n<=255) : ’); readln(n); CASE n of
0..31: Writeln (‘Day la ky tu dieu khien’); 32..127: Writeln (chr(n), ‘la ky tu thong dung’); 128..255: Writeln (chr(n), ‘la ky tu dac biet’; END;
135
Ví dụ 2: Viết chương trình nhập vào tháng t (12 ≥t≥1), có thể nhập thêm năm sau đó in lên màn hình số ngày của tháng đó.
Hướng dẫn:
Khai báo biến t kiểu byte để nhập tháng; biến n kiểu số nguyên để nhập năm; biến sn kiểu byte để chứa số ngày của tháng.
- Nhập t.
- Dùng lệnh CASE để phân chia các trường hợp theo t:
t € [1, 3, 5, 7, 8, 10, 12] thì sn: = 31;
t € [2, 4, 6, 9] thì sn: = 30;
t =2 thì nhập thêm năm n, nếu n là năm nhuận thì sn: = 29, ngược lại sn:= 28;
- Thông báo kết quả sn lên màn hình.
Chương trình:
Var t, sn: byte; n: Integer; Begin
Write (‘Nhap so thang t (1<=t<=12) : ’); Readln (t); CASE t of
1, 3, 5, 7, 8, 10, 12: sn:= 31; 4, 6, 9, 11: sn:=30;
2: Begin Write (‘Nhap nam:’); Readln (n); If n mod 4 = 0 then sn:=29 Else sn:=28; End;
ELSE Writeln(‘khong co thang do’); END;
If t<=12 then Writeln(‘so ngay cua thang’, t,’la:’,sn); Readln
End.