бейсик

[Юлия Б.]

Здравствуйте! Помогите пожалуйста решить задачу в бейсике.
Грузовой контейнер с основанием a на a и высотой b загружается сверху рядами однотипных коробок объёмом cxcxc или dxdxd.Определить общее число коробок каждого размера ,обеспечивающее максимальное использование объёма контейнера.

[VIK_aka_TOR]

капайте в стороны математического моделирования... по оптимальному заполнению пространства..

[Rififi]

капайте в стороны математического моделирования

Копать нельзя - маникюр сломается o_O. Поэтому нужен негр-копатель (((Ж

[Smitt&Wesson]

Сообщение от VIK_aka_TOR

капайте в стороны математического моделирования... по оптимальному заполнению пространства..

А вот и не верно. Простой перебор, самое нерациональное решение, особенно если коробок больше трёх. Копайте в сторону линейного программирования. Почитайте ещё вот это.
Берём габаритные объёмы ящиков. Берём полный объм машины и составляем линейное уравнение. Прога укажет, какой максимальный объем ящиков, мы сможем уместить в имеющийся объём машины.

[yevrowl]

Код проверен:

PRINT "Введите размер основания контейнера (a):"
INPUT a
PRINT "Введите высоту контейнера (b):"
INPUT b
PRINT "Введите размер кубической коробки c:"
INPUT c
PRINT "Введите размер кубической коробки d:"
INPUT d

' Вычисляем число коробок каждого типа (целочисленное деление "\")
countC = (a \ c) * (a \ c) * (b \ c)   ' число кубов со стороной c
countD = (a \ d) * (a \ d) * (b \ d)   ' число кубов со стороной d

' Вычисляем использованный объём для каждого варианта
volC = countC * c * c * c   ' общий объём кубов размера c
volD = countD * d * d * d   ' общий объём кубов размера d

' Объём контейнера
containerVol = a * a * b

' Вычисляем процент использования объёма (целая часть)
percentC = (volC * 100) \ containerVol
percentD = (volD * 100) \ containerVol

' Выбираем вариант с наибольшим использованием объёма
IF percentC >= percentD THEN
    bestCount = countC
    bestSize = c
    bestPercent = percentC
ELSE
    bestCount = countD
    bestSize = d
    bestPercent = percentD
END IF

PRINT "Количество коробок типа 1 и 2, поместившихся в контейнер:"; "1 - "; countC; "2 - "; countD
PRINT "Процент использования объёма контейнера для 1 и 2 типа ящиков:"; "1 - "; percentC; "2 - "; percentD

[digitalis]

Поздравляю! Всего лишь 13,5 лет прошло. Кажется, это рекорд некропостинга в форуме.
А стьюденты уже и не кидают вопросы в форум. Зачем, если есть Чат ГоПоТа ?

[Arigato]

Сообщение от digitalis

Зачем, если есть Чат ГоПоТа ?

С появлением ChatGPT успеваемость в вузах резко возросла

[digitalis]

...и уровень дубовости выпускаемых неучей

[DeepFlake]

2 yevrowl: насколько я понял условия задачи, коробки в контейнере могут быть разными. А в вашей программе рассматриваются случаи когда только из коробок первого типа или только из коробок второго типа.

Эта задачка непростая. Конечно, надо искать перебором по количеству коробок первого и второго типа от 0 до k1 и k2, где k1 - максимальное количество коробок первого типа, которые влазят в контейнер, и k2 - максимальное количество коробок второго типа, которые влазят в контейнер.
То есть что-то вроде

for i=0 to k1
{
    for j=0 to k2
    {
        вычисление объёма ( i коробок первю типа и j коробок втор. типа в сумме);
        если объём < объём контейнера
        {
            если i короб 1-го и j коробок 2-го типа физически можно разместить в контейнере
            {
                если объём пары ( i ; j ) больше чем объём предыдущей пары с максим. объёмом, то установить эту пару как с максим. объёмом.
            }
        }
    }
}

Здесь самое сложное - вычислить можно ли ( i, j ) коробок физически поместить в контейнер. Я не знаю как вычислить, наверное перебором, но даже перебор нетривиально сделать, непонятно как.

А как эта задача будет выглядеть геометрически в 3D? Функция ОбъёмКоробок( i, j ) описывает плоскость (наклонную) в координатах i и j, а объём контейнера - тоже плоскость. То есть задача на нахождение пересечения плоскостей. Но проблема в том, что функция ОбъёмКоробок - не гладкая, и плоскость получается дискретной.