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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы