Question

Viết chương trình tính chu vi , diện tích hình chữ nhật

Answer 1

Program Chu_Nhat_Program;
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:6:2); Writeln(‘Chu vi hinh chu nhat:’,c:6:2); Readln;

End.

Answer 2

Program Hinhchunhat;

Uses Crt;

Var a,b,cv,s: real;

Begin

Clrscr;

Write('Nhap chieu dai a='); Readln(a);

Write('Nhap chieu rong b='); Readln(b);

cv:=(a+b)*2;

s:=a*b;

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

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

Readln;

End.

Có gì sai thì mong bạn sửa lại và thông cảm cho mình nha