В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
sharopoamir05
sharopoamir05
27.04.2020 22:03 •  Информатика

Из квадратного листа картона вырезается коробка в форме куба с известной стороной. определить процент неиспользованного материала, если размеры листа заданы.

Показать ответ
Ответ:
kseniayozic
kseniayozic
06.10.2020 21:57
Sub othod()
    d = Cells(1, 3)
    a = Cells(2, 3)
    If d < 4 * a Then
        MsgBox "Сторона листа D должна быть не менее 4a", vbCritical + vbOKOnly, "Критическая ошибка"
        Return
    Else
        so = d ^ 2 - 6 * a ^ 2 'Суммарная площадь отходов
        po = so / d ^ 2 'Доля отходов
        Cells(3, 3) = po
    End If
End Sub

Остальное во вложении. Скачайте файл .txt и замените его расширение на xlsm

Из квадратного листа картона вырезается коробка в форме куба с известной стороной. определить процен
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота