Bài 9. Cấu trúc rẽ nhánh

Bài toán
Giáo viên : Huỳnh Tiên Hiếu
Bài toán
I. Bài toán :
Cho 2 số a,b. Hãy cho biết số lớn nhất.
(không cần xét trường hợp a=b)
Ý tưởng giải thuật :
a
b
a lớn nhất
b
b lớn nhất
Phát biểu :
Nếu a lớn hơn b thì a lớn nhất ngược lại b lớn nhất
a
II. Lưu đồ:
Begin
Nhập a,b
a > b
Thông báo
a lớn nhất
Thông báo
b lớn nhất
Lưu đồ
End
III. Lưu đồ tổng quát:
ĐK
Công việc 1
Công việc 2
Phát biểu :
Nếu ĐK đúng thì thực hiện Công Việc 1
Ngượclại thực hiện công việc 2
Luu d? tq
IV. Cú pháp :
Nếu ĐK đúng thì thực hiện Công Việc 1
Ngượclại thực hiện công việc 2
IF
ĐK
THEN
Công việc 1
ELSE
Công việc 2
Cú pháp
IV. Cú pháp :
TỪ KHÓA : IF , THEN , ELSE
ĐK : là biểu thức kiểu Boolean (trả lại giá trị True hoặc False)
CÔNG VIỆC : là một hoặc nhiều lệnh của Pascal
- Nếu công việc từ 2 lệnh trở lên thì các lệnh phải được đặt trong Begin .. End
Lưu ý quan trọng : trước ELSE không có dấu chấm phẩy (;)
Cú pháp
V. Chương trình :
Cho 2 số a,b. Hãy cho biết số lớn nhất.
PROGRAM SOLON;
VAR a,b:integer;
BEGIN
Write(‘Nhap 2 so a , b : ‘);
Readln(a,b);
IF a>b THEN
Writeln(‘a la so lon nhat’)
ELSE
Writeln(‘b la so lon nhat’);
Readln;
END.

PROGRAM SOLON;
VAR a,b:integer;
BEGIN
Write(‘Nhap 2 so a , b : ‘);
Readln(a,b);
IF a>b THEN
Writeln(‘a la so lon nhat’)
ELSE
Writeln(‘b la so lon nhat’);
Readln;
END.

Chuong trình
VI. Bài tập áp dụng :
Viết chương trình nhập vào 2 số a,b. Tính thương số a/b
PROGRAM THUONG;
VAR a,b:integer; t:real;
BEGIN
Write(‘Nhap 2 so a , b : ‘);
Readln(a,b);
IF b<>0 THEN
Begin
t:=a/b;
Writeln(‘Thuong la : ’,t:10:2);
End
ELSE
Writeln(‘Không chia duoc’);
Readln;
END.

Bài t?p AD
VII. Một số dạng đặc biệt:
1. Câu lệnh rẽ nhánh dạng khuyết
Trường hợp Công việc 2 không có thì lệnh có dạng :
IF ĐK THEN
Công việc
2. Câu lệnh rẽ nhánh lồng nhau
IF ĐK1 THEN Công việc 1
ELSE IF ĐK2 THEN Công việc 2 …
D?ng d?c bi?t
VII. Một số dạng đặc biệt:
VD : Viết chương trình giải phương trình bậc I : ax + b =0
PROGRAM PTB1;
VAR a,b:integer; x:real;
BEGIN
Write(‘Nhap 2 he so a , b : ‘);
Readln(a,b);
IF a = 0 THEN
IF b = 0 THEN
Writeln(‘Pt vo so nghiem’)
ELSE
Writeln(‘Pt vo nghiem’)
ELSE
Begin
x::= -b/a;
Writeln(‘Nghiệm x= ’,x:10:2);
End;
Readln;
END.
D?ng d?c bi?t
D?ng d?c bi?t
Bài tập về nhà:
Viết chương trình giải phương trình bậc II :
ax2 + bx + c = 0
D?ng d?c bi?t
Bài t?p VN
D?ng d?c bi?t
Bài t?p VN