1) Вычислить углы треугольника со сторонами a,b,c. 2) программа для вычисления значений функций

[mirovsky]

На Delphi стоит 2 задачи:

1) Вычислить углы треугольника со сторонами a,b,c.
-ползал по форуму, есть подобная задача - но там выводит не в градусах, а не поймешь в чем

2) программа для вычисления значений функций. Вывести на экран значения F и Y для соответствующих значений x.


Буду очень признателен и примного благодарен. Моя последняя надежда.

[type_Oleg]

1) Из теоремы косинусов определяете косинус, а потом используете функцию ArcCos . Но только она дает результат действительно не поймешь в чем - в радианах.
Вы не поверите, но если радианы умножить на 180 и разделить на пи, то получатся градусы.

2) А тут то что непонятно ?

[mirovsky]

Сообщение от type_Oleg

1) Из теоремы косинусов определяете косинус, а потом используете функцию ArcCos . Но только она дает результат действительно не поймешь в чем - в радианах.
Вы не поверите, но если радианы умножить на 180 и разделить на пи, то получатся градусы.

2) А тут то что непонятно ?

1) Все заработало, Олег спасибо!
У кого такая же проблема, вот пожалуйста:

uses math;
var a,b,c,aa,bb,cc:real;
begin
write('a= : ');readln(a);
write('b= : ');readln(b);
write('c= : ');readln(c);
aa:=(arccos((b*b+c*c-a*a)/(2*b*C)))*(180/pi);
bb:=(arccos((-b*b+c*c+a*a)/(2*a*C)))*(180/pi);
cc:=(arccos((b*b-c*c+a*a)/(2*b*a)))*(180/pi);
writeln('<1=',aa:6:2);
writeln('<2=',bb:6:2);
writeln('<3=',cc:6:2);
readln;
end.

2)
Вроде разобрался все понятно, 1 вопрос
как записать e в степени -х?

[Niro]

как записать e в степени -х?

e^(-x) = 1/ (e^x)
ну а e^x = exp(ln(e) * x)

p.s: для оформления кода есть тег "code" - решеточка - с ним код намного приятнее выглядит для глаза, а если еще отступы будут - то вообще шикарно

[type_Oleg]

Сообщение от Niro

..
ну а e^x = exp(ln(e) * x)..

Шутить изволите ?
Зачем так, ведь ln(e)=1, просто
e в степени -x это Exp(-x) или 1/Exp(x)

[mirovsky]

Все подставил, все работает.
type_Oleg, Niro : большое человеческое спасибо