Определить сторону треугольника, если известны две другие стороны и угол между ними - Pascal ABC
Формулировка задачи:
Определить сторону треугольника, если известны две другие стороны b, c и угол между ними
Решение задачи: «Определить сторону треугольника, если известны две другие стороны и угол между ними»
textual
Листинг программы
var a, b, c, alfa: real; begin write('Первая сторона: '); readln(b); write('Вторая сторона: '); readln(c); write('Угол между ними (в градусах): '); readln(alfa); a := sqrt(sqr(b) + sqr(c) - 2 * b * c * cos(DegToRad(alfa))); writeln; writeln('Третья сторона: ', a:0:2) end.
Объяснение кода листинга программы
- Создается переменная
a
типаreal
. - Создается переменная
b
типаreal
. - Создается переменная
c
типаreal
. - Создается переменная
alfa
типаreal
. - Выводится сообщение
Первая сторона:
и считывается значение переменнойb
. - Выводится сообщение
Вторая сторона:
и считывается значение переменнойc
. - Выводится сообщение
Угол между ними (в градусах):
и считывается значение переменнойalfa
. - Вычисляется значение переменной
a
как квадратный корень из суммы квадратов переменныхb
иc
минус 2 умноженных наb
иc
умноженных на косинус угла в радианах переменнойalfa
. - Выводится сообщение
Третья сторона:
и выводится значение переменнойa
с точностью до двух знаков после запятой.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д