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.