Program HINH_CHU_NHAT; Uses Crt; Var a,b,c: real; Begin Clrscr; Writeln(' CHU VI HINH CHU NHAT:'); Writeln('--------------------------------------------------------------'); Write('Nhap chieu dai='); readln(a); Write('Nhap chieu rong=');readln(b); c:=(a+b)*2; Writeln('chu vi hinh chu nhat la:',c:6:2); Readln; End. Chương trình trên dùng để làm gì?

chương trình:

Program HINH_CHU_NHAT;
Uses Crt;
Var a,b,c: real;
Begin
Clrscr;
Writeln(' CHU VI HINH CHU NHAT:');
Writeln('--------------------------------------------------------------');
Write('Nhap chieu dai='); readln(a);
Write('Nhap chieu rong=');readln(b);
c:=(a+b)*2;
Writeln('chu vi hinh chu nhat la:',c:6:2);
Readln;
End.

là chương trình tính chu vi hình chữ nhật

vì nó có công thức tính chu vi hình chữ nhật: c:=(a+b)*2;

=> nhập chiều dài 

=> nhập chiều rộng

=> c := (a + b) * 2

=> Công thức tính chu vi hình chữ nhật

=> Chương trình dùng để tính chu vi hình chữ nhật