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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы