Вычислить радиус описанной окружности и площадь правильного шестиугольника со стороной А. - VB

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста, решить задачу, в вижуал бейсике. Вычислить радиус описанной окружности и площадь правильного шестиугольника со стороной А. По этой задачи мне очень нужно: 1)формула по которой вы решали. 2) алгоритм к задаче. С зарание огромное спасибо!

Решение задачи: «Вычислить радиус описанной окружности и площадь правильного шестиугольника со стороной А.»

textual
Листинг программы
Private Sub Form_Load()
Me.AutoRedraw = True 'Print Г*Г* ôîðìå
Dim x, R, S As Double
 
x = InputBox("Ââåäèòå ñòîðîГ*Гі øåñòèóãîëüГ*ГЁГЄГ*")
'ГђГ*äèóñ
R = x
'ÏëîùГ*äü
S = ((3 * Sqr(3)) / 2) * (R ^ 2)
 
Print "ÑòîðîГ*Г* øåñòèóãîëüГ*ГЁГЄГ*", Format(x, "0.00") 'Округление до второго знака после запятой
Print "ГђГ*äèóñ îïèñГ*Г*Г*îé îêðóæГ*îñòè", Format(R, "0.00")
Print "ÏëîùГ*äü ГЇГ°Г*âèëüГ*îãî øåñòèóãîëüГ*ГЁГЄГ*", Format(S, "0.00")
 
End Sub

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


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

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

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