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

2 câu trả lời

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

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.

Câu hỏi trong lớp Xem thêm
2 lượt xem
2 đáp án
1 giờ trước