1
KIỂM TRA BÀI CŨ
CÂU 1
Viết cấu trúc câu lệnh cho phép
nhập dữ liệu từ bàn phím
CÂU 2
Viết cấu trúc câu lệnh cho phép
Đưa dữ liệu ra màn hình
2
Nhập a
Bài toán 1:
Nhập vào số nguyên dương a.
Viết chương trình kiểm tra xem a có phải
là số chẵn hay không
Nhập a
Đúng
a là số chẵn
a chia hết cho 2
Sai
a không là số chẵn
Kết thúc
3
3
CHƯƠNG III
BÀI 9: CẤU TRÚC RẼ NHÁNH
4
NỘI DUNG BÀI HỌC
 Rẽ nhánh
 Câu lệnh if- then
 Câu lệnh ghép
 Các ví dụ
5
Dạng thiếu:

Nếu … thì…
Dạng đủ:

Nếu … thì… nếu khôngthì…
Nếu các em chú ý bài học thì các em sẽ làm được bài tập
Nếu các em chú ý bài học thì các em làm bài tập được nếu không thì các em không làm được bài tập
1. RẼ NHÁNH
Nếu
thì
Nếu
thì
nếu không thì
6
2. CÂU LỆNH If - then
Để mô tả cấu trúc rẽ nhánh, Pascal dùng câu lệnh if-then
a. Dạng thiếu
Ví dụ
If a mod 2 = 0 then writeln (‘a la so chan’);
If
<Điều kiện>
then
;
Điều kiện: là biểu thức số học
Câu lệnh: là câu lệnh của pascal
7
SAI
ĐÚNG

CÂU LỆNH
ĐIỀU KIỆN
Kết thúc
 Điều kiện được kiểm tra
 Điều kiện đúng thì câu lệnh sau then
được thực hiện rồi kết thúc
 Điều kiện sai thì chương trình đi đến
kết thúc
8
2. CÂU LỆNH If - then
b. Dạng đủ
Ví dụ
If a mod 2 = 0 then writeln (‘a la so chan’)
Else writeln (‘a khong la so chan’);
If
<Điều kiện>
then

Điều kiện: là biểu thức số học
Câu lệnh1, câu lệnh2 : là câu lệnh của pascal
Else
;
9
Kết thúc
 Điều kiện được kiểm tra
 Điều kiện đúng thì câu lệnh 1 được
thực hiện rồi kết thúc
 Điều kiện sai thì câu lệnh 2 được
thực hiện rồi kết thúc
SAI
ĐÚNG

CÂU LỆNH 1
ĐIỀU KIỆN

CÂU LỆNH 2
2. Câu lệnh if-then .
Ví dụ: Viết câu lệnh kiểm tra số nguyên dương N là chẵn hay lẻ
* Dùng câu lệnh if-then dạng thiếu:
if N mod 2 = 0 then writeln(‘N la so chan’);
if N mod 2 <> 0 then writeln(‘N la so le’);
* Dùng câu lệnh if-then dạng đủ:
if N mod 2 = 0 then writeln(‘N la so chan’)
else writeln(‘N la so le’);
11
BÀI TOÁN 2
Nhập vào 2 số nguyên dương M, N.
Viết chương trình đưa ra màn hình số lớn nhất
12
Bắt đầu
Nhập M,N
M = N
M, N bằng nhau
M > N
Số lớn nhất là M
Số lớn nhất là N
Đ
S
Đ
S
Kết thúc
Program solonnhat;
Uses crt;
Var M,N: word;
begin
Writeln( ‘Hay nhap M,N: ’);
Readln( M,N );
if M= N then
writeln ( ‘M, N bằng nhau’)
Else
if M > N then
writeln ( ‘M la so lon nhat’)
Else
writeln ( ‘N la so lon nhat’);
Readln
End.
begin
End;
13
3. CÂU LỆNH GHÉP
Câu lệnh ghép trong Pascal có dạng.
Begin
;
End;
 Câu lệnh,câu lệnh 1, câu lệnh 2 trong
câu lệnh if- then có thể là câu lệnh ghép.
CỦNG CỐ
Trò chơi
TRÒ CHƠI CỦNG CỐ
VÒNG 1
Home
Hãy chọn phương án ghép đúng nhất.
Trong câu lệnh IF <điều kiện> THEN ;
Câu lệnh đứng sau THEN được thực hiện khi?
Di?u ki?n cho giỏ tr? dỳng
Di?u ki?n cho giỏ tr? sai
Khụng c?n xột di?u ki?n
Đáp án
Home
Với cấu trúc IF <điều kiện> THEN ELSE ;
câu lệnh 2 được thực hiện khi?
Biểu thức điều kiện đúng.
Câu lệnh 1 được thực hiện
Biểu thức điều kiện sai
Đáp án
Home
Trong NNLT Pascal, câu lệnh nào sau đây là đúng?
If <điều kiện>; Then :
If <điều kiện> Then ;
If Then
Đáp án
Home
Trong NNLT Pascal, muốn kiểm tra đồng thời cả 3 giá trị của A, B, C có cùng lớn hơn 0 hay không, ta viết câu lệnh If thế nào sau đây là đúng?
If A, B, C > 0 Then.....;
If A >0 AND B >0 AND C >0 Then.....
If (A >0) OR (B >0) OR (C >0) Then......;
If (A >0) And (B >0) AND (C >0) Then..... ;
Đáp án
20
TRÒ CHƠI CỦNG CỐ
VÒNG 2
21
Trong NNLT Pascal, c�u l?nh n�o sau d�y l� d�ng?

Câu 5
A. If a = 5 Then
a := d +1;
Else
a := d +2;
C. If a = 5 Then
a := d +1
Else
a := d +2;
B. If a = 5 Then
a = d +1
Else
a = d +2;
22
6
A.
If a = 5 Then
a := d +1;
b := 2
Else
a := d +2;
B.
If a = 5 Then
Begin
a :=d +1;
b :=2;
End
Else
a := d +2.
C.
If a = 5 Then
Begin
a :=d +1;
b :=2
End;
Else
a := d +2;
D.
If a = 5 Then
Begin
a :=d +1;
b :=2;
End;
Else
a := d +2;
23
7
A.
If a = 5 Then
a := d +1;
b := 2
Else
a := d +2;
B.
If a = 5 Then
Begin
a :=d +1;
b :=2;
End
Else
a := d +2.
C.
If a = 5 Then
Begin
a :=d +1;
b :=2;
End;
Else
a := d +2;
D.
If a := 5 Then
Begin
a :=d +1;
b :=2;
End;
Else
a := d +2;
24
A. M= 10
B. M =12
C. M nh?n c? 2 gi� tr? tr�n
D. M khơng nh?n gi� tr? n�o
Trong NNLT Pascal, hãy cho biết giá trị của M
sau khi thực hiện đoạn chương trình sau với a=10 và b = 12?
M := a;
If M < b Then M := b;
B. M =12
8
TRÒ CHƠI CỦNG CỐ
VÒNG 3
VIẾT CHƯƠNG TRÌNH
- Nhập vào số kí điện S (xài hàng tháng).
Viết chương trình đưa ra màn hình số tiền
cần phải trả T.
Với T được tính như sau
 100 kí đầu được tính với giá m1/kí
 Từ kí 101 trở về sau tính giá m2/kí