rodsher7740
?>

Талпринтера и сканера на компьютер, принтер распечатывает информацию на бумаге. 4. рассмотрите изображение. определите источник беспроводной сети. коо usb other file sharing adsu cable modem media pc internet work pc wireless media player asus ip cam audio streaga poa entariament system work pc laptop критерий дескриптор

Информатика

Ответы

Mikhail_Magomed635
Var a,b,c,alfa,beta,gamma:real; 
ga,ma,sa,gb,mb,sb,gg,mg,sg:real;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
alfa:=arccos((b*b-c*c+a*a)/(2*b*c))*180/pi;
ga:=int(alfa);
ma:=int(frac(alfa)*60);
sa:=frac(frac(alfa)*60);
writeln('alfa = ',ga:3:0,' gr ',ma:3:0,' min ',sa:3:1,' sec');
beta:=arccos((c*c-b*b+a*a)/(2*c*a))*180/pi;
gb:=int(beta);
mb:=int(frac(beta)*60);
sb:=frac(frac(beta)*60);
writeln('beta = ',gb:3:0,' gr ',mb:3:0,' min ',sb:3:1,' sec');
gamma:=arccos((c*c-a*a+b*b)/(2*c*b))*180/pi;
gg:=int(gamma);
mg:=int(frac(gamma)*60);
sg:=frac(frac(gamma)*60);
writeln('gamma = ',gg:3:0,' gr ',mg:3:0,' min ',sg:3:1,' sec');
end.

Пример:
a=3
b=4
c=5
alfa =  90 gr   0 min 0.0 sec
beta =  53 gr   7 min 0.8 sec
gamma =  36 gr  52 min 0.2 sec
Исаченко Тераски1181
Предполагается, что вводятся длины сторон по которым можно построить треугольник:

var a,b,c,p:real;
d,e,f:real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
p:=(a+b+c)/2;
writeln('Углы равны:');
d:=(2*arctan(sqrt((p-b)*(p-c)/(p*(p-a*(180/pi);
e:=(2*arctan(sqrt((p-a)*(p-c)/(p*(p-b*(180/pi);
f:=(2*arctan(sqrt((p-a)*(p-b)/(p*(p-c*(180/pi);
writeln(int(d),' град, ',int(frac(d)*60),' мин ', frac(frac(d)*60):5:2,' сек');
writeln(int(e),' град, ',int(frac(e)*60),' мин ', frac(frac(e)*60):5:2,' сек');
writeln(int(f),' град, ',int(frac(f)*60),' мин ', frac(frac(f)*60):5:2,' сек');
end.

Пример
a=3
b=4
c=5
Углы равны:
36 град, 52 мин  0.19 сек
53 град, 7 мин  0.81 сек
90 град, 0 мин 0.00000 сек

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Талпринтера и сканера на компьютер, принтер распечатывает информацию на бумаге. 4. рассмотрите изображение. определите источник беспроводной сети. коо usb other file sharing adsu cable modem media pc internet work pc wireless media player asus ip cam audio streaga poa entariament system work pc laptop критерий дескриптор
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

innesagrosheva22
namik120939
svetavancevich
иванович Диденко1524
zazaza74
Олеся
alekseev13602
srkushaev
ninazholnerova9
Nikolaevna1623
gbelihina
соловьев_Куркина
m79857860146895
natalya2321
monenko