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