Học Pascal/Câu Lệnh Rẽ Nhánh – Wikibooks Tiếng Việt

Trang chủ » Trong Turbo Pascal Cấu Trúc If » Học Pascal/Câu Lệnh Rẽ Nhánh – Wikibooks Tiếng Việt

Có thể bạn quan tâm

Bước tới nội dung

Nội dung

chuyển sang thanh bên ẩn
  • Đầu
  • 1 If...Then...
  • 2 If...Then...else...;
  • 3 Case...Of...End;
  • Sách
  • Thảo luận
Tiếng Việt
  • Đọc
  • Sửa đổi
  • Xem lịch sử
Công cụ Công cụ chuyển sang thanh bên ẩn Tác vụ
  • Đọc
  • Sửa đổi
  • Xem lịch sử
Chung
  • Các liên kết đến đây
  • Thay đổi liên quan
  • Tải lên tập tin
  • Thông tin trang
  • Chú thích trang sách này
  • Tạo URL rút gọn
  • Tải mã QR
In/xuất ra
  • Tạo một quyển sách
  • Tải dưới dạng PDF
  • Tải về bản in
Tại dự án khác Giao diện chuyển sang thanh bên ẩn Tủ sách mở Wikibooks < Học Pascal

Mệnh lệnh xét điều kiện để thực thi một việc

If...Then...

[sửa] IF<điềukiện>THEN<câulệnh>; {NẾU <điều kiện đúng> THÌ thực hiện <câu lệnh >;}

Trong đó:

  • <điều kiện> là một biểu thức logic.
  • <câu lệnh> là một câu lệnh đơn hoặc câu lệnh kép.

VD:

Code Kết quả, giải thích
If1+1>2thenwrite('Hôm nay mặt trời mọc đằng Tây!');

Kết quả: Giải thích:

Do 1+1=2 → vì 2 không lớn hơn 2 nên không thoả điều kiện. Do đó, không có câu lệnh nào được thực hiện.
m:=1; ifm=1thenwrite('Tháng 1 có 31 ngày');

Kết quả:

Tháng 1 có 31 ngày

Giải thích:

Do m thật sự bằng 1 → Điều kiện thoả mãn nên câu lệnh sau THEN được thực hiện.

If...Then...else...;

[sửa] IF<điềukiện>THEN<câulệnh1>ELSE<câulệnh2>; {NẾU <điều kiện đúng> THÌ thực hiện <câu lệnh 1> NẾU KHÔNG THÌ thực hiện <câu lệnh 2>;}

Trong đó:

  • <điều kiện> là một biểu thức logic.
  • <câu lệnh 1>, <câu lệnh 2> là một câu lệnh đơn hoặc câu lệnh kép.

Case...Of...End;

[sửa]

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

  • Dạng 1:
CASE<tênbiến>OF <(dãy)giátrị1>:<câulệnh1>; <(dãy)giátrị2>:<câulệnh2>; ... <(dãy)giátrịN>:<câulệnhN>; END;
  • Dạng 2:
CASE<tênbiến>OF <(dãy)giátrị1>:<câulệnh1>; <(dãy)giátrị2>:<câulệnh2>; ... <(dãy)giátrịN>:<câulệnhN>; ELSE<câulệnh> END;

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

VD: Xét xem tháng ... năm ... có bao nhiêu ngày.

CASEthangOF 1,3,5,7,8,10,12:ngay:=31; 4,6,9,11:ngay:=30; 2:if((nammod100=0)and(nammod400=0))or(nammod4=0)thenngay:=29elsengay:=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
CASEthangOF 1,3,5,7,8,10,12:ngay:=31; 4,6,9,11:ngay:=30; 2:if((nammod100=0)and(nammod400=0))or(nammod4=0)thenngay:=29elsengay:=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-->

Lấy từ “https://vi.wikibooks.org/w/index.php?title=Học_Pascal/Câu_lệnh_rẽ_nhánh&oldid=503223” Thể loại:
  • Pascal
Tìm kiếm Tìm kiếm Đóng mở mục lục Học Pascal/Câu lệnh rẽ nhánh Thêm ngôn ngữ Thêm đề tài

Từ khóa » Trong Turbo Pascal Cấu Trúc If