giúp mình viết công thức tính diện tích và chu vi hình chữ nhật bằng pascal với ạ
mình cần gấp
giúp mình viết công thức tính diện tích và chu vi hình chữ nhật bằng pascal với ạ mình cần gấp
By Daisy
By Daisy
giúp mình viết công thức tính diện tích và chu vi hình chữ nhật bằng pascal với ạ
mình cần gấp
Mk lấy vd chiều dài = 6 chiều rộng = 3
program cv_dt_hcn;
uses crt;
var 6,3,cv,dt : integer;
begin
writeln(‘Nhap chieu dai’);
readln(6);
writeln(‘Nhap chieu rong’);
readln(3);
cv:=(6+3)*2;
dt:=6*3;
writekn(‘Chu vi HCN =’, cv);
writeln(‘Dien tich HCN =’, dt);
end.
program ctrinh1;
var x,y,dientich,chuvi:integer;
begin
write(‘hay nhap chieu dai cua hinh chu nhat:’);
readln(x);
write(‘hay nhap chieu rong cua hinh chu nhat’);
readln(y);
dientich:=x*y;
write(‘hay nhap chieu dai cua hinh chu nhat:’);
readln(x);
write(‘hay nhap chieu rong cua hinh chu nhat:’);
readln(y);
chuvi:=(x+y)*2;
writeln(‘Vay chu vi hinh chu nhat la:’,chuvi);
write(‘Vay dien tich hinh chu nhat la:’,dientich);
readln;
end.