Nhập độ dài 2 cạnh của hình chữ nhật . Hãy tính diện tích và chu vi

2 câu trả lời

program Hinh_chu_nhat;

uses Crt;

var a,b,s,c: real;

Begin

       clrscr;

       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:  ’,s:6:2);

       writeln('Chu vi hinh chu nhat:  ',c:6:2);

       readln
End.

uses crt;
Var a, b, S, CV: real;
Begin      

Write('Nhap chieu dai:'); readln(a);      
Write('Nhap chieu rong:'); readln(b);    

 S := a*b;      CV := (a+b)*2;    
 Writeln('Dien tich hinh chu nhat la:',S);      
Writeln('Chu vi hinh chu nhat la:',CV:10:2);      

readln;
end.

Câu hỏi trong lớp Xem thêm