В основной программе вводятся стороны треугольника a, b, c. В модуле проверяются...

Question

В основной программе вводятся стороны треугольника a, b, c. В модуле проверяются неравенства треугольника (a) и вычисляется площадь треугольника. Ввести данные двух треугольников и вывести результаты.

Comments

PascalABC.net?

---

PascalABC

Answer 1

Program n1;
var a,b,c: real;
procedure tr(a,b,c: real );
var p,S: real;
begin
if (abegin
p:=0.5*(a+b+c);
S:=sqrt(p*(p-a)*(p-b)*(p-c));
write('S=',S:6:3);
end else write('это не треугольник');
end;
begin
readln(a,b,c);
tr(a,b,c);
end.
// тестирование:
ввод: 3 4 5
вывод: S=6.000
ввод: 2 3 4
вывод: S=2.905