Автор Оля задал вопрос в разделе Домашние задания
как решить задачу по информатике в Pascal? написать программу для вычесления площади треугольника по трём сторонам. и получил лучший ответ
Ответ от Андрей Ординарцев[новичек]
нужна проверка на существование треугольника?
Ответ от Лера[гуру]
program linejn ; {программа вычисления высот треугольника }
var
a, b, c, p, ha, hb, hc, t : real; {описание используемых переменных }
begin
writeln (‘Введите стороны тр-ка a,b,c’);
readln (a,b,c);
p:=(a+b+c)/2.; {вычисление полупериметра треугольника }
t:=2.*sqrt (p*(p-a)*(p-b)*(p-c));
ha:=t/a; hb:=t/b; hc:=t/c; {вычисление высот треугольника }
writeln (‘Высоты треугольника: ha=‘,ha:8:2,’ hb=‘, hb:8:2,’ hc=‘,hc:8:2);
readln;
end.
program linejn ; {программа вычисления высот треугольника }
var
a, b, c, p, ha, hb, hc, t : real; {описание используемых переменных }
begin
writeln (‘Введите стороны тр-ка a,b,c’);
readln (a,b,c);
p:=(a+b+c)/2.; {вычисление полупериметра треугольника }
t:=2.*sqrt (p*(p-a)*(p-b)*(p-c));
ha:=t/a; hb:=t/b; hc:=t/c; {вычисление высот треугольника }
writeln (‘Высоты треугольника: ha=‘,ha:8:2,’ hb=‘, hb:8:2,’ hc=‘,hc:8:2);
readln;
end.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: как решить задачу по информатике в Pascal? написать программу для вычесления площади треугольника по трём сторонам.