Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 1
Регистрация: 24.11.2017
Сообщений: 18
1

Дана 1, 2 , 5 и 10 литровые банки. Для заполнения N литровой банки какими банками нужно пользоваться?

25.11.2017, 19:48. Показов 1024. Ответов 4
Метки нет (Все метки)

Дана 1, 2 , 5 и 10 литровые банки. Для заполнения N литровой банки какими банками нужно пользоваться?
Программа должна вывести все возможное варианты заполнения N литровой банки.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.11.2017, 19:48
Ответы с готовыми решениями:

Банки
Здравствуйте! Помогите пожалуйста решить такую задачу в Паскале: даны наименования 10 банков и...

Банки видеопамяти
Привет! У меня большие проблемы с пониманием видеопамяти! Я вроде разобрался с режимами, адресами и...

1С и клиент-банки
Я чайник.Каюсь.Кто-нибудь,помогите.Помогите,кто может.Поменял компьютер,скопировал со старого...

Массив.Задача про банки.
У вас есть доллары, вы хотите их обменять на рубли. Есть информация купле-продажи в банках города....

4
6141 / 908 / 305
Регистрация: 25.02.2011
Сообщений: 1,292
Записей в блоге: 1
27.11.2017, 08:55 2
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
DIM n1 AS LONG, n2 AS LONG, n5 AS LONG, n10 AS LONG, n AS LONG
n = 20
FOR n10 = n \ 10 TO 0 STEP -1
  FOR n5 = (n - n10 * 10) \ 5 TO 0 STEP -1
    FOR n2 = (n - n10 * 10 - n5 * 5) \ 2 TO 0 STEP -1
        n1 = n - n10 * 10 - n5 * 5 - n2 * 2
        PRINT n; " = ";
        IF n10 THEN PRINT " +"; n10; "* 10";
        IF n5 THEN PRINT " +"; n5; "* 5";
        IF n2 THEN PRINT " +"; n2; "* 2";
        IF n1 THEN PRINT " +"; n1; "* 1";
        PRINT
NEXT n2, n5, n10
1
0 / 0 / 1
Регистрация: 24.11.2017
Сообщений: 18
28.11.2017, 20:03  [ТС] 3
Спасибо! Но в QBasic не пишут as long или же as что-то другое (наверное в VisualBasic-e так).
У меня вопрос:
Работает ли программа при любых значениях N?

Заранее еще раз Спасибо!
0
6141 / 908 / 305
Регистрация: 25.02.2011
Сообщений: 1,292
Записей в блоге: 1
29.11.2017, 08:43 4
Лучший ответ Сообщение было отмечено Amidkhon как решение

Решение

Цитата Сообщение от Amidkhon Посмотреть сообщение
Но в QBasic не пишут as long или же as что-то другое
с чего Вы это решили? As Long замечательно пишется в QBasic, при этом даже считает как нужно.

Цитата Сообщение от Amidkhon Посмотреть сообщение
Работает ли программа при любых значениях N
работает при любом N, но большие значения лучше не указывать, т.к. для N=20 получается 40 вариантов сложения, для N=100 - 2156 вариантов, для N=1000 - 1712051 вариантов
1
Миниатюры
Дана 1, 2 , 5 и 10 литровые банки. Для заполнения N литровой банки какими банками нужно пользоваться?   Дана 1, 2 , 5 и 10 литровые банки. Для заполнения N литровой банки какими банками нужно пользоваться?  
0 / 0 / 1
Регистрация: 24.11.2017
Сообщений: 18
29.11.2017, 16:45  [ТС] 5
Спасибо большое! не знал что не пишут as long !
You are the best!

Добавлено через 4 минуты
А кстати как вы узнали сколько вариантов при N=100 итд...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.11.2017, 16:45

Есть ли тематические банки заданий
Я читаю книгу С.Праты "Язык программирования С++". Она понятная, по-мне так просто прекрасная...

Какие банки будут банкротами?
Какие банки будут банкротами, если известно, что истинны следующие высказывания: «неверно, что...

Запрос. Банки, у которых нет клиентов.
Есть таблицы: банки, кредиты, клиенты. Банки с клиентами связаны кредитами. Т.е. если у банка есть...

Какие банки делают обналичку чека?
Какие банки делают обналичку чека?

Банки могут прочитать чужие куки?
Вот аналогичный вопрос - https://www.cyberforum.ru/php/thread1256012.html НО, сегодня наткнулся...

Раздвоение личности после банки кока-колы
есть такая задачка,немогу реализовать, вернее даже алгоритм толком придумать неполучается... ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.