Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

1. Для конуса радиусом r и высотой h напишите программу вычисления объема по формуле:

Анастасия Черёмушкина Ученик (114), на голосовании 23 часа назад
Дополнен 1 месяц назад
на VBA
Голосование за лучший ответ
Undefined Undefined Ученик (145) 1 месяц назад
 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}")
Undefined UndefinedУченик (145) 1 месяц назад
 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
Похожие вопросы