Giúp với ạ. Viết chương trình nhập từ bàn phím 2 số nguyên a và b là 2 cạnh của hình chữ nhật. Tính chu vi hình chữ nhật và kết quả in ra màn hình.

0 bình luận về “Giúp với ạ. Viết chương trình nhập từ bàn phím 2 số nguyên a và b là 2 cạnh của hình chữ nhật. Tính chu vi hình chữ nhật và kết quả in ra màn hình.”

1. Program HINH_CHU_NHAT;

   Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’);

   Writeln(‘————————————————‘); Write(‘Nhap chieu dai=’); readln(a);

   Write(‘Nhap chieu rong=’);readln(b); s:=a*b; c:=(a+b)x2;

   Writeln(‘Dien tich hinh chu nhat la:’,s:6:2); Writeln(‘Chu vi hinh chu nhat:’,c:6:2); Readln;

   Bình luận

2. Program HINH_CHU_NHAT;

   Uses Crt;

   Var a,b,s,c: real;

   Begin

   Clrscr;

   Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’);

   Writeln(‘————————————————————–‘);

   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.

   Bình luận