Các câu lệnh thực hiện rẽ nhánh và lặp của Pascal.. Các câu lệnh thực hiện rẽ nhánh và lặp của Pascal.[r]
(1)(2)ChươngưIIIư
Các câu lệnh thực rẽ nhánh lặp Pascal
Các câu lệnh thực rẽ nhánh lặp Pascal
Cấu trúc rẽ nhánh lặp lập trình
Cấu trúc rẽ nhánh lặp lập trình
(3)(4)1 RÏ nh¸nh
ChiềuChiều mai mai nếunếu trời mưatrời mưa thì thì Châu nghỉ nhà Châu nghỉ nhà
ChiềuChiều mai mai nếunếu trời mưatrời mưa thìthì Châu nghỉ nhà Châu nghỉ nhà, , nếu khôngnếu khơng mưa mưa thìthì ChâuChâu sẽ đến nhà Ngọc học nhé.sẽ đến nhà Ngọc học nhé.
Thuộc dạng thiếu
Nếu < điều kiện > < CV>
Nếu< điều kiện> < CV1> khơng thì< CV2>;
(5)Ví dụ: Giải ph ơng trình bậc hai ax
Ví dụ: Giải ph ơng trình bËc hai ax22+bx+c=0 (a+bx+c=0 (a0) 0)
H·y nªu ý
tng giải ph
ơng trình bËc hai?
D:=b*b-4*a*c
D>=0?
Thông báo VN Kết thúc
Tính đưa nghiệm Kết thúc
Nhập a, b, c
Đ S
D>=0? Sơ đồ
- TÝnh Delta=bTÝnh Delta=b2 - 4ac - 4ac
-NÕu
NÕu Delta >=0 Delta >=0 th×th× tínhtính vvàà đưđưa a nghi m ệ
nghi m ệ của PTca PT, , ng ợc lạing ợc lại thụng bỏo PT thông báo PT
(6)IF a mod 2= then
Write(‘a la so chan’)
IF a mod 2= then write(‘a la so chan’) Else Write (‘ a la so le’);
a Dạng thiếu b Dạng
- IF, THEN, ELSE từ khoá. - Điều kiện : biểu thức lôgic.
- Câu lệnh, CL1,CL2: lệnh TP.
Trong đó:
Cấu trúc
VD: Nếu a chia hết cho 2
a la số chẵn
VD:Nếu a chia hết cho a số chẵn Ngược lại a số lẻ.
PASCAL PASCAL
Cấu trúc
If <điều kiện> then <câu lệnh>;
If <điều kiện> then <câu lệnh>; If <điều kiện> then <câu lệnh 1>
else <câu lệnh 2>;
If <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
2 C©u lƯnh IF - THEN
L u ý:- Sau Then sau else chỉ có c©u lệnh chương trình
(7)§iỊu kiƯn
§óng
C©u lƯnh
NÕu
Nếu <<điều kiện>điều kiện> thìthì <<câu lệnhcâu lệnh>> đ ợc thực hiện, đ ợc thực hiện,
sai <sai <câu lệnhcâu lệnh>> bị bỏ qua. bị bỏ qua.
Sai
Câu lệnh Đúng
Câu lệnh
Điều kiện Điều kiện
2 Câu lệnh IF THEN (– Dạng thiếu)
If <điều kiện> then <câu lệnh>;
(8)§iỊu kiƯn
§óng
C©u lƯnh Sai
C©u lƯnh
NÕu
Nếu <<điều kiện>điều kiện> thìthì <<câu lệnh1>câu lệnh1> đ ợc thực hiện, đ ợc thực hiện,
ng ỵc lại ng ợc lại thìthì <<câu lệnh 2>câu lệnh 2> đ ợc thực hiện. đ ợc thực hiện. Điều kiện
Câu lệnh Câu lệnh
Điều kiện
Câu lệnh
Điều kiện
If <iu kiện> then <câu lệnh 1> else <câu lệnh 2>;
If <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
(9)VD2: Kết luận nghiệm PT bậc hai:
IF D<0 THEN writeln(‘phuong trinh vo nghiem’) Else
x1:= (-B + SQRT(Delta))/(2*A); x2:= (-B - SQRT(Delta))/(2*A); Writeln(‘ Nghiem X1= ’, X1:5:1); Writeln(‘ Nghiem X2= ’, X2:5:1 ;
VD1: Tìm số lớn max hai số a b ?
If a>b then max:=a Else max:=b;
Dạng đủ:
If a>b then max:=a;
Dạng thiếu:
(10)3 C©u lƯnh ghÐp
3 C©u lƯnh ghÐp
BEGIN
BEGIN
< Các câu lệnh>;
< Các câu lÖnh>;
END;
END;
BEGIN
BEGIN
< Các câu lệnh>;
< Các câu lệnh>;
END;
END;
IF Delta<0 THEN Writeln(‘
IF Delta<0 THEN Writeln(Ph ơng trình vô nghiệmPh ơng trình vô nghiÖm’)’)
ELSE ELSE
BEGINBEGIN
X1:= (-B + SQRT(Delta))/(2*A);X1:= (-B + SQRT(Delta))/(2*A);
X2:= (-B - SQRT(Delta))/(2*A);X2:= (-B - SQRT(Delta))/(2*A);
Writeln(‘ Nghiem X1= ’, X1:5:1);Writeln(‘ Nghiem X1= ’, X1:5:1);
Writeln(‘ Nghiem X2= ’, X2:5:1);Writeln(‘ Nghiem X2= ’, X2:5:1); END;
END;
(11)C ng củ ố
CÊu tróc chung của cấu trúc rÏ nh¸nh.
Cấu trúc chung q trình thực câu
lƯnh rÏ nh¸nh IF – Then (dạng thiếu v )
Câu lệnh ghÐp
BEGIN
(12)Trắc nghiệm
Trắc nghiệm
Câu 1: Cho biết kết hiển thị lên hình đoạn chương trình sau:
Var a, b,max: word; a:= 100; b:=5;
Max:=a;
If b>a then max:=b;
Write(‘so lon nhat la: ‘, max);
A so lon nhat la: max B 100
(13)Trắc nghiệm
Trắc nghiệm Câu 2: Đoạn chương trình sau đưa hình kết gì?
Var a,b: integer; A:=5; b:=2;
If a>b then write(a+b) ;
A B a+b
C 5+2 D khơng in
(14)Trắc nghiệm
Trắc nghiệm Câu 3: Đoạn chương trình sau đưa hình kết gì?
Var a: integer; A:=7;
If a mod 2=0 then write(‘a la so chan’) else write(‘a la so le’); A a la so chan B a la so le
C la so le D báo lỗi ngữ pháp
(15)Trắc nghiệm
Trắc nghiệm Câu 4: Đoạn chương trình sau đưa hình kết gì?
Var m,n: integer; m:=2; n:=5;
If m<n then write(3<>7) else write(m);
A B
C false D true
(16)Hãy xác định Input Output
của bài?
Ví dụ 1: Tìm số ngày năm N, biết năm nhuận năm chia hÕt cho 400 hc chia hÕt nh ng kh«ng chia hÕt cho 100.
Input: NhËp N tõ bàn phím
Output: Đ a số ngày năm N hình
Nếu N chia hết cho 400 N chia hết cho nh ng không chia hÕt cho 100
(17)Em h·y khai báo biến cho toán trên? Viết điều kiện:
NÕu N chia hÕt cho 400 hc chia hÕt cho nh ng kh«ng chia hÕt cho 100
thì nhận số ngày năm nhuận, ng ợc lại
(18)Bµi tËp v nhề à:
Viết câu lệnh rẽ nhánh tính:
(19)Đáp án:
Bài
If (x+2) > and (x+1) <> then
y:= + sqrt(x+2)/(x+1); Else
Write(‘khong tinh duoc’);
Bài
If (sqr(x)+sqr(y)) <=1 then z:= sqr(x) + sqr(y); Else
if y >= x then z:= x + y Else
(20)