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