Question

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

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

Answer 2

Calculating Percentage of Unused Material in a Cardboard Box

To calculate the percentage of unused material when a box in the shape of a cube is cut from a square cardboard sheet, we can use the formula:

Percentage of unused material = ((Area of cardboard sheet - Surface area of cube) / Area of cardboard sheet) * 100%

Where: - Area of cardboard sheet = side length of the cardboard sheet squared - Surface area of cube = 6 times the side length of the cube squared

Let's assume the side length of the cube is 'a' and the side length of the cardboard sheet is 'b'.

The area of the cardboard sheet is b^2 and the surface area of the cube is 6a^2.

So, the percentage of unused material is: ((b^2 - 6a^2) / b^2) * 100%

This formula will give us the percentage of the cardboard sheet that was not used in making the cube.