Вычислить площадь треугольника по формуле Герона - Pascal
Формулировка задачи:
ВЫЧЕСЛИТЬ ПЛОЩАДЬ ТРЕУГОЛЬНИКА ПО ФОРМУЛЕ ГЕРОНА
S=√p(p-a)(p-b)(p-c)
где p-полупериметр
a,b,c-стороны
Решение задачи: «Вычислить площадь треугольника по формуле Герона»
textual
Листинг программы
var
a,b,c,p,s:real;
BEGIN
writeln('введите длины сторон');
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s= ', s:8:3);
END.
Объяснение кода листинга программы
- В начале объявляются переменные a, b, c, p и s типа real.
- Затем выводится сообщение для ввода длин сторон треугольника.
- С помощью функции readln считываются значения длин сторон треугольника a, b и c.
- Переменная p инициализируется как половина суммы всех сторон треугольника.
- Функция sqrt используется для вычисления квадратного корня из значения переменной p.
- Значение переменной s вычисляется по формуле Герона для площади треугольника и сохраняется в переменной s.
- Наконец, выводится значение переменной s с использованием функции writeln.