Правильный 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