Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты
Категории Все вопросы проекта Компьютеры, Интернет Темы для взрослых Авто, Мото Красота и Здоровье Товары и Услуги Бизнес, Финансы Наука, Техника, Языки Философия, Непознанное Города и Страны Образование Фотография, Видеосъемка Гороскопы, Магия, Гадания Общество, Политика, СМИ Юридическая консультация Досуг, Развлечения Путешествия, Туризм Юмор Еда, Кулинария Работа, Карьера О проектах Mail Животные, Растения Семья, Дом, Дети Другое Знакомства, Любовь, Отношения Спорт Золотой фонд Искусство и Культура Стиль, Мода, Звезды Полный список Спросить Лидеры
Поиск по вопросам

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

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