Bài 1: Nhập vào 2 cạnh của một hình chữ nhật. In ra màn hình diện tích và chu vi của nó. (Em hãy xem các câu lệnh sau đây đã chính xác chưa? nếu chưa em hãy chỉnh sửa cho hoàn thiện) Program HINH_CHU_NHAT Uses Crt; Var a,b s c: real; Begin Clrscr; Writeln(' TINH DIEN TICH & CHU VI HINH CHU NHAT:'); Write('Nhap chieu dai=') readln(a); Write('Nhap chieu rong=') readln(b); s:=a*b. c:=(a+b)*2. Writeln('Dien tich hinh chu nhat la:'); Writeln('Chu vi hinh chu nhat:') Readln; End

2 câu trả lời

các câu lệnh vẫn chưa chính xác:

sửa lại CT:

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

Program HINH_CHU_NHAT;

Uses Crt;

Var a,b,S,C: real;

Begin

clrscr;

Writeln ('Nhap vao chieu dai HCN: '); 

Readln (a);

Writeln ('Nhap vao chieu rong HCN: ');

Readln (b);

S:=a*b;

C:=(a+b)*2;

Writeln ('Dien tich HCN la: ', S);

Writeln ('Chu vi HCN la: ', C);

readln;

end.