Дополните в эвм кодирование информации осуществляется

Question

Информатика: Дополните в эвм кодирование информации осуществляется

света1094 · Accepted Answer

Для радиуса описанной окружности имеется соотношение
$\displaystyle R= \frac{a}{2\sin A}=\frac{b}{2\sin B}=\frac{c}{2\sin C}; \\ \\ a=2R\sin A \\ b=2R\sin B \\ c=2R\sin C$

// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!

var
a,b,c,R,dA,dB,dC:real;
begin
Writeln('Введите углы A,B в градусах и радиус R');
Read(dA,dB,R);
dC:=180-dA-dB;
a:=2*R*sin(dA*Pi/180);
b:=2*R*sin(dB*Pi/180);
c:=2*R*sin(dC*Pi/180);
Writeln('Угол C: ',dC:0:2);
Writeln('a=',a:0:5);
Writeln('b=',b:0:5);
Writeln('c=',c:0:5)
end.

Пример
Введите углы A,B в градусах и радиус R
30 70 50.0
Угол C: 80.00
a=50.00000
b=93.96926
c=98.48078

MOGZ ответил