$\text{Tham khảo}$

$\text{Trong ảnh}$

PASCAL

Câu 1 : 

uses crt;
var a,b,dt,cv : integer;
begin
clrscr;
write('Nhap chieu dai : ');
readln(a);
write('Nhap chieu rong : ');
readln(b);
cv:=((a+b)*2);
dt:=a*b;
writeln('Chu vi la : ',cv);
writeln('Dien tich la : ',dt);
readln
end.

Câu 2 : 

uses crt;
var a,b,c,d,h,cv,dt : real;
begin
clrscr;
write('nhap a : ');
readln(a);
write('nhap b : ');
readln(b);
write('nhap c : ');
readln(c);
write('nhap d : ');
readln(d);
write('nhap h : ');
readln(h);
cv:=a+b+c+d;
dt:=(a+b)*h/2;
writeln('Chu vi hinh thang : ',cv:6:1);
write('Dien tich hinh thang : ',dt:6:1);
readln
end.
Câu 3 :

uses crt;
var a,b,doi : integer;
begin
clrscr;
write('Nhap a : ');
readln(a);
write('Nhap b : ');
readln(b);
doi:=a;
a:=b;
b:=doi;
writeln('Sau khi hoan doi a : ',a);
writeln('Sau khi hoan doi b: ',b);
readln
end.

Câu 4 :

uses crt;
var a,b,c,d : integer;
begin
clrscr;
write('Nhap a : '); readln(a);
write('Nhap b : '); readln(b);
write('Nhap c : '); readln(c);
write('Nhap d : '); readln(d);
write('tong a+b+c+d = ',a+b+c+d);
readln
end.

Câu 5 : 

uses crt;
var a,b,c,d : real;
begin
clrscr;
write('Nhap a : '); readln(a);
write('Nhap b : '); readln(b);
write('Nhap c : '); readln(c);
write('Nhap d : '); readln(d);
write('TBC 4 số  = ',(a+b+c+d)/4:2:2);
readln
end.

Câu 6 : 

Điểm giống hằng và biến :

+ Biến và hằng điều là đại lượng lưu trữ biến 

+ Hai đại lượng này phải khai báo mới sử dụng được 

Điểm khác hằng và biến : 

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

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