Помогите с решением задачи: FreePascal. Используя функции. Найти биссектрисы треугольника сторонами которого являются биссектрисы исходного треугольника.

[igormel]

Программа FreePascal. Используя функции. Найти биссектрисы треугольника сторонами которого являются биссектрисы исходного треугольника.

[p51x]

Как пробовал? Какие ошибки выдает компилятор?

[igormel]

не пробовал. Ибо вообще не понимаю, как эту задачу решать. С геометрией проблем нет, но по поводу решения вообще никаких мыслей

[p51x]

Ибо вообще не понимаю, как эту задачу решать. С геометрией проблем нет, но по поводу решения вообще никаких мыслей

Что-то не сходится... Если с геометрией проблем нет, то тут же должен возникнуть план типа:
1. вводим стороны исходного треугольника
2. по сторонам находим его биссектрисы
3. проверяем, что можно на них построить треугольник
4. находим биссектрисы нового треугольника
5. задача решена

[igormel]

План как бы есть, но есть одно "но". Поможете начеркать функцию?
function имя функции (формальные параметры):тип результата;
раздел описаний функции
begin
исполняемая часть функции
end;
Типо гото..

[evg_m]

План как бы есть, но есть одно "но". Поможете начеркать функцию?

поможем, если начеркаете решение (в т.ч. формулы и расчеты) в геометрии.

С геометрией проблем нет,

P.S. В школе нас учили что решение задачи надо начинать с записи (перечисления) того что дано.

исходного треугольника.

и записи(формулировки) того что требуется найти.

Найти биссектрисы треугольника

компьютер (программа) оперирует исключительно с числовыми данными.
Дано: Как задан исходный треугольник в числах?
Найти: Как выдать описание "найденной" биссектрисы (в геометрии это вовсе не число) в числах??
Решение: Как (по каким формулам) преобразовать исходные числа описывающие треугольник, в числа описывающие биссектрису???
P.S. это вопросы к ТС.

[igormel]

Ну начнём. Стороны треугольника мы вводим.
readln(a,b,c);
if(a>=b+c)or(b>=a+c)or(c>=a+b) then
Затем. найдём биссектрисы
La:=sqrt(a*b*(a+b+c)*(a+b-c))/(a+b);
Lb:=sqrt(a*c*(a+b+c)*(a+b+c))/(a+c);
La:=sqrt(c*b*(a+b+c)*(a+b-c))/(c+b);
Затем точно такая же проверка
if(La>=Lb+Lc)or(Lb>=La+Lc)or(Lc>=La +Lb) then
Если эта проверка пройдена, то мы можем составить треугольник.

[evg_m]

function GetMyL(myside: real{"моя" сторона}; b,c: real{и две другие стороны}): real;
begin
   result:=sqrt(b*c*(b+c +myside)*(b+c -myside))/(b+c);
// или так
  s:=b+c;
  result:=sqrt(b*c*(s+myside)*(s-myside))/s;
end;

....
Lc:=GetMyL(c, a, b);
Lb:=GetMyL(b, a, с);
La:=GetMyL(a, b, c);
....

function TestT(a,b,c: real): boolean; //а возможен ли такой треугольник
begin
  result:=(a>=b+c) or (b>=a+c) or (c>=a+b); // так написал ТС!
возможно он имел другой смысл функции чем "придумал" я (см. комментарий к заголовку функции)
но комментарии к его коду предполагают этот. { Если эта проверка пройдена, то мы можем составить треугольник.  }
end;

if TestT(a, b, c) then 
....

if TestT(La, Lb, Lc) then
...

read(a, b, c);
if TestT(a,b,c) then begin
  La:=GetMyL(a, b,c);
  Lb:=GetMyL(b, a,c);
  Lc:=GetMyL(c, a,b);
  if TestT(La, Lb, Lc) then begin
   ?????
  end;
end
else Write('треугольник невозможен');

Затем точно такая же проверка
if(La>=Lb+Lc)or(Lb>=La+Lc)or(Lc>=La +Lb) then
Если эта проверка пройдена, то мы можем составить треугольник.

а дальше-то что?

[Serge_Bliznykov]

приведу формулу
bisector_formulas3.png
где
a,b - длины прилегающих к углу (в котором ищем биссектрису) сторон,
c - длина противолежащей стороны

во-первых, у Вас в формуле для вычисления Lb ошибка.

во-вторых, вот эту формулу и используйте для функции:

function length_bisector(a,b,c:real):real;
begin
    length_bisector := sqrt(a*b*(a+b+c)*(a+b-c))/(a+b)
end;