viết chương trình tính diện tích và chu vi của hình thoi abcd với độ dài các cạnh a và 2 đường chéo m n được nhập từ bàn phím. mình cảm ơn
viết chương trình tính diện tích và chu vi của hình thoi abcd với độ dài các cạnh a và 2 đường chéo m n được nhập từ bàn phím. mình cảm ơn
chương trình tính diện tích hình thoi ABCD:
uses crt;
var m,n,dt:Real;
begin
clrscr;
Writeln(‘Hay nhap gia tri cho bien:’);
Readln(m,n);
dt:= (m*n)/2;
Writeln(‘Dien tich cua hinh thoi ABCD la:’,dt:7:2);
Readln
End.
Chương trình tính chu vi hình thoi:
uses crt;
var a,cv:Real;
begin
Writeln(‘Hay nhap gia tri cho bien:’);
Readln(a);
cv:=a*4;
Writeln(‘Chu vi hinh thoi abcd la:’,cv:7:2);
Readln
End.
uses crt;
var m,n: integer;
s,cv: real;
begin
clrscr;
write (‘nhap m: ‘); readln (m);
write (‘nhap n: ‘); readln (n);
s:=(m*n)/2;
cv:=sqrt(((m/2)*(m/2))+((n/2)*(n/2)))*4;
writeln (‘dien tich la: ‘,s:1:2);
writeln (‘chu vi la: ‘,s:1:2);
readln;
end.
chúc thi tốt hị
^_^
bài kia sai rùi: đề bài cho 2 đường chéo m,n lấy cạnh a ở đâu ra ko biết 🙂