Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
 Аватар для Mobbers
0 / 0 / 0
Регистрация: 10.12.2013
Сообщений: 8

Перебор всех возможных вариантов с переменными приравненных к определенному значению

05.01.2017, 20:10. Показов 848. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите решить задачу:
Есть 3 переменные А, В, С и у каждого из них какое-то целочисленное значение, которое задает пользователь. Нужно написать программу, которая найдет все возможные комбинации из этих переменных равные D. Т.е. A+B+C=D, A+A+A+C=D, A+B+B+C=D и так далее.
пример с числами:
А=10, В=15, С=20
D=30
результат всех комбинаций res= 3 (A+A+A=D, A+C=D, B+B=D)
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
05.01.2017, 20:10
Ответы с готовыми решениями:

Перебор всех возможных вариантов с переменными приравненных к определенному значению
Помогите решить задачу: Есть 3 переменные А, В, С и у каждого из них какое-то целочисленное значение, которое задает пользователь. Нужно...

Перебор всех возможных вариантов
Предположим, у меня есть список spisok = Как вывести все возможнеы комбинации длиной 3, те xxx xxy xxu .... zzz

Перебор всех возможных вариантов
Доброго всем дня! Есть задача: На вход дается строка из символов '0' '1' и '2' длиной не более 50. Нужно изменить число 0 на 1...

7
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
06.01.2017, 10:42
Можно так попробовать.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
var m:array['A'..'D']of integer;//массив из 4х чисел
    i,j,k:char;
    d,f:integer;
    s:string;
begin
writeln('Введите значения А,В,С');
for i:='A' to 'C' do
readln(m[i]); //вводим 3 числа
m['D']:=0;//четвертое=0
write('Введите значение D=');
readln(d);
f:=0;
for i:='A' to 'D' do
for j:='A' to 'D' do
for k:='A' to 'D' do
if (m[i]+m[j]+m[k]=d)and(j>=i)and(k>=j)then
 begin
  f:=1;
  s:='';
  if m[i]<>0 then s:=s+i;
  if m[j]<>0 then
  if s<>'' then s:=s+'+'+j
  else s:=s+j;
  if m[k]<>0 then
  if s<>'' then s:=s+'+'+k
  else s:=s+k;
  s:=s+'=D';
  writeln(s);
 end;
if f=0 then write('Нет сочетаний равных D')
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,158
Записей в блоге: 1
06.01.2017, 11:47
Если одно из чисел будет отрицательным, то комбинаций может быть бесконечно много. В условии насчёт неотрицательности ничего нет.
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
06.01.2017, 11:52
Введите значения А,В,С
-5
15
10
Введите значение D=10
A+B=D
C=D
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,158
Записей в блоге: 1
06.01.2017, 12:08
Puporev,
замечание было не про программу, а про задачу. Нужно найти все комбинации, но число их бесконечно. Для примера выше:
k*(3a+b)+c=d, k=0..inf.
A+A+A+B+C=D
A+A+A+A+A+A+B+B+C=D
...
и не только этого вида, есть и другие варианты
A+A+B+B=D
...
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
06.01.2017, 12:11
Да, я как-то по своему понял условие, а вообще темнота.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,158
Записей в блоге: 1
06.01.2017, 12:24
Puporev,
скорее всего в задаче просто пропущено условие про неотрицательность элементов (точнее, что все они одного знака).

Добавлено через 2 минуты
Если же такой оговорки нет специально, то задачка с двойным дном и сложнее, чем кажется на первый взгляд (требует выведения обобщенных решений).
0
 Аватар для Mobbers
0 / 0 / 0
Регистрация: 10.12.2013
Сообщений: 8
06.01.2017, 16:46  [ТС]
я просто не написал этого. Отрицательные значения принимать не могут
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
06.01.2017, 16:46
Помогаю со студенческими работами здесь

Перебор всех возможных вариантов фильтров
Всем привет, в общем задача следующая: Есть файлик excel в нём может быть более 1000 строк и порядка 30 столбцов (кол-во столбцов всегда...

Перебор всех возможных вариантов (рекурсивно)
Не буду вникать в суть программы. Предположим у меня есть архивы с точками, мне нужно выбрать минимальную комбинацию, этих архивов что бы...

Перебор всех возможных вариантов буквосочетаний
Возникла такая задача, сделать перебор всех возможных вариантов сочетаний букв латинского алфавита, с возможностью ограничения длинны...

Перебор всех возможных вариантов массива
Добрый день. У меня такая задача, имеется два массива одинаковой размерности. Мне заведомо известно, что при правильной расстановке строк в...

Перебор всех возможных вариантов в масиве
Доброй ночи. Столкнулся с проблемой нужно перебрать ВСЕ варианты (для упрощения) массива. Для примера массив (динамический)...


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm)
8Observer8 30.01.2026
Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru