Вычисление площади поверхности и длины экватора на основе известного радиуса планет солнечной системы - VB
Формулировка задачи:
1. Напишите программу вычисления площади поверхности и длины экватора на основе известного радиуса планет солнечной системы. Форму планет будем считать шаром. Вычисление площади поверхности и длины экватора оформите отдельными функциями.
Решение задачи: «Вычисление площади поверхности и длины экватора на основе известного радиуса планет солнечной системы»
textual
Листинг программы
Sub planet()
Const pi As Single = 3,1415926535
Dim R,S,l as Double
R = InputBox("Введите радиус планеты")
'Площадь поверхности
S = 4 * pi * R * R
'Длина экватора
l = 2 * pi * R
Print "Площадь поверхности ",S
Print "Длина экватора ", l
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д