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

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

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

нужно сделать в visual basic правильный n-угольник вписан в окружность радиуса. Вычислить длину его стороны

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

textual
Листинг программы
Option Explicit
Const Pi = 3.1415926535         '2*R *sin(pi/n)
 
Private Sub Command1_Click()
    Dim R As Double, n As Integer 'R - радиус описанной, n - число сторон
    n = InputBox("Введите число сторон многоугольника.", "Ввод данных", 5)
    R = InputBox("Введите радиус окружности", "Ввод данных", 10)
 
    MsgBox "Длина стороны " & n & "-угольника вписанного в окружность радиуса " & _
           R & " равна  " & Round(2 * R * Sin(Pi / n), 5)
End Sub

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


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

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

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