Để tính chu vi và diện tích hình chữ nhật cần biết được chiều dài và chiều rộng hình chữ nhật

Cũng như công thức tính

cv = (d + r)*2

s = d*r

Nên

Chương trình là

Program Cvdtchunhat;

Uses crt;

Var s, cv, d, r: integer;

BEGIN

clrscr;

  Write('Nhap chieu dai :');  Readln(d);

  Write('Nhap chieu rong :');  Readln(r);

  cv:= (d + r)*2;

    s:= d*r;

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

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

Readln;

END.

program chuvi_dientich;

uses crt;

var cv,dt,d,r:real;

begin

clrscr;

write('nhap dai: ');raedln(d);

write('nhap rong: ');readln(r);

cv:=(d+r)*2

dt:=(d*r);

writeln('chu vi: ',cv:5:2);

writeln('dien tich: ',dt:5:2);

raedln;

end.

®bài đã được cục xuất bản chứng thực bản quyền vui lòng không sao chép®