Câu lệnh rẻ nhánh, giúp ta giải quyết rất nhiều bài toán trong ngôn ngữ lập trình nói chung và Pascal nói riêng. Ví dụ: Nếu mình chạy kịp thì cô ta sẽ đồng ý..[r]
(1)Ôn lại kiến thức cũ
•Biểu thức quan hệ tạo thành
thế nào?
Hai biểu thức kiểu liên kết với phép toán quan hệ cho ta biểu thức quan hệ
Ví dụ: X >
(2)Ôn lại kiến thức cũ
•Biểu thức logic tạo thành
nào?
Các biểu thức quan hệ liên kết với phép toán logic
(3)QUY ƯỚC BÀI GIẢNG
Chép
Học sinh trả lời câu hỏi giáo viên
(4)Không biết chạy qua cô ta
khơng nữa?
Nếu chạy khơng lại tiêu
rồi…? Cho anh biết nhé! Nếu đuổi kịp em coi
như em đồng ý , cịn ngược lại anh nên
(5)(6)BÀI CẤU TRÚC RẺ NHÁNH I RẺ NHÁNH:
Câu lệnh rẻ nhánh, giúp ta giải nhiều tốn ngơn ngữ lập trình nói chung Pascal nói riêng
(7)BÀI CẤU TRÚC RẺ NHÁNH II CÂU LỆNH RẺ NHÁNH:
1 Câu lệnh rẻ nhánh dạng thiếu: Cú pháp: IF < điều kiện> THEN
< câu lệnh>; Trong đó:
(8)BÀI CẤU TRÚC RẺ NHÁNH Ví dụ1: cho a=10, b=20 Tính c?
TH1: IF (b mod a = 0) THEN c:= a+b;
TH2: IF (b div a = 0) THEN c:= a+b;
C=30
(9)BÀI CẤU TRÚC RẺ NHÁNH
II CÂU LỆNH RẺ NHÁNH:
2 Câu lệnh rẻ nhánh dạng đủ: Cú pháp: IF < điều kiện> THEN
< câu lệnh 1> ELSE
< câu lệnh 2>; Trong đó:
(10)BÀI CẤU TRÚC RẺ NHÁNH Ví dụ 2: cho a=100, b=20 Tính c?
TH1: IF (b mod a = 0) THEN c:= a+b
ELSE c:= a+b;
TH2: IF (b mod a = 0) THEN c:= a+b;
c:=c+1;
C=120
Đây
câu lệnh ghép
(11)BÀI CẤU TRÚC RẺ NHÁNH II CÂU LỆNH RẺ NHÁNH:
3 Câu lệnh ghép:
- Để thực nhiều câu lệnh lúc Pascal cho ta cú pháp câu lệnh ghép
- Cú pháp:
IF < Biểu thức> THEN Begin
(12)BÀI CẤU TRÚC RẺ NHÁNH III MỘT SỐ VÍ DỤ
VD1: Tìm nghiệm PT bậc 2: ax2+bx+c=0
Ý tưởng:
B1: Tính Delta=b*b-4*a*c;
(13)BÀI CẤU TRÚC RẺ NHÁNH Chương trình Pascal
Program PTB2; Uses crt;
Var a,b,c,delta, x1,x2: real; Begin
write(‘ nhập a, b, c:’); readln(a,b,c); delta:= b*b – 4*a*c;
IF delta< THEN writeln(‘ PT vô nghiệm’) ELSE
Begin
x1:= (-b – sqrt(delta)) / 2*a; x2:= (-b + sqrt(delta)) / 2*a; Writeln( ‘ x1 =‘, x1);
Writeln( ‘ x2 = ‘, x2);
End;
(14)BÀI CẤU TRÚC RẺ NHÁNH
VD2 : Nhập vào năm dương lịch bất kỳ, cho biết năm vừa nhập có nhuần hay khơng
Ý tưởng:
Năm nhuần năm chia hết cho 400
hoặc chia hết cho Nhưng không chia hết cho 100.
(15)BÀI CẤU TRÚC RẺ NHÁNH
Chương trình Pascal
Program NamNhuan; Uses crt;
Var N:Integer; Begin
write(‘ nhập năm dương lịch’); readln(N);
IF ( N mod 400 =0) or ((N mod 4= 0) and (N mod 100 <> ) ) THEN
Write(‘ Năm nhuần’) ELSE
write( ‘ không nhuần’); readln;
Tại không dùng