var
a,b,c,p, La, Lb, Lc: Real;
begin
print('Введите стороны треуголькника');
read(a,b,c);//Считываем стороны треугольника
p:= (a+b+c)/2;//Находим полупериметр
//Считаем биссектрисы по формуле
La := 2*sqrt(b*c*p*(p-a))/(b+c);
Lb := 2*sqrt(a*c*p*(p-b))/(a+c);
Lc := 2*sqrt(a*b*p*(p-c))/(a+b);
print('Биссектрисы треуголькника');
print(La,Lb,Lc);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a,b,c,p, La, Lb, Lc: Real;
begin
print('Введите стороны треуголькника');
read(a,b,c);//Считываем стороны треугольника
p:= (a+b+c)/2;//Находим полупериметр
//Считаем биссектрисы по формуле
La := 2*sqrt(b*c*p*(p-a))/(b+c);
Lb := 2*sqrt(a*c*p*(p-b))/(a+c);
Lc := 2*sqrt(a*b*p*(p-c))/(a+b);
print('Биссектрисы треуголькника');
print(La,Lb,Lc);
end.