Вычислить радиус описанного круга вокруг треугольника с заданными сторонами - VB
Формулировка задачи:
Вычислить радиус описанного круга вокруг треугольника со сторонами a, b, c:
p=(4+3+5)/2=6
R=(4*3*5)/(4*sqr(6)*(6-4)*(6-3)*(6-5)=60
Решение задачи: «Вычислить радиус описанного круга вокруг треугольника с заданными сторонами»
textual
Листинг программы
- 'Private Sub Комманда1_Click() 'или
- Private Sub Command1_Click()
- 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
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
