Viết công thức thực hiện tính và in ra màn hình giá trị chu vi và diện tích của hình chữ nhật có chiều dài là a, chiều rộng là b. Với a,b là các số thực dương được nhập vào từ bàn phím
nhanh lên các bạn
Viết công thức thực hiện tính và in ra màn hình giá trị chu vi và diện tích của hình chữ nhật có chiều dài là a, chiều rộng là b. Với a,b là các số thực dương được nhập vào từ bàn phím
nhanh lên các bạn
var a,b,cv,dt:real
Begin
write( Hay nhap chieu dai a =)
readln(a)
write(Hay nhap chieu rong b=)
readln(b)
cv:=2*(a+b)
dt:=a*b
writeln( Chu vi = , cv:6:1)
writeln( dien tich =, dt:6:1)
readln
End.
Kira_Arinz
@ara bos ris
program ct_btpt;
uses crt;
var a, b, C, S: real;
begin
clrscr;
write(‘Nhap chieu dai a = ‘); readln(a);
write(‘Nhap chieu rong b = ‘); readln(b);
C:=(a+b)*2;
S:=a*b;
writeln(‘Chu vi hinh chu nhat la: ‘, C:2:1);
writeln(‘Dien tich hinh chu nhat la: ‘, S:2:1);
readln
end.