Вычислить площадь треугольника - Pascal ABC (18614)
Формулировка задачи:
1)Вычислить площадь треугольника со сторонами a,b,c.
Решение задачи: «Вычислить площадь треугольника»
textual
Листинг программы
var
a, b, c, p, s: real;
begin
write('Введите стороны треугольника a, b, c: ');
readln(a, b, c);
if not ((a < b + c) and (b < a + c) and (c < a + b)) then
writeln('Треугольника с заданными сторонами не существует!') else
begin
p := (a + b + c) / 2;
s := sqrt(p * (p - a) * (p - b) * (p - c));
writeln('Площадь S=', s:0:2);
end;
end.
Объяснение кода листинга программы
- Введенные переменные:
- a, b, c - стороны треугольника
- p - полупериметр треугольника
- s - площадь треугольника
- Ввод данных. Программа запрашивает у пользователя ввод сторон треугольника a, b, c.
- Проверка на существование треугольника. Используется условие, что сумма любых двух сторон больше третьей стороны. Если условие не выполняется, выводится сообщение об ошибке.
- Расчет полупериметра треугольника p по формуле (a + b + c) / 2.
- Расчет площади треугольника s по формуле Герона. Используется формула sqrt(p (p - a) (p - b) * (p - c)).
- Вывод результата. Выводится значение площади треугольника s с округлением до двух знаков после запятой.