Написать программу на языке Паскаль для нахождения площади треугольника по трем сторонам

Для нахождения площади треугольника по трем сторонам в языке Паскаль можно использовать формулу Герона. Она позволяет вычислить площадь треугольника, если известны длины всех его сторон.

Формула Герона выглядит следующим образом:

1. Для начала нужно вычислить полупериметр $p$ треугольника:

   $$p = \frac{a + b + c}{2}$$

   где $a$, $b$, $c$ — это длины сторон треугольника.

2. Затем площадь треугольника можно вычислить по формуле:

   $$S = \sqrt{p \cdot (p - a) \cdot (p - b) \cdot (p - c)}$$

   где $p$ — полупериметр, а $a$, $b$, и $c$ — стороны треугольника.

Пример программы на языке Паскаль:

pascal
Копировать код
program TriangleArea;
uses
  Math;
var
  a, b, c, p, S: Real;
begin
  // Ввод длин сторон треугольника
  Write('Введите длину стороны a: ');
  ReadLn(a);
  Write('Введите длину стороны b: ');
  ReadLn(b);
  Write('Введите длину стороны c: ');
  ReadLn(c);
  // Вычисление полупериметра
  p := (a + b + c) / 2;
  // Проверка на существование треугольника
  if (a + b > c) and (a + c > b) and (b + c > a) then
  begin
    // Вычисление площади по формуле Герона
    S := Sqrt(p * (p - a) * (p - b) * (p - c));
    WriteLn('Площадь треугольника: ', S:0:2);
  end
  else
    WriteLn('Такой треугольник не существует');
end.

Пояснение к программе:

1. Сначала программа запрашивает у пользователя длины трех сторон треугольника.

2. Далее вычисляется полупериметр $p$.

3. Программа проверяет, может ли существовать треугольник с такими сторонами, проверив условие: сумма любых двух сторон должна быть больше третьей.

4. Если треугольник существует, рассчитывается его площадь по формуле Герона.

5. В конце выводится результат, площадь треугольника, с точностью до двух знаков после запятой.

Если введенные пользователем стороны не образуют треугольник, программа выведет сообщение о невозможности существования такого треугольника.