Viết chương trình tính chu vi P và diện tích s của hình chữ nhật có cạnh là a,b. dữ liệu nhập vào từ bàn phím, các đại lượng đều là số thực. kết quả được đưa ra màn hình với độ chính xác 1 chữ số sau dấu chấm thập phân .
2 câu trả lời
uses crt;
var a, b, P, S : real;
begin
clrscr;
write('Nhap canh a, b : '); readln(a, b);
P := (a + b) * 4;
S := a * b;
writeln('P = ', P : 4 : 1);
writeln('S = ', S : 4 : 1);
readln
end.
program cvdt;
uses crt;
var a,b,cv,dt:real;
begin
clrscr;
write('Nhap chieu dai: ');
readln(a);
write('Nhap chieu rong: ');
readln(b);
cv:=(a+b)*2;
dt:=a*b;
writeln('Chu vi la: ',cv:2:1);
writeln('Dien tich la: ',dt:2:1);
readln
end.
