Câu 1 :

- Các chương trình đơn giản :

+ Tính chu vi diện tích hình chữ nhật :

uses crt;

var a, b, cv, s : integer;

begin

clrscr;

write('nhap hai canh hinh chu nhat : '); readln(a, b);

cv := (a + b) * 2;

s := a * b;

writeln('chu vi = ', cv);

writeln('dien tich = ', s);

readln

end.

+ Tính chu vi diện tích hình tròn :

uses crt;

var r, cv, s : real;

begin

clrscr;

write('nhap ban kinh r : '); readln(r);

cv := 2 * r * 3.14;

s := r * r * 3.14;

writeln('chu vi = ', cv:2:3);

writeln('dien tich = ', s:2:3);

readln

end.

+ Tính tổng S = 1 + 2 + 3 + ... + N

uses crt;

var i, n, s : integer;

begin

clrscr;

s := 0;

write('nhap so n : '); readln(n);

for i := 1 to n do s := s + i;

write('s = ', s);

readln

end.

Câu 2 :

- Một số kiểu dữ liệu cơ bản :

+ Byte : các số nguyên từ 0 đến 255

+ Integer : số nguyên trong khoảng -32768 đến 32767

+ Real : số thực có giá trị tuyệt đối trong khoảng 1.5x$10^{-45}$ đến 3.4x$10^{38}$ và số 0

+ Char : Một kí tự trong bảng chữ cái

+ String : Xâu kí tự, tối đa gồm 255 kí tự