3 задания на Турбо Паскаль реугольник задан координатами (Х1,У1),(Х2,У2),(Х3,У3)

[sazita-81]

1.Треугольник задан координатами (Х1,У1),(Х2,У2),(Х3,У3) своих вершин.Вычислить радиус окружности,описанной около треугольника.
2.Напечатать координаты той из точек М1(а,b) и М2 (с,d), которая расположена ближе остальных к началу координат.
3.b=sin^2(arctg1/x)

[Mad_Cat]

2

var a,b,c,d:real;
begin
readln(a,b,c,d);
if a*a+b*b <c*c+d*d then writeln('1') else writeln('2');
end.

3

uses Math;
var x:real;
begin
readln(x);
writeln(sqr(sin(ArcTan(1/x))));
end.

[Вадим Мошев]

1.Треугольник задан координатами (Х1,У1),(Х2,У2),(Х3,У3) своих вершин.Вычислить радиус окружности,описанной около треугольника.

Радиус такой окружности может быть вычислен по формуле:
R = (4*S)/(a*b*c) (можно записать как 4*S/a/b/c)
Здесь S - Площадь треугольника, которую можно вычислить по формуле Герона:
S = КореньКвадратный(p*(p-a)*(p-b)*(p-c))

Где p - полупериметр
_________________
А расстояние между двумя точками (в данном случае, длинна стороны треугольника), у которых известны координаты (Х1,У1),(Х2,У2) вычисляется так:
L = КореньКвадратный((x2-x1)^2 + (y2-y1)^2)

формулы увидел - косарь должен :-)

[sazita-81]

благодарю Вас!!!!