Нужно рассчитать как выгодно купить товар алгоритмически - VB
Формулировка задачи:
Всем привет!
Задача:
Требуется купить 5шт. одного и того же товара, но у всех разные цены и не у каждого есть требуемое количество, итак:
Магазин1, цена 10р., доступно 1шт. товара
Магазин2, цена 20р., доступно 2шт. товара
Магазин3, цена 40р., доступно 5шт. товара
Магазин4, цена 30р., доступно 3шт. товара
Нужно получить план с выгодной покупкой, т.е.:
а) Купить 1шт. в Магазине1
б) Купить 1шт. в Магазине2
в) Купить 3шт. в Магазине4
Как алгоритмически всё реализовать? Как посравнивать кучу цен с учётом по количеству?
Думал что такой код пройдёт, но нет, на выше приведённой задаче - не срабатывает.
Ну уже вообще голова не варит. И с кейсами пытался, и так и сяк... Чего-то не дотумкиваю, где-то.
Может кто посвежее будет на голову, да подскажет решеньице?
Решение задачи: «Нужно рассчитать как выгодно купить товар алгоритмически»
textual
Листинг программы
Private Sub SortMinPrice(ByRef S() As typeShop) Dim i As Integer, j As Integer, t As typeShop For i = 1 To UBound(S) For j = 1 To UBound(S) - 1 If S(j).Price > S(j + 1).Price Then t = S(j + 1) S(j + 1) = S(j) S(j) = t End If Next j Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д