Помочь с задачей в pasсal

[Andrew Wolf]

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

В равнобедренный треугольник, основание которого равно b, а боковая сторона a, вписанная в круг. Разработать алгоритм для определения разности площадей треугольника и круга.

Заранеее спасибо!

[VIK_aka_TOR]

Прогуглите формулы площадей равнобедренного треугольника и круга.
Затем найдите от каких параметров треугольника зависит радиус вписанного в него круга.
Распишите это все тут и представьте в виде кода.
Дальше останется только от первого отнять второе)

[Andrew Wolf]

Вот формулы, но не могу понять как делается оно

[Andrew Wolf]

У меня выходит две программки отдельно, для определения площи треугольника и для определения площи круга, но мне нужно сделать их в одну программу.

Program Trikutnik;
var a,b,c,p:real;
Begin
read(a,b,c);
p:=(a+b+c)/2;
p:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('S=',p);
end.


Program Krug;
var r,s:real;
Begin
r:=1;
s:=3.14*r*r;
writeln('s=',s);
end.

[VIK_aka_TOR]

var
  // параметры треугольника
  t_a, t_b, t_s: real;
  // параметры круга
  с_r, c_s: real;
begin
  // площадь треугольника
  t_s := t_b * sqrt(t_a * t_a - t_b * t_b/4) / 2;
  // радиус вписанной окружности
  c_r := (t_b / 2 ) * sqrt((2 * t_a - t_b) / (2 * t_a + t_b));
  // площадь круга
  c_s := 3.14 * c_r * c_r;

  writeln('Разница между площадями равна: ', t_s - c_s);
end.

Радиус вписанной окружности равнобедренного треугольника, формула
Площадь равнобедренного треугольника

И площадь круга - пи * Радиус * Радиус

[Serge_Bliznykov]

Сообщение от Andrew Wolf

В равнобедренный треугольник, основание которого равно b, а боковая сторона a, вписанная в круг.

сформулируйте задание точно, пожалуйста.
Кто куда вписан?


Добавлено.
А всё, уже отвечать не обязательно, VIK_aka_TOR привёл код для решения задачи...

[VIK_aka_TOR]

Сообщение от Serge_Bliznykov

сформулируйте задание точно, пожалуйста.
Кто куда вписан?

В случае чего - у меня круг в треугольнике)))
как хочу так и читаю)

[Andrew Wolf]

Круг вписан в треугольник. Извините за неразборчивый перевод, переводил из другого языка задачу.

[Serge_Bliznykov]

Сообщение от VIK_aka_TOR

В случае чего - у меня круг в треугольнике)))
как хочу так и читаю)

Класс. Навыки телепатии на высоком уровне.
Всё как надо!

Andrew Wolf, решение задачи в пост #5

[Andrew Wolf]

Спасибо большое пользователю VIK_aka_TOR.
Тему можно закрыть.