import math
def volume_of_cone(radius, height):
"""
Вычисляет объем конуса по формуле: V = (1/3) * Pi * r^2 * h
Параметры:
radius (float): радиус основания конуса
height (float): высота конуса
Возвращает:
float: объем конуса
"""
volume = (1/3) * math.pi * radius**2 * height
return volume
# Пример использования функции
r = float(input("Введите радиус основания конуса: "))
h = float(input("Введите высоту конуса: "))
volume = volume_of_cone(r, h)
print(f"Объем конуса равен {volume:.2f}")
Function VolumeOfCone(radius As Double, height As Double) As Double
' Вычисляет объем конуса по формуле: V = (1/3) * Pi * r^2 * h
' Используем встроенную константу Pi в VBA
Dim pi As Double
pi = Application.WorksheetFunction.Pi()
' Вычисляем объем конуса
VolumeOfCone = (1 / 3) * pi * radius^2 * height
End Function
Sub TestVolumeOfCone()
' Пример использования функции VolumeOfCone
Dim r As Double
Dim h As Double
' Задайте радиус и высоту конуса
r = 5 ' Примерное значение радиуса
h = 10 ' Примерное значение высоты
' Вычисляем объем конуса
Dim volume As Double
volume = VolumeOfCone(r, h)
' Выводим результат
MsgBox "Объем конуса с радиусом " & r & " и высотой " & h & " равен " & volume
End Sub