Đang tải... (xem toàn văn)
Nếu điều kiện đúng thì thực hiện câu lệnh.. Ngược lại thì câu lệnh sẽ bị bỏ qua..[r]
(1)Giáo viên: Phạm Giang Nam
Bài CẤU TRÚC RẼ NHÁNH
(2)Câu2: Hãy viết chương trình giải PT bậc ax + b = (a<>0)
Uses crt ;
Var a,b,x : real ; Begin
clrscr ;
writre(‘Nhap a <> 0 ; a=:’); readln(a); writre(‘ Nhap b:’) ; readln(b);
x:= -b/a ;
writre(‘ kq:’,x:8:2) ; readln;
End
KIỂM TRA BÀI CŨ
(3)Ví dụ1:
Châu hẹn với Ngọc ” Chiều mai trời khơng mưa Châu đến nhà Ngọc”
1 RẼ NHÁNH:
Ví dụ2: Lần khác Ngọc lại hẹn Châu:” Chiều mai trời mưa Ngọc đến
nhà Châu, khơng mưa gọi điện cho Châu để trao đổi”
v.v……
Nếu… thì… Nếu …thì …nếu khơng thì…
Bài CẤU TRÚC RẼ NHÁNH
(4)2 CÂU LỆNH IF-THEN:
a) Dạng thiếu:IF <Điều kiện> Then <Câu lệnh>; b) Dạng đủ: IF <Điều kiện> Then <Câu lệnh1>
Else <Câu lệnh 2>;
Điều kiện Điều kiện
: biểu thức điều kiện logic Câu lệnh
Câu lệnh Câu lệnh1
, , :là câu
lệnh của Pascal
Bài CẤU TRÚC RẼ NHÁNH
(5)Sơ đồ khối: (Sơ đồ hoạt động )
Câu lệnh Điều kiện T
F
Câu lệnh
Câu lệnh T
Điều kiện F
Dạng thiếu Dạng đủ
Câu lệnh Điều kiện T
Điều kiện F
Câu lệnh T
Điều kiện
Câu lệnh Điều kiện
F
Bài CẤU TRÚC RẼ NHÁNH
(6)Bài CẤU TRÚC RẼ NHÁNH
KIỂM TRA BÀI CŨ CÁCH THỰC HIỆN CÂU LỆNH IF-THEN:
a) Dạng thiếu:IF <Điều kiện> Then <Câu lệnh>;
Tính tốn kiểm tra điều kiện,
Nếu điều kiện thực câu lệnh Ngược lại câu lệnh bị bỏ qua
b) Dạng đủ: IF <Điều kiện> Then <Câu lệnh1> Else <Câu lệnh 2>;
Tính tốn kiểm tra điều kiện,
(7)Bài CẤU TRÚC RẼ NHÁNH
KIỂM TRA BÀI CŨ
• Ví dụ 1:
Viết câu lệnh đưa số nghiệm phương trình ax2 + bx + c= 0; a<>0 trường hợp
DELTA<0 • Ví dụ 2:
Goi X số nhỏ số A,B cho trước Viết câu lệnh tìm giá trị số X
• Ví dụ 3:
(8)Ví dụ 1:
IF DELTA < THEN WRITELN(‘PT VN,’) ;
Câu lệnh Điều kiện
T
F
DELTA < PT VN
Bài CẤU TRÚC RẼ NHÁNH
(9)Ví dụ2:
IF A < B THEN X:=A ELSE X:=B ;
Câu lệnh
Câu lệnh T
Điều kiện F
A < B X:=A X:=B
Tiết 11 CẤU TRÚC RẼ NHÁNH
(10)Ví dụ 3: Chương trình giải phương trình ax + b = (a,b: tùy ý)
Uses crt;
Var a,b : real ; Begin
clrscr;
write(‘Nhap a,b :’); readln(a,b);
if a<>0 then writeln(‘X=‘,-b/a:8:2 ) else
if b=0 then writeln(‘PT vô số nghiệm) else writeln(‘PT vô nghiệm’);
readln; End
Tiết 11 CẤU TRÚC RẼ NHÁNH
(11)3 CÂU LỆNH GHÉP
BEGIN
<Các câu lệnh> ;
END;
Câu lệnh ghép dùng để gộp dãy câu lệnh thành câu lệnh ghép
Ví dụ: If Delta < then writeln(‘PT VN,’) else BEGIN
X1 := (-B + SQRT(B*B - 4*A*C)/2*A ; X2 := -B/A -X1 ;
END ;
Các câu lệnh
Bài CẤU TRÚC RẼ NHÁNH
(12)CỦNG CỐ:
Bài CẤU TRÚC RẼ NHÁNH
KIỂM TRA BÀI CŨ
a) Dạng thiếu: IF<Điều kiện>Then <Câu lệnh>; b) Dạng đủ: IF <Điều kiện> Then <Câu lệnh1>
Else <Câu lệnh 2>;
CÂU LỆNH IF-THEN:
(13)Bài CẤU TRÚC RẼ NHÁNH
KIỂM TRA BÀI CŨ Hướng dẫn học nhà:
HS chuẩn bị:
Ví dụ1: Viết chương trình giải phương trình ax2 +bx + c= 0; a<>0
Ví dụ2 :
Tìm số ngày năm N, biết năm
(14)Bài CẤU TRÚC RẼ NHÁNH
(15)IV MỘT SỐ VÍ DỤ
Giải PT bậc hai: Ax2 + Bx + C = 0, Với A<>0
INPUT: OUTPUT:
A,B,C
Đưa mà hình nghiệm dịng thông báo nghiệm
Bài CẤU TRÚC RẼ NHÁNH
(16)X1 := (-B + SQRT(D)/2*A ; X2 := -B/A -X1 ;
Bắt đầu
Nhập A, B,C
Tính Dt:=B2 -4AC
PT VN
Kết thúc
T
F
Dt >=
Bài CẤU TRÚC RẼ NHÁNH
(17)Ví dụ2:Tìm số ngày năm N, biết năm nhuận năm chia hết cho 400 chia hết cho không chia hết cho 100
INPUT: OUTPUT:
Nhập N từ bàn phím
Đưa số ngày năm N hình
Bài CẤU TRÚC RẼ NHÁNH
(18)PROGRAM Vi-du2 USES CRT ;
VAR SN,N :INTEGER ;
BEGIN
CLRSCR ;
WRITE(‘Nhap nam N:=’) ; READLN(N) ;
IF (N mod 400 = 0) or ((N mod 4=0) and (N mod 100<>0)) THEN
SN:=366 Else SN:=365 ;
WRITELN(‘So cua nam’ , N,’ la:’ , SN) ;
READLN ;
END
Bài CẤU TRÚC RẼ NHÁNH
(19)Tóm lại:
- Khi cần dùng câu lệnh rẽ nhánh - Cần nắm hai dạng câu lệnh:
+ Dạng thiếu:IF <Điều kiện> Then <Câu lệnh>;
+ Dạng đủ: IF <Điều kiện> Then <Câu lệnh1> Else <Câu lệnh 2>;
Bài CẤU TRÚC RẼ NHÁNH
(20)Bài CẤU TRÚC RẼ NHÁNH
(21)Bài CẤU TRÚC RẼ NHÁNH
Luyện tập:
Bài 1: Nhập vào cạnh hình chữ nhật In hình diện
tích chu vi
Program HINH_CHU_NHAT; Uses Crt;
Var a,b,s,c: real; Begin
Clrscr;
Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’); Writeln(‘ -‘); Write('Nhap chieu dai='); readln(a);
Write('Nhap chieu rong=');readln(b); s:=a*b;
c:=(a+b)*2;
Writeln('Dien tich hinh chu nhat la:’,s:6:2); Writeln('Chu vi hinh chu nhat:',c:6:2); Readln;
(22)BTVN:
Bài CẤU TRÚC RẼ NHÁNH
Nhập vào bán kính hình trịn