viết phương trình tính diện tích và chu vi hình chữ nhật. Với chiều dài và chiều rộng nhập vào từ bàn phím

0 bình luận về “viết phương trình tính diện tích và chu vi hình chữ nhật. Với chiều dài và chiều rộng nhập vào từ bàn phím”

1. uses crt;

   var dai,rong,cv,dt:real;

   begin

   clrscr;

   repeat

   write(‘Chieu dai=’); readln(dai);

   write(‘Chieu rong=’); readln(rong);

   until (dai>0) and (rong>0) and (dai>=rong);

   cv:=(dai+rong)*2;

   writeln(‘Chu vi=’,cv:4:2);

   dt:=dai*rong;

   writeln(‘Dien tich=’,dt:4:2);

   readln;

   end.

   #Học tốt

   Bình luận

2. program ct;

   uses crt;

   var cv,dt,dai,rong:real;

   begin clrscr;

     write(‘nhap chieu dai=’);readln(dai);

     write(‘nhap chieu rong=’);readln(rong);

        dt:=dai*rong;

         cv:=(dai+rong)*2;

      writeln(‘dien tich hinh chu nhat la:’,dt);

      writeln(‘chu vi hinh chu nhat la:’,cv);

   readln

   end.

   Bình luận