Найти количество отданных купюр - QBasic

Узнай цену своей работы

Формулировка задачи:

Покупатель должен заплатить в кассу 5руб. У него имеются купюры по 1, 5, 10, 50, 100, 500, 1000 и 10000 руб. Сколько купюр разного достоинства отдаст покупатель, если он начинает платить с самых крупных купюр?

Решение задачи: «Найти количество отданных купюр»

textual
Листинг программы
CLS
DATA 10000, 1000, 500, 100, 50, 10, 5, 1
INPUT "Stoimost pokupki = ", ts
FOR i = 1 TO 8
    READ x
    'skolko takih kupur nado
    kol = ts \ x
    IF kol > 0 THEN PRINT USING "#####&"; x; " rub. - "; kol
    'ostalos zaplatit
    ts = ts MOD x
NEXT i

Объяснение кода листинга программы

  1. CLS — команда для очистки экрана
  2. DATA 10000, 1000, 500, 100, 50, 10, 5, 1 - команда для задания значений купюр
  3. INPUT Stoimost pokupki =, ts — команда для ввода стоимости покупки
  4. FOR i = 1 TO 8 - цикл для обработки каждой купюры
  5. READ x — команда для чтения значения переменной x
  6. 'skolko takih kupur nado
  7. kol = ts \ x — команда для определения количества купюр данного номинала
  8. IF kol > 0 THEN PRINT USING #####&; x; rub. -; kol — команда для вывода информации о количестве купюр и их номинале
  9. 'ostalos zaplatit
  10. ts = ts MOD x — команда для обновления значения стоимости покупки с учетом оплаты данным номиналом
  11. NEXT i — команда для перехода к следующей итерации цикла

Оцени полезность:

8   голосов , оценка 4.625 из 5
Похожие ответы