Как вычислить радиус окружности, описанной около треугольника со сторонам а, b, c - VB
Формулировка задачи:
*С помощью VBA вычислить радиус окружности, описанной около треугольника со сторонам * а, b, c. Использовать формулы для расчета периметра, площади и радиуса. Для вычисления площади использовать встроенную функцию Sqr, которая вычисляет квадратный корень числа. Исходные данные вводить через диалог с пользователем, используя функцию InputBox, а результат вывести с использованием MsgBox.
* * * * * * * *
1)
a=2,75; *b=4,75; *c=3,65; * * * *ответ: 2,383
2)
a=3; *b=4; *c=5; * * * * * * * *ответ: 2,5
3)
a=10; *b=8; *c=6; * * * * * * * *ответ: 5,00
Решение задачи: «Как вычислить радиус окружности, описанной около треугольника со сторонам а, b, c»
textual
Листинг программы
- Dim a As Double, b As Double, c As Double
- Dim r As Double, Per As Double, p As Double, S As Double
- a = InputBox("a = ", , 2.75)
- b = InputBox("b = ", , 4.75)
- c = InputBox("c = ", , 3.65)
- Per = a + b + c
- p = Per / 2
- S = Sqr(p * (p - a) * (p - b) * (p - c))
- r = (a * b * c) / (4 * S)
- MsgBox r
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
