1. Câu lệnh điều kiện có 2 loại dạng thiếu và dạng đủ

-Cú pháp:

Dạng thiếu:

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

Dạng đủ:

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

-Cách sử dụng: 

+ Sử dụng trong các chương trình có nhiều câu lệnh 

...

-Sơ đồ khối:

Dạng thiếu:

     |Điều kiện

     |      |

Sai|      | Đúng

     |      |

     |Câu lệnh

Dạng đủ:

  Điều kiện

     |                     |

Sai|                     | Đúng

     |                     |

Câu lệnh 1     Câu lệnh 2

VD:

Viết chuong trình nhập vào 2 số, kiểm tra xem số vừa nhập là số âm hay số dương và in ra màn hình

Program bai_lam;

uses crt;

var a,b:integer;

Begin

Write('nhap gia tri cho a');readln(a);

Write('nhap gia tri cho b');readln(b);

If a>0 then write('a la so duong');

                   else ('a la so am');

If b>0 then write('b la so duong');

                   else ('b la so am');

Readln;

End.

3.

Program bai_lam;

uses crt;

var a,b:integer;

Begin

Write('nhap gia tri cho a');readln(a);

Write('nhap gia tri cho b');readln(b);

If a>b then write('a la so lon nhat');

                   else ('b la so lon nhat')

Readln;

End.

4.

Program bai_lam;

uses crt;

var a,b:integer;

Begin

Write('nhap gia tri cho a');readln(a);

Write('nhap gia tri cho b');readln(b);

If a mod 2 =0 then write('a la so chan');

                   else ('a la so le');

If b mod 2 = 0 then write('b la so chan');

                   else ('b la so le');

Readln;

End.

1)

Có 2 loại câu điều kiện

$\underline{Thiếu}$

$\textit{if <điều kiện> then < câu lệnh>;}$

$\textit{hoạt động}$

Chương trình xét điều kiện, nếu điều kiện đúng thì thực hiện câu lệnh, nếu điều kiện sai thì bỏ qua câu lệnh

$\underline{đủ}$

$\textit{if <điều kiện> then < câu lệnh 1> else < câu lệnh 2;}$

$\textit{hoạt động}$

Chương trình xét điều kiện, nếu điều kiện đúng thì thực hiện câu lệnh 1, nếu điều kiện sai thì thực hiện câu lệnh 2

2)

write('nhap n: ');

readln(n);

if n>0 then writeln('HOP LE')

else writeln('KHONG HOP LE');

3)

uses crt;

var a,b:byte;

begin

clrscr;

write('a,b=?');

readln(a,b);

if a>b then writeln(a)

else writeln(b);

end.

4)

uses crt;

var a:longint;

c:string;

begin

clrscr;

write('a');

readln(a);

if a mod 2=0 then c:='CHAN'

else c:='LE';

writeln(c);

readln

end.