Câu 1:

- Trong lập trình, biến là tên của vùng nhớ được dùng để lưu trữ dữ liệu và dữ liệu được biến lưu trữ có thể thay đổi trong khi thực hiện chương trình.

- Hằng là một công cụ lưu trữ dữ liệu. Là một đại lượng có giá trị không đổi trong suốt chương trình.

Câu 2:

* Tính diện tích hình chữ nhật

program dthcn;

var 

a, b, c : integer;

begin

Write ('Nhap chieu dai:'); read (a);

Write ('Nhap chieu rong:'); read (b);

s := a * b;

Write ('Dien tich hinh chu nhat la:',s);

Readln

End.

* Tính diện tích hình thang

program dtht;

var

a, b, h:Integer;

s:real;

begin

Write('Nhap day lon:');readln(a);

Write('Nhap day nho:');readln(b);

Write('Nhap chieu cao:');readln(h);

s:=((a+b)*h)/2;

WriteLn ('Dien tich hinh thang la:',s);

Readln

End.

* Tính diện tích tam giác

program dttg;

var

a, h : integer;

s : real;

begin

Write ('Nhap chieu cao:'); read (h);

Write ('Nhap day:'); read (a);

s := 1/2 * a * h;

Write ('Dien tich tam giac la:',s);

Readln

End.

* Tính diện tích hình bình hành

program dthbh;

var

a, h : integer;

s : real;

begin

Write ('Nhap chieu cao:'); read (h);

Write ('Nhap day:'); read (a);

s := a * h;

Write ('Dien tich hinh binh hanh la:',s);

Readln

End.

* Tính diện tích hình vuông

program dientich; 

uses crt; var S,a:integer; 

begin 

Writeln('nhap a'); 

Readln(a); 

S:=a*a; 

Writeln('ketqua',S); 

Readln; 

End.

- Biến :

+ Đại lượng lưu trữ giá trị

+ Giá trị biến thay đổi trong quá trình thực hiện chương trình

+ Biến phải được khai báo trước khi sử dụng

- Hằng :

+ Đại lượng lưu trữ giá trị

+ Giá trị hằng không thay đổi trong quá trình thực hiện chương trình

+ Hằng phải được khai báo trước khi sử dụng

- Hình chữ nhật :

uses crt;

var a, b, s : integer;

begin

clrscr;

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

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

s := a * b;

writeln('dien tich hinh chu nhat la :', s);

readln

end.

- Hình tam giác :

uses crt;

var a, b, c, p, s : real;

begin

clrscr;

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

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

write('nhap canh c :');readln(c);

p := (a + b+ c) /2;

s := sqrt(p * (p -a) * (p - b) * (p  - c));

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

ln

end.

- Hình thang :

uses crt;

var dl, db, h, s : real;

begin

clrscr;

write('nhap chieu cao :');readln(h);

write('nhap day lon :');readln(dl);

write('nhap day be :');readln(db);

s := (dl + db)/ 2 * h;

writeln('dien tich hinh thang la :', s:3:2);

readln

end.

- Hình bình hành :

uses crt;

var a, b, s : integer;

begin

clrscr;

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

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

s := a * b;

writeln('dien tich hinh binh hanh  la :', s);

readln

end.

- Hình vuông :

uses crt;

var a, s : integer;

begin

clrscr;

write('nhap chieu dai canh a  :');readln(a);

s := a * a;

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

readln

end.