Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
ssbelousov
0 / 0 / 0
Регистрация: 14.06.2015
Сообщений: 2
1

Найти все варианты суммы числа

14.06.2015, 13:18. Просмотров 716. Ответов 1
Метки нет (Все метки)

Добрый день. Подскажите как можно решить такую задачу. Пользователь вбивает n целых неповторяющихся чисел и число (s), которое будет являться суммой. Нужно найти все варианты комбинаций чисел n сумма которых будет равна s.
Например:
Даны числа: 1 2 3 4 5 6 7 8 9
Сумма: 9
Должно выдать:
3+6
1+2+6
2+7
2+3+4
и т.д.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2015, 13:18
Ответы с готовыми решениями:

Найти все неповторяющиеся варианты перестановок элементов массива
Здравствуйте. Нужно написать процедуру Next, при этом дан массив V, а нужно...

Получить все натуральные числа меньшие n, квадрат суммы цифр которых равен m.
Даны натуральные числа m, n. Получить все натуральные числа меньшие n, квадрат...

Получить все натуральные числа меньшие n, квадрат суммы цифр которых равен m
Получить все натуральные числа меньшие n, квадрат суммы цифр которых равен m.

В интервале чисел натурального ряда от a до b найти все двузначные числа, в записи которых все цифры различны
В интервале чисел натурального ряда от a до b найти и вывести в поле метки...

Найдите все натуральные числа, не превосходящие Р, которые нельзя представить в виде суммы двух простых чисел
Здравствуйте! Преподаватель задал вот такую вот задачку: "Дано натуральное...

1
Joey
Форумчанин
831 / 552 / 219
Регистрация: 05.05.2015
Сообщений: 3,199
Записей в блоге: 1
14.06.2015, 23:42 2
Лучший ответ Сообщение было отмечено ssbelousov как решение

Решение

ssbelousov, Придется пользоваться массивом, чтобы код не разросся и не мутировал в гигантского урода. Если просто грубым способом:
n - это будет массивом, из всех введенных пользователем чисел
Delphi
1
n:Array of integer;
переплюсовываете каждые два числа и сравниваете результат с числом s, если совпадают, тогда вывести эти два числа:
Delphi
1
2
3
4
5
6
k:=2;
for i:=1 to 9 do 
begin
  for j:=k to 9 do if (n[i] + n[j]) = 9 then WriteLn(n[i]+' + '+n[j]);
  k:=k+1;
end;
Добавлено через 46 секунд
ну а далее думаю понятно, как изменить, чтобы считал и сложение из трех, четырех и т.д. чисел
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2015, 23:42

Все возможные варианты строки
Как из одной строки получить все возможные варианты? например так: Цитата:...

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

Перебором делителей найти простые числа в указанном диапазоне, и вывести все простые числа в поле Memo
Мне нужна программка на Delphi, которая простым перебором делителей находит...


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

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

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