Viết chương trình nhập vào 3 số thực dương a,b,c kiểm tra xem 3 số trên có tạo thành 3 cạnh của tam giác không nêu có hãy tính diện tích tam giác theo công thức hê rông S= căn p(p-a)(p-b)(p-c)
1 câu trả lời
uses crt;
var a, b, c, p, s : real;
begin
clrscr;
write('nhap ba so a, b, c : ');readln(a, b, c);
if (a + b > c) and (b + c > a) and (a + c > b) then
begin
writeln('ba so tao thanh tam giac ');
p := (a + b + c) / 2;
s := sqrt(p * (p - a) * (p - b) * (p -c));
writeln('dien tich tam giac : ', s:3:1);
end
else writeln('ba so khong tao thanh tam giac ');
readln
end.
Câu hỏi trong lớp
Xem thêm
