Определить периметры правильных n – угольников - VB

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

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

Очень прошу помощи : Определить периметры правильных n – угольников (10 – угольника, 50 – угольника, 100 – угольника), вписанных в окружность заданного радиуса R. Назначение процедуры: Вычисление стороны правильного n- угольника a=2*R*Sin 180°/n вычисление периметра n- угольника p=n*a

Решение задачи: «Определить периметры правильных n – угольников»

textual
Листинг программы
Private Sub Form_Load()
Me.AutoRedraw = True
Dim n, i As Integer
Dim p, a, r As Single
 
'TO_RAD = 3.14159265358979 / 180
r = InputBox("Ââåäèòå Г°Г*äèóñ îïèñГ*Г*Г*îé îêðóæГ*îñòè")
For i = 0 To 2
n = InputBox("Ââåäèòå êîëè÷åñòâî óãëîâ Гў Г¬Г*îãîóãîëüГ*ГЁГЄГҐ")
a = 2 * r * Sin(3.14159265358979 / n)
p = Format(n * a, "0.00")
Print "Ïåðèìåòð Г¬Г*îãîóëüГ*ГЁГЄГ* Г±" + Str(n) + "ГіГЈГ«Г*ìè Г°Г*ГўГҐГ* " + Str(p)
Next
End Sub

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


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

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

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