Вычислить радиус описанного круга вокруг треугольника с заданными сторонами - 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