Пожалуйста, помогите с решением задач.
Задача1. Треугольник задан координатами (X1, Y1), (X2, Y2), (X3, Y3) своих вершин. Вычислить радиус окружности, вписанной в треугольник.
Задача2. Значения x, y, z, e задаются пользователем. Вычислить a, b если:
a=2cos*4(x-П/6) / 1/2+sin*2y
b=1+ z*2/3+z*2/5
где звездочки во второй задаче, это степень вторая и четвертая. П это число пи
P.S. знаю, да я тупая. Самой стыдно)))
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Нашла программку для описанной окружности
uses crt; {используйте этот модуль для очистки экрана, ведь приятней работать когда на экране нет лишнего}
var xA,yA,xB,yB,xC,yC,AB,BC,CA,P,sinA,R :Real;
begin
clrscr;{собственно процедура очистки}
Write ('введите координату x точки A=');Readln(xA);
Write ('введите координату y точки A=');Readln(yA);
Write ('введите координату x точки B=');Readln(xB);
Write ('введите координату y точки B=');Readln(yB);
Write ('введите координату x точки C=');Readln(xC);
Write ('введите координату y точки C=');Readln(yC);
AB:=sqrt(sqr(xB-xA)+sqr(yB-yA));
BC:=sqrt(sqr(xC-xB)+sqr(yC-yB));
CA:=sqrt(sqr(xA-xC)+sqr(yA-yC));
P:=(AB+BC+CA)/2;
sinA:=2*sqrt(P*(P-AB)*(P-BC)*(P-CA))/(BC*CA);
R:=AB/(2*sinA);
Writeln ('радиус описанной окружности равен=' ,R:0:2);
readln {напишите это и по нажатию Enter увидите результат на экране. Поскольку подключен модуль Crt, можно вместо этого написать readkey, тогда вместо Enter можно нажать любую клавишу}
end.
Формула для вычисления радиуса вписанной окружности # центр вписанной окружности — точка пересечения биссектрис треугольника, ее радиус r вычисляется по формуле:
r = S/p,
где S — площадь треугольника, а p=(a+b+c)/2— полупериметр;
Кто поможет собрать всё это воедино?
