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ách thức :

-hoạt động của câu lệnh dạng đủ là chương trình sẽ kiểm tra điều kiện , nếu đúng thì chương trình thực hiện câu lệnh 1 , ngược lại chương trình sẽ thực hiện câu lệnh 2

2) 

-hoạt động của câu lệnh dạng thiếu là chương trình sẽ kiểm tra,nếu điều kiện đúng ,chương trình sẽ thực hiện , nếu điều kiện sai sẽ bỏ qua và kết thúc

3)

3. Tính Chất Và Dấu Hiệu Nhận Biết Hình Chữ Nhật

* Tính chất

- Hai đường chéo trong hình chữ nhật bằng nhau, cắt nhau tại trung điểm của mỗi đường.
- Có đầy đủ tính chất của hình bình hành và hình thang cân.
- Hai đường chéo trong hình chữ nhật cắt nhau tạo ra 4 tam giác cân.

* Dấu hiệu

- Tứ giác có 3 góc vuông 
- Hình thang cân có một góc vuông
- Hình bình hành có một góc vuông hoặc có hai đường chéo bằng nhau

4. Công Thức Suy Rộng

Từ công thức tính diện tích, chu vi hình chữ nhật ở trên, bạn dễ dàng suy ngược công thức tính chiều dài, chiều rộng khi biết được diện tích, chu vi, 1 cạnh:

* Cho diện tích, chiều dài 1 cạnh

- Biết chiều rộng: Chiều dài = Diện tích : Chiều rộng
- Biết chiều dài: Chiều rộng = Diện tích : Chiều dài

* Cho chu vi, chiều dài 1 cạnh

- Biết chiều rộng: Chiều dài = P: 2 - chiều rộng
- Biết chiều dài: Chiều rộng = P: 2 - chiều dài

4)

uses crt;

var a,cv,dt:integer;

begin

clrscr;

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

cv:=a*4;

dt:=sqr(a);

if a>0 then

begin

writeln('chu vi hinh vuong la: ',cv);

writeln('dien tich hinh vuong la: ',dt);

end

else writeln('vui long nhap so a lon hon 0');

readln;

end.

C1:

cú pháp: if<đk> then <câu lệnh 1>;

mô tả: nếu điều kiện đúng thì câu lệnh 1 đc thực hiện còn nếu sai thì thôi

C2:

XĐBT:

INP: a và b

OUT: chu vi và diện tích hình A

Thuật toán:

B1: nhập a và b

B2: C<--(a+b)*2     S<--a*b

B3: xuất ra màn hình S và C

Vt chg trình:

uses crt;

var a,b,S,C:integer;

begin

write('nhap a:');readln(a);

write('nhap b:');readln(b);

C:=(a+b)*2;

S:=a*b;

writeln('CV=',C);

writeln('DT=',S);

readln;

end.

C3:

uses crt;

var a:integer;

begin

write('nhap a:');readln(a);

if (a mod 7)=0 then writeln('Co chia het cho 7') else writeln('Ko chia het cho 7');

readln;

end.