Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Суммирование чисел из файла |
| Huver |
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация:  0   |
Задача:
Дано N целых чисел A1, A2 ... An. Требуется найти кол-во различных сумм вида k1A1 + k2A2 + ... + knAn. Ввод из файла sums.in. В первой строке находится число N, во второй - A1, A2 ... An через пробел. Вывод в файл sums.out. Вывести одно число - количество различных значений сумм. Пример 1: Ввод 1 3 1 1 2 Вывод 1 5 Пример 2: Ввод 2 5 49 100 98 49 0 Вывод 3 10 Заранее спасибо. Сообщение отредактировано: Huver - |
   |
 
|
  |
| klem4 |
Сообщение
#2
|
 Perl. Just code it!  Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Я предлагаю забить числа из файла в массив, а потом ипользовать прогу, которая находится по ссылке, которую дал volvo. Там решена абсолютно такая-же задача, только без файла.
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
Huver Суммирование чисел из файла 14.11.2005 19:32
volvo Сначала уточни, что значит ? Именно на примере 1, … 14.11.2005 20:06 Huver В файле sums.in записывается вручную:
3 /… 14.11.2005 22:19 volvo разложение числа ничего не напоминает? 14.11.2005 22:29 FreeMan Суммированием всех чисел находишь максимум. Потом … 14.11.2005 22:41 volvo To: FreeMan
Объясни мне, в свете твоего алгоритма… 14.11.2005 22:44 Huver To: volvo
значение сумм одинаковое, а порядок раз… 14.11.2005 23:23 FreeMan To: volvo
Нашёл ты первую сумму. 1+2=3. Посмотрел… 15.11.2005 13:39 volvo Угу... Продолжаем. Нашел вторую, 2+1=3, посмотрел,… 15.11.2005 13:42 FreeMan Не. Когда мы нашли, что тройка подходит - надо к д… 15.11.2005 13:53 FreeMan Вот решение.
Volvo, извини, что так изуродовал тв… 1.12.2005 14:17 volvo FreeMan,
я, например, жду ответа на свой вопрос (ч… 1.12.2005 14:22 c-ch прошу прощения за поднимание явно древней темы :)
… 15.03.2009 0:50
Lapp проблема в том, что этот алгоритм очень трудоёмок … 15.03.2009 15:51 c-ch Lapp
всё гениальное просто, спасибо огромное :)
P… 15.03.2009 18:02 Lapp PS всем, кто будет копипастить прогу Lapp - будьте… 16.03.2009 7:19 c-ch нет-нет, никаких претензий, тем более, что Паскаль… 16.03.2009 11:25 Lapp Паскаль сам инициализацию вроде делает :)Как-то у … 16.03.2009 15:37 volvo Угу... Так и должно быть. Турбо/Борланд Паскаль во… 16.03.2009 17:35 |
|
Текстовая версия | 9.09.2025 9:09 |
