Вычислить радиус описанного круга вокруг треугольника с заданными сторонами - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д