Ответ или решение 1
var a, b, c: integer;
writeln(‘Введите длину первой стороны’);
writeln(‘Введите длину второй стороны’);
writeln(‘Введите длину третьей стороны’);
S := sqrt(p * (p — a) * (p — b) * (p — c));
Написать программу вычисления площади треугольника по длине, высоте и основанию
Вид экрана:
Вычисление площади треугольника
Введите исходные данные:
Основание :(см) 8,5
Высота :(см) 10
Площадь 42.50 квадратных сантиметра
Написать вычесление площади треугольника по формуле Герона.
Что ты хочешь узнать?
Ответ
Площадь треугольника по 3м сторонам вычисляется по формуле Герона: , где p-полупериметр.
Тогда:
var a,b,c,p:real;
begin
writeln(‘Введи длины сторон a, b и c’);
readln(a,b,c);
p:=(a+b+c)/2;
writeln(‘Площадь этого треугольника = ‘, sqrt(p*(p-a)*(p-b)*(p-c)));
end.
Загрузка...
