Найти все углы треугольника со сторонами а, b, c. предусмотреть в программе перевод радианной меры угла а градусы, минуты и секунды. напишите на паскаль

180

380

Посмотреть ответы 3

Ответы на вопрос:

maximruba

Информатика

4,6(88 оценок)

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

Еденорожка666

Информатика

4,8(84 оценок)

Предполагается, что вводятся длины сторон по которым можно построить треугольник: 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-*(180/pi); e: =(2*arctan(sqrt((p-a)*(p-c)/(p*(p-*(180/pi); f: =(2*arctan(sqrt((p-a)*(p-b)/(p*(p-*(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 сек

кика20052

Информатика

4,5(63 оценок)

В диск можно записать ровно 4 символа

Объяснение:

В одном байте есть 8 бит

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.