*Dạng thiếu:

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

VD: if a>b then write(a);

HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì kết thúc.

*Dạng đủ:

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

VD: if a>b then write(a) else write(b);

HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh 1 ngược lại thực hiện câu lệnh 2 và kết thúc.

*Dạng thiếu:

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

VD: if a>b then write(a);

HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì kết thúc.

*Dạng đủ:

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

VD: if a>b then write(a) else write(b);

HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh 1 ngược lại thực hiện câu lệnh 2 và kết thúc.

Dạng thiếu

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

*Dạng thiếu:

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

VD: if a>b then write(a);

HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì kết thúc.

*Dạng đủ:

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

VD: if a>b then write(a) else write(b);

HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh 1 ngược lại thực hiện câu lệnh 2 và kết thúc.

cú pháp: if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

cách thực hiện:

 Dạng đủ: Chương trình sẽ kiểm tra điều kiện nếu điều kiện đúng thì  làm câu lệnh 1 sau đó làm câu lệnh tiếp theo, nếu điều kiện sai thì chương trình sẽ bỏ qua câu lệnh 1 và làm câu lệnh 2 sau đó làm câu lệnh tiếp theo.

Vd: Câu lệnh sau:uses crt;

var i,n: integer;

begin

clrscr;

writeln('nhap i: '); readln(i);

writeln(nhap n: '); readln(n);

if i>5 then writeln(i) else writeln(n);

{trong trường hợp này nếu nhập i lớn hơn 5 thì sẽ xuất i ra màn hình nếu không thì xuất n ra màn hình.}

Cú pháp: if <điều kiện> then <câu lệnh 1>

else <câu lệnh 2>;

Vd: If a[i] mod 2=0 then inc(dem)

else inc(dem1);

Tham khảo

*Dạng thiếu:

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

VD: if a>b then write(a);

HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì kết thúc.

*Dạng đủ:

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

VD: if a>b then write(a) else write(b);

Cú pháp

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

Cách hoạt động: nếu điều kiện đúng thì sẽ thực hiện câu lệnh còn nếu điều kiện sai thì sẽ không thực hiện được và sẽ dừng chương tình

Cú pháp của câu lệnh điều kiện:

if <điều kiện> do <câu lệnh 1>

else <câu lệnh 2>;

Cú pháp của câu lệnh lặp với số lần chưa biết trước:

While <điều kiện> do 

<câu lệnh>;

Cú pháp của câu lệnh lặp với số lần biết trước:

For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

cú pháp: if <điều kiện> then <câu lệnh>;

- Cấu trúc:

IF <Điều kiện> THEN<Câu lệnh>;

- Sơ đồ khối:

Câu 2: 

-Bước 1: s←0; i←1;

-Bước 2: s←s+i;

-Bước 3: i←i+1;

-Bước 4: Nếu i<=100 thì quay lại bước 2

-Bước 5: Xuất s

-Bước 6: Kết thúc

Câu 3:

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> 

else <câu lệnh>;

Câu 4: 

uses crt;

var m,n:integer;

begin

clrscr;

write('Nhap m='); readln(m);

write('Nhap n='); readln(n);

if (m mod 2=0) and (n mod 2=0) then writeln('Ca hai cung la so chan')

else if (m mod 2<>0) and (n mod 2<>0) then writeln('Ca hai cung la so le')

else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so chan')

else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so chan')

else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so le')

else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so le');

readln;

end.

Câu 5: 

uses crt;

var a,b,c:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);

if (a=b) and (a<>c) and (b<>c) then writeln('Tam giac can')

else if (b=c) and (a<>b) and (a<>c) then writeln('Tam giac can')

else if (c=a) and (c<>b) and (a<>b) then writeln('Tam giac can')

else if (a=b) and (b=c) then writeln('Tam giac deu')

else writeln('Day khong phai la tam giac deu hay tam giac can');

readln;

end.

Cú pháp:

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