Viết chương trình nhập vào 1 cạnh huyền và chiều cao tương ứng của 1 hình tam giác vuông . Tính diện tích hình tam giác vuông. Giúp mk vs ạ dg rất cần ạ
Viết chương trình nhập vào 1 cạnh huyền và chiều cao tương ứng của 1 hình tam giác vuông . Tính diện tích hình tam giác vuông. Giúp mk vs ạ dg rất cần ạ
Program dien_tich_tam_giac_vuong;
Uses crt;
Var a, h, S : real;
Begin
Write(‘Hay nhap gia tri cua a=’); Readln(a);
Write(‘Hay nhap gia tri cua h=’); Readln(h);
S:=a.h/2;
Write(‘Dien tich tam giac vuong la:’,S);
Readln
End.
program tgv;
uses crt;
var a,h,dt:real;
begin
clrscr;
write(‘Nhap canh huyen: ‘); readln(a);
write(‘Nhap duong cao tuong ung: ‘); readln(h);
dt:=a*h/2;
write(‘Dien tich la: ‘,dt:2:2);
readln
end.