Bài giảng nhằm mục tiêu:
1. Kiến thức:
Giúp cho học sinh nắm được ý nghĩa của cấu trúc rẽ nhánh
Học sinh biết được cấu trúc chung của cấu trúc rẽ nhánh và vận dụng đúng cú pháp
2. Kĩ năng:
Bước đầu sử dụng cấu trúc rẽ nhánh If… then… else… trong ngôn ngữ lập trình Pascal để viết chương trình giải quyết được một số bài toán đơn giản.


Giải phương trình bậc nhất dạng ax+b=0
Các bước giải:
Kiểm tra điều kiện a:
Nếu a=0 thì kiểm tra tiếp điều kiện
Nếu b=0 thì phương trình vô số nghiệm
Nếu b ≠ 0 thì phương trình vô nghiệm
Nếu a ≠ 0 thì phương trình có nghiệm x=-b/a

BÀI TOÁN CẦN GIẢI QUYẾT:
Ax + B = 0

ĐƯA VÀO MVT ?
Kết luận nghiệm ?
Vô nghiệm.
X= -b/a.
Vô số nghiệm.
Cấu trúc dùng để mô tả các mệnh đề có dạng như trên là Cấu trúc rẽ nhánh
A = 0 ?
Phương trình VSN
Phương trình có nghiệm X= -B/A
Sai
Đúng
Nhập : A,B
Kết thúc
B = 0 ?
Phương trình VN
Đúng
Sai
I . Cú pháp của lệnh điều kiện IF.
II . Giải quyết bài toán.
III. Trắc nghiệm củng cố kiến thưc
IV. Bài tập vận dụng.
I . Cú pháp của lệnh điều kiện IF.
Cú pháp 1:
 

Cú pháp 2 : 
Chú ý : Lệnh END trước lệnh ELSE không có dấu chấm phẩy " ; "
IF  ( Điều kiện ) THEN 
     BEGIN       
         (Câu lệnh 1) ;
         (Câu lệnh 2) ;
          .....................;
     END ;
 IF  ( Điều kiện ) THEN 
       BEGIN       
                (Câu lệnh 1) ;
                 .....................;
        END
 ELSE
        BEGIN
                (Câu lệnh 2);
                 .....................;
         END;
Sơ đồ tổng quát
Điều kiện biểu thức
Thực thi câu (khối) lệnh sau Then
Thực thi câu (khối) lệnh sau Else
Sai
Đúng
Nhập dữ liệu
Tiếp tục thực thi chương trình
II . Giải quyết bài toán
Viết chương trình nhập từ bàn phím 2 số a,b để giải phương trình bậc nhất dạng ax+b=0.

Giải
Program PTBI;
Var a,b: real;
BEGIN
Write( ` Nhập 2 số a,b : ` ) ;
Readln (a,b);
If (a=0) then
If (b=0) then
Writeln( ‘Phuong trinh co vo so nghiem ’ )
Else
Writeln(‘Phuong trinh vo nghiem!’)
Else
Writeln (‘Phuong trinh co nghiem x = ’ ,-b/a:0:2) ;
Readln ;
End.

Bài giải lập trình trong Pascal
Xuất File
VD: nhập 5,10
Tình huống
Hôm nay tớ có thể đi xem đá banh được rồi
Xí!!! Trời đang trong xanh thế sao mà mưa được!!!
Hình như trời có đám mây đen!!!
Là lá la.. Đi xem đá banh nào!!!Là lá la
Nếu trời mưa thì mình sẽ ở nhà xem TV, nếu trời không mưa thì mình sẽ đi xem đá banh
Cấu trúc Nếu… Thì…, Nếu không… Thì
Câu 1: Cấu trúc câu lệnh điều kiện tổng quát có dạng:

if then ;

if <điều kiện> then < câu lệnh>;

if <điều kiện> then < câu lệnh1>; else < câu lệnh 2>;

if <điều kiện> then < câu lệnh1> else < câu lệnh 2>;

III.Trắc nghiệm củng cố kiến thức
5
4
3
2
1
0
Câu 2: Đoạn code sau sai bao nhiêu lỗi:
VAR a,b: interger;
BEGIN
Write(‘Nhap a,b: ’); Readln(a,b);
If (a>b) Then
Write (‘Max: ’,a);
Eles Write (‘Max: ’,b);
END

III.Trắc nghiệm củng cố kiến thức
5
4
3
2
1
0
IV.Bài tập vận dụng
Câu 1 : Nhập 3 số a, b, c. Hãy tìm giá trị Max của chúng và gán giá trị Max cho biến Max .
Câu 2: Nhập a,b,c giải phương trình bậc 2:
ax2 + bx + c = 0