Giáo án điện tử tin học lớp 11
Em hãy vẽ sơ đồ thuật toán giải phương trình bậc 2 (với a?0)
Nhập a, b, c
Tính Delta = b2 - 4ac
Kiểm tra
Delta < 0
Tính và đưa ra nghiệm
Thông báo vô nghiệm
Kết thúc
Sai
Đúng
Bài 9 - Tiết 11
Giáo án điện tử tin học lớp 11
GV: Nguyễn Thị Oanh
1. Rẽ nhánh
Mời các bạn cùng xem và tìm hiểu các tình huống sau nhé!
ừm, để tớ nghĩ đã.
Nếu ngày mai mưa thì tớ nghỉ.
à! Nếu ngày mai mưa thì tớ nghỉ, nếu không mưa thì tớ đến nhà cậu học nhé.
Này, ngày mai cậu có đi học nhóm không?
A
B
Nếu ... thì
Nếu . thì., nếu không thì .
Cấu trúc dùng để mô tả các mệnh đề có dạng như trên gọi là
cấu trúc rẽ nhánh.
Ví dụ: Giải phương trình bậc hai ax2+bx+c=0 (a?0)
Hãy nêu các bước giải phương trình bậc hai?
Nhập hệ số a,b,c
Tính Delta=b2 - 4ac
Nếu Delta âm thì thông báo PT vô nghiệm, ngược lại tính và đưa ra nghiệm.

IF <Điều kiện> THEN ;
Điều kiện
Đúng

Câu lệnh

Nếu <điều kiện> đúng thì được thực hiện,
sai bị bỏ qua.
Sai
a. Dạng thiếu

Câu lệnh

Đúng

Câu lệnh

Điều kiện
Điều kiện
2. Câu lệnh IF - THEN
- IF, THEN l� cỏc t? khúa
- Điều kiện là biểu thức quan hệ hoặc biểu thức lôgic.
- Câu lệnh là một lệnh của TP.
Trong đó:
Ví dụ:
IF a mod 2=0 THEN Writeln(` a la so chan`);
b. Dạng đủ
IF <Điều kiện> THEN ELSE ;
Điều kiện
Đúng

Câu lệnh 1

Sai

Câu lệnh 2

Nếu <điều kiện> đúng thì được thực hiện,
ngược lại thì được thực hiện.
Điều kiện

Câu lệnh 1


Câu lệnh 2

Điều kiện

Câu lệnh 1

Điều kiện
Ví dụ:
IF a mod 2=0 THEN Writeln(`a là so chan`)
ELSE Writeln(`a la so le`);
Hãy dùng câu lệnh IF - THEN viết lệnh để xét các trường hợp của DELTA
IF Delta<0 THEN Writeln(`Phương trình vô nghiệm`)
ELSE
IF Delta>0 then
Begin
Writeln(`Phuong trinh co 2 nghiem phan biet `);
X1:= (-B + SQRT(Delta))/(2*A);
X2:= (-B - SQRT(Delta))/(2*A);
Writeln(` Nghiem X1= `, X1:5:1);
Writeln(` Nghiem X2= `, X2:5:1);
End;

3. Câu lệnh ghép
Trong TP cho phép gộp nhiều câu lệnh thành một câu lệnh gọi là câu lệnh ghép, có dạng:
BEGIN
< Các câu lệnh>;
END;
IF Delta<0 THEN Writeln(`Phuong trinh vo nghiem`)
ELSE
IF Delta>0 then
BEGIN
Writeln(`Phuong trinh co 2 nghiem phan biet `);
X1:= (-B + SQRT(Delta))/(2*A);
X2:= (-B - SQRT(Delta))/(2*A);
Writeln(` Nghiem X1= `, X1:5:1);
Writeln(` Nghiem X2= `, X2:5:1);
END;
Ví dụ:
C?ng c?
Cấu trúc mô tả các mệnh đề:
"Nếu . thì."
"Nếu . thì .ngược lại."
gọi là cấu trúc rẽ nhánh.
? Lệnh rẽ nhánh dạng thiếu
? Lệnh rẽ nhánh dạng đủ
Câu lệnh ghép
BEGIN
;
END;
IF <điều kiện> THEN ;
IF <điều kiện> THEN
ELSE ;
Trắc nghiệm
Câu 1: Cho biết kết quả hiển thị lên màn hình của đ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);
so lon nhat la: max B. 100
C. so lon nhat la: 100 d. so lon nhat la: 5

Đáp án: Câu C
Trắc nghiệm
Câu 2: Đoạn chương trình sau đưa ra màn hình kết quả gì?
Var a,b: integer;
A:=5; b:=2;
If a>b then write(a+b) ;
7 B. a+b
C. 5+2 D. không in gì cả

Đáp án: Câu A
Trắc nghiệm
Câu 3: Đoạn chương trình sau đưa ra màn hình kết quả gì?
Var a: integer;
A:=7;
If a mod 2=0 then write(‘a la so chan’) else write(‘a la so le’);
a la so chan B. a la so le
C. 7 la so le D. báo lỗi ngữ pháp

Đáp án: Câu B
Trắc nghiệm
Câu 4: Đoạn chương trình sau đưa ra màn hình kết quả gì?
Var m,n: integer;
m:=2; n:=5;
If m7) else write(m);
2 B. 5
C. false D. true

Đáp án: Câu D
Bài tập v? nh�:
Viết câu lệnh rẽ nhánh tính:
1.
2.
Nếu
nếu
nếu
Và
Và
Đáp án:
Bài 1
If (x+2) > 0 and (x+1) <> 0 then
y:= 1 + sqrt(x+2)/(x+1);
Else
Write(‘khong tinh duoc’);
Bài 2
If (sqr(x)+sqr(y)) <=1 then z:= sqr(x) + sqr(y);
Else
if y >= x then z:= x + y
Else
z:= 0.5;