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ó. Giúp e ạ

0 bình luận về “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ó. Giúp e ạ”

1. 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

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(‘ 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.

   Đừng quên chọn câu tlhn cho mình nha

   Bình luận