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