-IF A>B THEN WRITELN(B);=> DẠNG THIẾU

-IF A>B THEN WRITELN(B) ELSE WRITELN(A);=>DẠNG ĐỦ

- VAR

- A DIV B; A MOD B

- (A*A)+(A*B)+(B*B)

-A2+A*B+B2

- PROGRAM TINH_TONG;

USES CRT;

VAR A,B:INTEGER;

BEGIN

CLRSCR;

 WRITELN('NHAP A');READLN(A);

WRITELN('NHAP B');READLN(B);

WRITELN(A+B);

READLN

END.

-PROGRAM TINH_HINH_CHU_NHAT;

USES CRT;

VAR A,B:INTEGER;

BEGIN

CLRSCR;

 WRITELN('NHAP A');READLN(A);

WRITELN('NHAP B');READLN(B);

WRITELN(A*B);

READLN

END.

Câu `3.`

-Cú pháp câu điều kiện dạng thiếu:

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

Cú pháp câu điều kiện dạng đủ:

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

Nếu điều kiện đúng thì thực hiện câu lệnh 1 , ngược lại , nếu điều kiện sai thì chuyển qua thực hiện câu lệnh 2

-Cú pháp khai báo biến:

Var <tên biến>:<kiểu dữ liệu của biến>;

Var là từ khóa của pascal

integer:khai báo với kiểu dữ liệu số nguyên

real:khai báo với kiểu dữ liệu số thực

string:khai báo với kiểu dữ liệu xâu

VD khai báo biến x với kiểu dữ liệu số nguyên

Var x:integer;

-Phép chia lấy phần nguyên là div m phép chia lấy phần dư là mod

VD:5 mod 2 = 1 vì 5:2=2 dư 1

5 div 2=2 vì 5:2=2 dư 1

-Chuyển biểu thức toán học sang pascal

VD:`(2+(a+b)^2)/(2)`

Pascal:(2+(a+b)*(a+b))/2

Dấu `xx` trong toán học là dấu * trong pascal , dấu : trong toán học là dấu / trong pascal , trong pascal chỉ sử dụng ( đối với việc chuyển biểu thức toán học sang pascal.

Chương trình tính tổng hai số nguyên bất kì nhập từ bàn phím:

uses crt;
Var a,b,tong:integer;
Begin
clrscr;
Write('Nhap la luot hai so nguyen bat ki: ');Readln(a,b);
tong:=a+b;
Write('Tong hai so nguyen bat ki do la: ',tong);
Readln
end.

Chương trình tính diện tích hình chữ nhật.

uses crt;
var a,b,S:integer;
Begin
clrscr;
Write('Nhap lan luot chieu dai va chieu rong: ');Readln(a,b);
S:=a*b;
Write('Dien tich hinh chu nhat do la: ',S);
Readln
end.