Помогите написать программу нахождения углов треугольника на Delphi

[_Andruha_]

Народ, помогите пожалуйста решить вот ети две задачки, очень-очень надо)

1. Треугольник задан величинами своих сторон - a, b, с. Найти углы треугольника -.alfa,betta,gamma.

2. Известна площадь квадрата S. Вычислить сторону квадрата А, диагональ D и площадь S1 описанного вокруг квадрата круга.

Заранее очень благодарен!)

[Chudo4258]

1. Треугольник задан величинами своих сторон - a, b, с. Найти углы треугольника -.alfa,betta,gamma.

Загляните в школьный учебник по геометрии (Теорема Косиносов) и все сразу станет ясно.

1.jpg

2.jpg

2. Известна площадь квадрата S. Вычислить сторону квадрата А, диагональ D и площадь S1 описанного вокруг квадрата круга.

a:=sqrt(S);
d:=a*sqrt(2);
S1:=pi*sqr(d);

[IT-man]

{ Известна площадь квадрата S. 
Вычислить сторону квадрата А, диагональ D и
 площадь S1 описанного вокруг квадрата круга.
}
var a,d,s1,s:Real;
begin
readln(s);
a:=sqrt(s);
d:=sqrt(2*a*a);
s1:=3.14* sqr(d/2);
Writeln('cTopoHa:',a:6:2);
Writeln('guaroHa|\b':,d:6:2);
Writeln('S Kpyra:',s1:6:2);
readln;
end.

{Треугольник задан величинами своих сторон - a, b, с. 
Найти углы треугольника -.alfa,betta,gamma.} 
uses math;
var a,b,c:real;
al,be,ga:real;
begin
readln(a);
readln(b);
readln(c);
al:=arccos((b*b+c*c-a*a)/(2*b*C));
be:=arccos((-b*b+c*c+a*a)/(2*a*C));
ga:=arccos((b*b-c*c+a*a)/(2*b*a));
Writeln('alpha=',al:6:2);
Writeln('beta=',be:6:2);
Writeln('gamma=',ga:6:2);
readln;
end.

[pasha96]

спасибо, тоже помогло!