Нужны формулы для arcsin и arccos, Помогите Опции

[Artem7]

Program ugli; {по 3 заданным сторонам находит углы треугольника}
Var
    a,b,c:integer;
    d,e,f:real;
    cosa,arccos,sina,arcsin:real;
Begin
    write('Введите 3 стороны:');
    readln(a,b,c);
    cosa:=((b*b + c*c - a*a)/(2*b*c));
    arccos:=(); {нужна формула чтобы перевести переменную 'cosa' в arccos}
    sina:=(b*sin(arccos)/a);
    arcsin:=(); {нужна формула чтобы перевести переменную 'sina' в arcsin}
    d:=arccos;
    e:=arcsin;
    f:=180-(d+e);
    writeln('Угол А=', d:8:2, ' ' , 'Угол B=', e:8:2, ' ' , 'Угол C=', f:8:2);
    readln;
End.

Вот написал прогу которая находит углы треугольника по 3 заданным сторонам но чтобы она правильно находила нужно перевести переменные 'cosa' в arccos и 'sina' в arcsin, но так как я недавно начал программировать ничего не разберу в примерах которые выложены в нете по переводу(((Помогите

Сообщение отредактировано: Artem7 - 10.02.2012 16:50

[TarasBer]

Исходное задание - именно такое, найти углы?

Тогда используй arctan

Косинус угла x равен a. Чему равен тангенс угла x?

[Artеm]

да исходное задание именно такое т.е по 3 заданным сторонам надо найти 3 угла а чтобы их находил правильно нужно арксин и арккос

[Artеm]

function arccos (x : real) : real;
begin
arccos := Arctan(Sqrt(1-sqr(x))/x);
end; 

вот нашел как перевести только что то разобраться не могу как применить это к моему коду кто может подсказать помогите пожалуйста(((

[Artеm]

с этой функцией не прокатывает если взять а=1 то получается знаменатель ноль и т.д...следовательно надо по другому как то...

[TarasBer]

> с этой функцией не прокатывает если взять а=1 то получается знаменатель ноль

Может, ты a=0 имел в виду? Такой стороны у треугольника не будет.

[Artеm]

да все уже нашел в чем проблема у меня была я просто ставил в эту формулу напрямую данные которые вводились с клавиатуры а надо было же то значение которое требуется преоброзовать :-)щас все решает на ура наконецто дописал прогу :-)