program Hinh_chu_nhat;

uses crt;

var a, b, S, CV: integer;

begin

clrscr;

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

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

CV:=((a+b)*2);

S:=(a*b);

Writeln('Chu vi hinh chu nhat la :', CV);

Writeln('Dien tich hinh chu nhat la : ', S);

Readln

end.

Đáp án:

program tinh_dien_tich_chu_vi;

uses crt;

var a,b,s,cv:real;

begin

 clrscr;

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

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

cv:=(a+b)*2;

s:=a*b;

writeln('chu vi cua hinh chu nhat la: ',cv,' va dien tich cua hinh chu nhat la: ',s);

readln;

end.

Giải thích:

Xem các lệnh trên, ta thấy đã đủ điều kiện:

a)Khai báo các biến a và b để lưu chu vi và diện tích của hình chữ nhật được nhập từ bàn phím.

b)Khai báo các biến CV và S để lưu chu vi và diện tích của hình chữ nhật

c)Thân chương trình gồm các lệnh :

-Nhập giá trị của các kích thước a và b

-Tính chu vi CV và diện tích S của hình chữ nhật đó

-In ra màn hình giá trị của các biến CV và S đã tính được ở trên.

Cuối cùng bạn chỉ cần nhấn vào file->save->Nhập tên tệp là BTH3_1

Chỉ cần vậy thôi là xong r