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

[Artеm]

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