» вычислить грвдус угла

доброго дня!
попробовал написать функцию для вачисления треугольника по стороне и двум прилежащим углам
вот так напссл

var
A,B,C,x,y,z: double;


begin
A:=strtofloat(edit1.text);
B:=strtofloat(edit2.text);
C:=strtofloat(edit3.text);
x:=(sqr(b)+sqr(c)-sqr(a))/2/b/c;
y:=(sqr(a)+sqr(c)-sqr(b))/2/a/c;
z:=(sqr(a)+sqr(b)-sqr(c))/2/a/b;
edit4.text:=floattostr(x);
edit5.text:=floattostr(y);
edit6.text:=floattostr(z);
ну как вычислить грвдус угла?
http://imageshack.com/a/img924/998/u54Ili.jpg

raskharazm
уважаемый, если вы будете создавать кучу тем по одному и тому же вопросу - вас просто забанят. Что мешало добавить эту информацию сюда - вычисление треугольника?

к тому же можно писать аккуратно, без большого количества глупых ошибок - это уже говорит о вашем отношение к теме и отбивает желание вообще хоть как то отвечать.

спасибо за предупреждение!
повторять не буду!

raskharazm, смотрю на ваш код и собственно, что вы на данном этапе написать хотели? Начните с теории, разберитесь с формулами. Когда сможете считать на бумажке переложить это на дельфи, или куда вам необходимо, можно будет практически "дословно".

получается ответ но не знаю как его менять на градус!

raskharazm, учите матчасть.
http://planetcalc.ru/534/

Теперь посмотрите на свой код.
arccos где ?

raskharazm, где получается ответ? Что всё таки надо считать, углы по сторонам или по стороне и прилежащим углам?

вот так я написвл программу но ругается! ( identifier not found "arccos"/ arcsin)



var
A,B,C,alfa,beta,gamma,s,r: real;


begin
A:=strtofloat(edit1.text);
B:=strtofloat(edit2.text);
C:=strtofloat(edit3.text);
r:=(a+b+c)/2;
s:=sqrt(r*(r-a)*(r-b)*(r-c));
alfa:=arccos((sqr(b)+sqr(c)-sqr(a))/2/b/c);
beta:=arcsin(b/a*sin(alfa));
gamma:=pi-(alfa+beta);
alfa:=alfa*180/pi;
beta:=beta*180/pi;
gamma:=gamma*180/pi;
edit4.text:=floattostr(alfa);
edit5.text:=floattostr(beta);
edit6.text:=floattostr(gamma);
label7.caption:='S='+ floattostrF(S,ffFixed,5,2);
label8.caption:='R='+ floattostrF(2*r,ffFixed,5,2);
end;

raskharazm

Цитата:

вот так я написвл программу но ругается!

Правильно, нету в Паскале арккосинуса.
Сделай его сам: вставь в начало исходника строчку

Код:
function arccos(x:double):double; begin arccos:=arctan(sqrt(1-sqr(x))/x); end;

спасибо большое проблема решена