Question

Giúp em với ạ

Viết chương trình tính diện tích tam giác theo công thức sau:  S = p(p  a)(p  b)(p  c) với p = 1 2 (a+b+c) Dữ liệu vào: ba số nguyên a, b, c là ba cạnh tam giác 1 , , 1000   a b c  Dữ liệu ra: Diện tích tam giác, làm tròn đến hai chữ số thập phân

Answer 1

S=\(\sqrt{p\cdot\left(p-a\right)\cdot\left(p-b\right)\cdot\left(p-c\right)}\)chứ ko phải \(p\cdot\left(p-a\right)\cdot\left(p-b\right)\cdot\left(p-c\right)\) thôi nhe bạn

Program bai1;
uses crt;
var a,b,c:longint;
p:real;
st:string;
Begin
clrscr;
write('Nhap a:'); readln(a);
write('Nhap b:'); readln(b);
write('Nhap c:'); readln(c);
p:=(a+b+c)/2;
writeln('Dien tich tam giac do la:',sqrt(p*(p-a)*(p-b)*(p-c)):0:0);
readln;
End.