Chương trình sau đây tính chu vi, diện tích của hình chữ nhật( chu vi, diện tích, chiều dài, chiều rộng là số thực; chiều dài, chiều rộng được nhập vào từ bàn phím). Hãy tìm ra lỗi trong chương trình và sửa lại cho đúng. Đặt tên chương trình bằng tên người thực hiện. Progam hinh chu nhat; uses crt var chd, chr, chuvi, dientich:read; begin clrscr; writeln<‘nhap chieu dai hinh chu nhat:’); readln(chd); writeln(‘nhap chieu rong hinh chu nhat:’); readln(chr) chuvi=(chd+chr)*2; dientich=chd*chr; writeln(‘Chu vi hinh chu nhat la:’chuvi:10:2); writeln(‘Dien tich hinh chu nhat la:, dientich:10:2); readln; end.

Progam hinh chu nhat;

uses crt        // Thiếu dấu ; ở cuối.

var chd, chr, chuvi, dientich:read; // Không có kiểu dữ liệu read;

begin

clrscr;

writeln<‘nhap chieu dai hinh chu nhat:’);  // Sai dấu mở ngoặc.

readln(chd);

writeln(‘nhap chieu rong hinh chu nhat:’);

readln(chr) chuvi=(chd+chr)*2;  // Sau readln(chr) thiếu dấu ;

dientich=chd*chr;

writeln(‘Chu vi hinh chu nhat la:’chuvi:10:2);  // thiếu dấu , trước chuvi:10:2.

writeln(‘Dien tich hinh chu nhat la:, dientich:10:2); // thiếu dấu ' sao ‘Dien tich hinh chu nhat la:

readln;

end.

Sửa lại:

uses crt;

var chd, chr, chuvi, dientich:real; 

begin

clrscr;

writeln(‘nhap chieu dai hinh chu nhat:’);  

readln(chd);

writeln(‘nhap chieu rong hinh chu nhat:’);

readln(chr); chuvi=(chd+chr)*2; 

dientich=chd*chr;

writeln(‘Chu vi hinh chu nhat la:’,chuvi:10:2);  

writeln(‘Dien tich hinh chu nhat la:', dientich:10:2); 

readln;

end.