Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
borik7777
09.09.2022 23:06 •
Информатика
Инфо көмек если чо лучший ответ берем
👇
Увидеть ответ
Открыть все ответы
Ответ:
nutka1980
09.09.2022
Предполагается, что вводятся длины сторон по которым можно построить треугольник:
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,5
(94 оценок)
Ответ:
Евгения200605
09.09.2022
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
4,7
(55 оценок)
Это интересно:
К
Компьютеры-и-электроника
27.01.2020
Изучаем, как создавать формы в HTML: полное руководство...
К
Компьютеры-и-электроника
09.04.2021
Как блокировать доступ к YouTube для детей и сотрудников...
З
Здоровье
21.10.2022
Опасный гость - как определять и лечить укусы паука отшельника...
К
Кулинария-и-гостеприимство
06.01.2022
Мастер-класс: как правильно готовить спаржу на плите...
З
Здоровье
13.09.2021
Как избавиться от большого волдыря за короткий промежуток времени...
И
Искусство-и-развлечения
20.02.2022
Как узнать своих персонажей: советы для писателей...
Т
Транспорт
26.01.2020
Как смазать велосипедную втулку: простые советы от эксперта...
К
Кулинария-и-гостеприимство
03.05.2020
Как приготовить итальянскую заправку с яблочным уксусом...
С
Стиль-и-уход-за-собой
15.12.2021
Как подчеркнуть вырез декольте: 5 советов от стилистов...
01.04.2023
Беременность и дневник: как вести записи и зачем это нужно?...
Новые ответы от MOGZ: Информатика
bodik228
03.06.2022
8 класс информатика. Очень надо......
tyty55
02.02.2020
Программа Паскаль.Цикл с предусловием.1.Дано целое положительное число напечатать количество и сумму его цифр.2.Дано целое положительное число .Узнать есть ли в числе...
vika2088
06.06.2020
3. Дано натуральні числа ni m. Знайти вс числа, які лежать на проміжку [n; m]....
диана2440
02.08.2022
(Python) Бандиты Гарри и Ларри отдыхали на природе. Решив пострелять, они выставили на бревно несколько банок из-под кока-колы (не больше 10). Гарри начал банки по порядку,...
Алёксейudfih
20.09.2022
вариант паскаль вложенные циклы...
klimenkol21
12.03.2022
1) у масиві в [1..7] замініть всі від ємні елементи останнім. 2) у масиві с [1..к] визначне суму елементів з проміжку [х1; х2] на 1) в массиве в [1..7] замените все...
kolisnyk98
17.09.2022
Напишите программу для кузнечика, выполнив которую он перекрасит все точки от 1 до 100. используйте команду нц раз кц...
syromyatnikovа
14.08.2021
Форматирование элементов электронных таблиц Выбери из списка, какой адрес имеет выделенная ячейка. С 3 С3 3С...
ososkovaluba
04.06.2022
С РЕШЕНИЕМ За один ход игрок может добавить в одну из куч (по своему выбору) один камень или увеличить количество камней в куче в два раза. Игра завершается в тот момент,...
rystamgfţ
26.09.2020
Форматирование элементов электронных таблиц Выбери из списка, какой адрес имеет выделенная ячейка.  3С 3 С3 С Назад Проверить ...
MOGZ ответил
Как из С2Н2 получить Н2О??...
написать сжатое изложение ...
На координатной плоскости постройте прямоугольник АВCD с вершинами:...
Груши при сушке теряют 70% своей массы .Сколько килограммов свежих...
решить второе! Найти корни уравнения sin=x/3=-1/2 на отрезке [-П;2П]...
Товарищи Нужно написать сочинение по русской литературе: Шестидесятники...
очень Нужно определить группу осторов Заранее большое тому кто сделает...
Чому уряд австралийской империи здийснював освитни реформи?...
Решить задачу с уравнения. Обязательно показать введение переменной...
Определите спряжение глагола, вставьте пропущенную букву в окончание:...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
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 сек