Viết chương trình Free pascal tính diện tích và chu vi hình chữ nhật ABCD với cạnh AB=5.5m và CD=2.5m.In kết quả ra màn hình.

2 câu trả lời

uses crt;

var AB, CD, cv, s : real;

begin

clrscr;

AB := 5.5;

CD := 2.5;

cv := (AB + CD) * 2;

s := AB * CD;

writeln('chu vi hinh chu nhat : ', cv:2:1);

writeln('dien tich hinh chu nhat : ', s:2:1);

readln

end.

uses crt;

var ab,cd,cv,s:real;

begin

clrscr;

ab:=5.5;

cd:=2.5;

cv:=(ab+cd)*2;

s:=ab*cd;

writeln(cv:5:2);

writeln(s:5:2);

readln

end.