# data[].attributes.body
VD:
Xét xem giá trị tại ô A1 có phải là lớn hơn 5 không. Nếu lớn hơn 5 thì trả về giá trị “Đúng” tại ô B1, nếu không lớn hơn 5 thì trả về giá trị “Sai” tại ô B1

Sub KiemTraGiaTri()

If Range(“A1”).Value > 5 Then

Range(“B1”).Value = “Đúng”

Else

Range(“B1”).Value = “Sai”

End If

End Sub

# data[].attributes.body
Phiếu bài tập nhóm 4

# data[].attributes.attachment_link.description
online worksheet for . You can do the exercises online or download the worksheet as pdf.

# data[].attributes.body
VD:

	If d<=0 writeln(‘day la so duong’);
	If a mod 3=0 then writeln(‘a chia het cho 3’)
Else writeln(‘a khong chia het cho 3’);

Ví dụ:

# data[].attributes.body
VD: Viết chương trình tìm nghiệm thực của phương trình bậc hai:

ax²+bx+c = 0 với a ≠ 0.

Program gptb2;
Uses crt;
Var 	a,b,c:real;
	D,X1,X2:real;
Begin
	Clrscr;
	Write(‘a,b,c:’);
Readln(a,b,c);
D:=b*b-4*a*c;
If D<0 then writeln(‘Phuong trinh vo nghiem ’)
Else
	Begin
		X1:=(-b-sqrt(D))/(2*a);
		X2:=-b/a-X1;
Writeln(‘X1=’,X1:8:3,’ X2=’,X2:8:3);
	End;
Readln;
End.

# data[].attributes.body
VD :Chương trình tìm nghiệm của phương trình bậc nhất ax + b=0
PROGRAM vidu2;
VAR a,b,x:real;
BEGIN
Write(‘nhap a,b’); readln(a,b);
IF a<>0 THEN
Begin
X:=-b/a;
writeln(‘phuongtrinh co nghiem  la:’,x:8:2);
End.
ELSE IF b=0 THEN
writeln(‘phuong trinh vo so nghiem’);
Else
writeln(‘phuong trinh vo nghiem’);
Readln;
END.

# data[].attributes.body
* Lưu ý:
- Trong Pascal ta có thể đặt các lệnh ghép con trong các lệnh ghép lớn hơn bao ngoài của nó và có thể hiểu tương tự như cấu trúc ngoặc đơn ( ) trong các biểu thức toán học
- Sau END phải có dấu chấm phẩy (;)

# data[].attributes.body
Cú pháp:
BEGIN
câu lệnh 1;
câu lệnh 2;
.....
câu lệnh n;
END;

* Trong đó:
BEGIN, END là từ khoá
câu lệnh 1, câu lệnh 2, ... câu lệnh n là các câu lệnh đơn bất kỳ.

# data[].attributes.body
Định nghĩa:
- Một nhóm câu lệnh đơn được đặt giữa 2 từ khóa BEGIN và END sẽ tạo thành một câu lệnh ghép

# data[].attributes.body
CỦNG CỐ

# data[].attributes.body
Hoạt động:

Bước 1: Tính giá trị của biểu thức điều kiện.

Bước 2: Kiểm tra giá trị của biểu thức điều kiện

Nếu biểu thức điều kiện có giá trị đúng thì thực hiện câu lệnh sau từ khoá THEN, rồi thoát ra khỏi câu lệnh IF, chuyển đến thực hiện lệnh tiếp theo.

Nếu biểu thức điều kiện có giá trị sai thì thực hiện câu lệnh 2 sau từ khóa ELSE, rồi thoát ra khỏi câu lệnh IF, chuyển đến thực hiện lệnh tiếp theo.

# data[].attributes.body
Lưu ý dấu ; và từ khoá Else

Câu lệnh đứng trước Else thì không được có dấu chấm phẩy ; vì Pascal hiểu là gặp dấu chấm phẩy ; thì kết thúc luôn câu lệnh If.

# data[].attributes.body
Dạng đầy đủ:

If <Điều kiện> Then
    <Công việc 1>
Else
    <Công việc 2>;
* Trong đó:
IF, THEN, ELSE là từ khóa.
Điều kiện: Là biểu thức logic hoặc biểu thức quan hệ.