Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
RonnieHolmes
26.03.2021 22:50 •
Информатика
Составьте программу для вычисления косинусов углов треугольника со сторонами a, b, c. указание. примените теорему косинусов: c2=a2 + b2 -2ab * cos α
Показать ответ
Ответ:
Fogles12
07.09.2020 11:45
Var a,b,c,cosa, cosb, cosc:real;
begin
writeln('Введите стороны треугольника АВС');
read(a,b,c);
cosa:=(sqr(b)+sqr(c)-sqr(a))/(2*b*c);
cosb:=(sqr(c)+sqr(a)-sqr(b))/(2*c*a);
cosc:=(sqr(a)+sqr(b)-sqr(c))/(2*a*b);
writeln('Косинус угла А = ', cosa, ' Косинус угла В =', cosb,' Косинус угла C =', cosc);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
pchpppr
10.12.2022 05:32
5. Егер шарттардың бірі орындалса, онда қандай логикалық амал қолда-нылады?дұрама шарттарға қоршаған ортада кездесетін мысалдар келтіріңдер....
Red4521
26.05.2022 21:54
амеба делиться на две клетки каждые 2 часа напишите цикл который будет определять кол-во клеток каждые 24 часа....
dimaburkovskiy3
23.12.2021 13:58
Задание на листке. В программе паскаль...
Alisascol
19.01.2021 12:00
У чому полягають відмінності використання команд розгалуження з використанням значень властивостей прапорців і поля з розкривним списком...
65866666
12.02.2023 16:21
Документ состоит из текстовой и графической информации. текст состоит из 30 строк по 40 символов на каждой. вес одного символа 2 байта. размер черно-белого изображение 120×150....
irinakholod
15.09.2021 18:46
1. абаком назывался… а. мерительный инструмент; б. контейнер для хранения документов; в. прибор для счета; г. первый компьютер....
stupidgirl3
22.05.2023 20:43
Составить алгоритм решение дано два числа a и b если a=b то числа вознести в квадрат a2=a*a если a больше b сложить...
тараканеше
20.08.2021 22:08
Файл размером 24 кбайт передается через некоторое соединение за 80 секунд. определите размер файла (в кбайтах) ,,кр сейчас идет. напишите решение если...
CapitanMacmillan
04.02.2021 23:03
Из предложенных слов и словосочетаний Составьте определения термина арифметическая операция...
alevtinatian
17.06.2022 09:52
Проходит ли график функции y=x−−√3 через точку B(27;−9,4)?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('Введите стороны треугольника АВС');
read(a,b,c);
cosa:=(sqr(b)+sqr(c)-sqr(a))/(2*b*c);
cosb:=(sqr(c)+sqr(a)-sqr(b))/(2*c*a);
cosc:=(sqr(a)+sqr(b)-sqr(c))/(2*a*b);
writeln('Косинус угла А = ', cosa, ' Косинус угла В =', cosb,' Косинус угла C =', cosc);
end.