Thuật toán:
- Nhập 3 cạnh
- Áp dụng công thức Heron `S_{tg}=sqrt[p.(p-a)(p-b)(p-c)]` để tính diện tích
Bài làm mẫu:
Program Typlex;
Uses crt;
Var S,a,b,c,p: longint;
Begin
Writeln('Nhap lan luot ba canh: '); Readln(a,b,c);
p:=a+b+c;
S:=sqrt(p*(p-a)*(p-b)*(p-c))
Writeln('Dien tich tam giac: ',S);
Readln
End.
#Xin CTLHN, chúc bạn học tốt