Алгоритм выдачи денег

[Kasti]

Нужен алгоритм выдачи денег как в банкоматах, при этом имеются все наминалы(0,01 до 5000) и выдаются только рубли
п.с алгоритм нужен ввиде блок схемы, заранее спасибо за помощь

[Kasti]

Забыл дописать
деньги должны выдаваться минимальным количеством монет т.е если 11575 рублей то 2х5000 1х1000 1х500 1х50 2х10 и 1х5

[Abstraction]

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

[Kasti]

у меня проблема не в версии решения а в том что я не могу оформить его в виде блок схемы, а само решение такое нужно ввести 2 мерный массив в котором 2 строки 13 столбцов(наминалы) потом делить сумму поочерёдно на каждый наминал полученные частные записывать во 2 ой столбец а в 1 ом записывать наминалы, т.е 11575:5000=2 и остаток 1575 потом сравнить остаток с наминалом на который делили если меньше то дальше делим на другой наминал и так до нуля

[Serge_Bliznykov]

а в том что я не могу оформить его в виде блок схемы,

совет. записывайте решение на языке программирования Паскаль.
Потом пользуйтесь любой программой для построения блок-схемы по коду.
Профит.

p.s. можно, конечно и с нуля нарисовать блок-схему, но мне лично, лениво!
На крайний случай, рисуйте свою, выкладывайте на форум, тут проверять, поправят, если надо...

[Sasha_Smirnov]

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

совет: записывайте решение на языке программирования Паскаль

Чисто для сравнения — на VB; в документе можно испытать, вставив туда этот код (по Alt-F11):

Option Explicit

Sub money()
Const summa = 10000000000# '50000000.5
Dim N, nabor()
Dim i, k, ki
    nabor = Array(10000, 5000, 1000, 500, 100, 50, 10, 5, 2, 1, 0.5, 0.1, 0.05, 0.01)
    N = summa   'данная сумма
    i = 0       'индекс массива nabor() - разновидностей купюр
        Do
            ki = 0              'искомое количество монет/купюр i-го достоинства
                Do While N >= nabor(i)
                    ki = ki + 1
                    N = N - nabor(i)
                Loop
                    k = k + ki  'насчитали (ещё) ki монет/купюр i-го достоинства
            i = i + 1           'взяли следующую (меньшую по достоинству) монету/купюру
        Loop Until N < 0.05
'    MsgBox N
    MsgBox "Для выдачи " & summa & _
    " р. необходимо купюр и монет общим количеством " & k & ".", vbInformation
End Sub

«Возвращать» же блок-схему из кода, по-моему, просто непедагогично.

[Serge_Bliznykov]

по-моему просто непедагогично.

не буду спорить, это так. Зато максимально просто и удобно!

[Mad_Cat]

имеются все наминалы(0,01 до 5000)

выдаются только рубли

Зачем тогда Банкомат копейками грузили?
и если все номиналы имеются то сумму <= 5000 выдать одной купюрой?
та легко
код паскаль

K=trunc(rub) div 5000;
if rub - 5000*K>0 then k:=k+1;