Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Вычислить площадь треугольника по 3 сторонам,в алгоритме предусмотреть проверку существования такого треугольника.

Ответ оставил Гость

// PascalABC.NET 3.0, сборка 1076
var
  a,b,c,p,s:real;
begin
  Writeln(Введите через пробел стороны треугольника: );
  Read(a,b,c);
  if (a+b>c) and (a+c>b) and (b+c>a) then begin
    p:=(a+b+c)/2;
    s:=sqrt(p*(p-a)*(p-b)*(p-c));
    Writeln(Площадь треугольника равна ,s)
    end
  else Writeln(Невозможно построить треугольник)
end.
 
Тестовые решения:
Введите через пробел стороны треугольника:
10 15 13.6
Площадь треугольника равна 66.3272183948641

Введите через пробел стороны треугольника:
5 8 20.4
Невозможно построить треугольник