[chainik]

Вот программа которая считает углы (в радианах) по заданным координатам вершин
Но причем здесь программирование????????????
Теорема косинусов.............

Код:

program Project1;

{$APPTYPE CONSOLE}


uses Math;

var
Ax,Ay,Bx,By,Cx,Cy,
SqLenA,SqLenB,SqLenC: extended;
begin
writeln('‚ўҐ¤ЁвҐ Є®®а¤Ё**вл ўҐаиЁ*');
write('A: '); readln(Ax,Ay);
write('B: '); readln(Bx,By);
write('C: '); readln(Cx,Cy);

SqLenB:=(Ax-Cx)*(Ax-Cx) + (Ay-Cy)*(Ay-Cy);
SqLenA:=(Bx-Cx)*(Bx-Cx) + (By-Cy)*(By-Cy);
SqLenC:=(Ax-Bx)*(Ax-Bx) + (Ay-By)*(Ay-By);

writeln('”Ј«л');
writeln('C: ',ArcCos((SqLenA+SqLenB-SqLenC)/2/Sqrt(SqLenA*SqLenB)));
writeln('B: ',ArcCos((SqLenA+SqLenC-SqLenB)/2/Sqrt(SqLenA*SqLenC)));
writeln('A: ',ArcCos((SqLenC+SqLenB-SqLenA)/2/Sqrt(SqLenC*SqLenB)));


readln;
end.