Вычисление вариантов получения заданной суммы купюрами достоинством 1, 3, 5, 10, 25, 50 и 100 руб |
Главная / ЭКВМ / Программы для ЭКВМ / БРП-4 |
Эта программа входит в блок расширения памяти БРП-4 советского микрокалькулятора МК-52. Купюры указанного достоинства имели хождение в СССР. Вычисления выполняются для заданной суммы S в двух режимах, определяемых служебным числом С: 1) Если С = 68, вычисляется вариант получения суммы купюрами каждого достоинства: S = K1 + 3*K3 + 5*K5 + 10*K10 + 25*K25 + 50*K50 + 100*K100, где К1, К3, К5, К10, К25, К50, К100 - купюры достоинством 1, 3, 5, 10, 25, 50 и 100 руб соответственно; 2) Если С = 69, вычисляется число n вариантов получения суммы S. Исходные данные заносятся в ячейки памяти: S(руб) → П4, 0 → П5, 100 → П6, С → ПА. Результаты вычислений записываются в ячейки памяти: К100 → П9, К50 → П8, К25 → П7, К10 → П3, К5 → П2, К3 → П1; К1 заносится в регистр Х и отображается на дисплее в режиме счета С=68; n → П5 и отображается на дисплее в режиме счета С=69. Инструкция по пользованию программой для МК-52 с БРП-4
Инструкция по пользованию программой для ЭКВМ
Тестовый примерS = 190 руб.
Программа "Вычисление вариантов получения заданной суммы купюрами достоинством 1,3,5,10,25,50 и 100 руб"Программа 22 из блока расширения памяти БРП-4, переключатель "1/2" блока в положении "1", адрес 1274498. Файл brp4-22.mkp (КС 6272/154)
Исходный текст для кросс-компилятораФайл brp4-22.mkl .CHARSET 1251 ; БРП-4 ; 22. Вычисление вариантов получения заданной суммы ; купюрами по 1, 3, 5, 10, 25, 50 и 100 рублей (1 - 1274498) .ORG 0 RM 4 RM 6 / K INT A4: ; с адреса 94 M 9 RM 4 RM 9 RM 6 * - M 0 50 / K INT A15: ; с адреса 89 M 8 RM 0 RM 8 50 * - M B 25 / K INT A27: ; с адреса 84 M 7 RM B RM 7 25 * - M C 10 / K INT M 3 A40: ; с адреса 79 RM C RM 3 10 * - M D 5 / K INT M 2 A51: ; с адреса 75 RM D RM 2 5 * - M E 3 / K INT M 1 A61: ; с адреса 71 K RM 5 RM E RM 1 3 * - K GOTO A ; RA = 68 или 69 - cлужебное число C. R/S K RM 1 RM 1 F X<0 A61 K RM 2 RM 2 F X<0 A51 K RM 3 RM 3 F X<0 A40 RM 7 1 - F X<0 A27 RM 8 1 - F X<0 A15 RM 9 1 - F X<0 A4 RM 5 R/S .END |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
НПП "СЕМИКО" (383) 271-01-25 (многоканальный) |