Предмет: Информатика, автор: anastasiyaaa277

Помогите, пожалуйста, очень срочно!Нужен только 13 номер

Приложения:

anastasiyaaa277: Нужно написать это в программе Паскаль
2ReCKey: я добавил

Ответы

Автор ответа: 2ReCKey
3

S=\frac{1}{2}a*c*sin(\beta)\\sin(\beta)=\frac{2S}{ab}

--------------

b=\sqrt{a^2+c^2-2*a*c*cos(\beta)}\\\frac{a}{sin(\alpha)}=\frac{b}{sin(\beta)}=\frac{c}{sin(Y)}

Из всего этого спокойно выражаются углы.

------------------------

var s,a,b,c,ua,ub,uc,otn:real;

//-----------------

function arcsin(x:real):real;

begin

 arcsin:=arctan(x/Sqrt(1-sqr(x)));

end;

//---------------------

function deg(x: real):real;

begin

deg:=round(1000*x*180/pi)/1000;  

end;

//-------------

begin

 readln(s,a,c);

 ub:=arcsin(2*s/c/a);

 b:=sqrt(sqr(a)+sqr(c)-2*a*c*cos(ub));

 otn:=b/sin(ub);

 uc:=arcsin(c/otn);

 ua:=arcsin(a/otn);

 writeln('альфа= ',deg(ua),'°');

 writeln('бета= ',deg(ub),'°');

 writeln('гамма= ',deg(uc),'°');

end.

Приложения:

anastasiyaaa277: Спасибо Вам большое!
Похожие вопросы