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