Нужны формулы для 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]

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

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