Cấu trúc if then

Câu lệnh if then
1.Cú pháp, ý nghĩa
Dạng 1: IF < BT lôgic> THEN <công việc>;
Dạng 2: IF < BT lôgic> THEN< Công việc 1>
ELSE <công việc 2>;
Trong đó:
IF, THEN, ELSE: là các từ khoá của TP.
<BT lôgic>: là biểu thức chỉ nhận 1 trong 2 giá trị là
đúng( True) hoặc sai( False).
<công việc>: là một lệnh hay một dãy các lệnh trong TP, nếu
có từ 2 lệnh trở nên thì phải để trong cặp từ khoá BEGIN..END.
BT lôgic là gì?
Các phép toán gì
trả về kết quả
kiểu lôgic?
If, then, else là
gì?
Từ khoá là gì?

BT l«gic
C«ng viÖc 1
C«ng viÖc 2
T
F
D¹ng 2:

4. Ví dụ minh hoạ

VD1:Viết chương trình nhập 3 số nguyên từ bàn phím và in ra màn
hình số lớn nhất.
Dữ liệu vào và ra
của bài toán là gì?
Để tìm số lớn nhất
của 2 số ta làm
thế nào?
Program max3so;
Var a,b,c,max: integer;
Begin
Write( nhap a= ); readln(a);
Write( nhap b= ); readln(b);
Write( nhap c= ); readln(c);
Max:=a; { gia su so lon nhat ban dau la a}
if b>max then max:=b;
if c>max then max:=c;
writeln( so lon nhat trong 3 so la:, max);
readln;
End.
Viết chương
trình tìm số lớn
nhất của 5 số?
Thay 2 câu lệnh if
then bằng câu lệnh
rẽ nhánh đầy đủ if
then else có được
không?

VD2: ViÕt ch­¬ng tr×nh gi¶i PT: ax+b=0
§©y cã ph¶i

PTBN kh«ng?
D÷ liÖu vµo /ra
cña bµi to¸n lµ
g×?
Program PT_bacnhat;
Var a,b:real;
Begin
Write(‘ nhap he so a=‘); readln(a);
Write(‘ nhap he so b= ‘); readln(b);
If a<>0 then Writeln(‘ PT co nghiem x=‘,-b/a:6:2)
Else
If b=0 then writeln(‘ vo so nghiem‘)
Else writeln(‘ vo nghiem ‘);
Readln;
End.

5. Chó ý
- C©u lÖnh If‘Then‘else co thÓ lång nhau.
Cã thÓ sö dông liªn tiÕp c¸c c©u lÖnh If then else .
-Tr­íc else kh«ng cã dÊu chÊm phÈy.
- Ph©n biÖt khi nµo sö dông if‘then vµ khi
nµo sö dông if‘then ‘ else.