Программирование!!!Из квадратного листа картона вырезается коробка в форме куба с...

Question

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

Comments

Сделайте в виде развертки со сгибами

---

Давайте 6

---

а как это в экселе оформить?

Answer 1

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

---

---

Скачать вложение Текст (TXT)

Comments

po = so / d ^ 2 'Доля отходов '- пожалуйста проверьте эту строчку

---

прошу прощение. Можно ли в таком виде Sub proba_var3()
Dim a As Single, b As Single, S As Single, P As Single, T As Single, x As Single
a = Sheets("Лист3").Cells(2, 4)
b = Sheets("Лист3").Cells(2, 5)
S = b ^ 2
P = 6 * a ^ 2
T = S - P
x = T / S
Sheets("Лист3").Cells(3, 4) = S
Sheets("Лист3").Cells(3, 5) = P
Sheets("Лист3").Cells(3, 6) = T
Sheets("Лист3").Cells(6, 4) = x
End Sub

---

только не получается, ошибка. Что то в х делаю не правильно