Помогите кто-нибудь!!! |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
Помогите кто-нибудь!!! |
gula |
24.11.2002 16:37
Сообщение
#1
|
Гость |
Пожалуйста, помогите понять задачу.
Задача о почтовых марках. Почтовая служба выпускает марки N различных стоимостей и запрещает наклеивать на конверты больше, чем M марок вместе. Стоимость почтового отправления может быть любым натуральным числом. По заданным N и M вычислить наибольшее целое число B и все возможные наборы марок, такие, что все стоимости от 1 до B можно оплатить марками набора при указанных выше условиях. |
mj |
29.11.2002 2:38
Сообщение
#2
|
Adminь Группа: Администраторы Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
Хоть кто нибудь понял условия ?
Я нет ??? |
Clane |
29.11.2002 11:46
Сообщение
#3
|
Гость |
Да уж, мудренная задачка..
|
Alex |
29.11.2002 20:02
Сообщение
#4
|
Бывалый Группа: Пользователи Сообщений: 201 Репутация: 0 |
Если уж вы гиганты по задачам не поняли условие то уж я и подавно!!!
|
Shadow |
17.03.2003 23:12
Сообщение
#5
|
Lonely_Raven Группа: Пользователи Сообщений: 640 Пол: Мужской Репутация: 1 |
а цифры подставить место букв попробуй может поможет легкие и вручную подсчитать :-*
-------------------- Программа делает то что вы ей приказали а не то что бы ВАМ хотелось бы.
МЕРФИ --------------------- RTFM - Read the fucking manual --------------------- http://www.livejournal.com/users/lonley_raven/ |
GLuk |
19.03.2003 8:47
Сообщение
#6
|
Профи Группа: Пользователи Сообщений: 775 Пол: Мужской Репутация: 0 |
{ :o}
Uses Crt; Const N = 5; {Количество стоимостей марок} Cost : array[1..N] of Word = (1,5,2,4,3); {Цены} M = 3; {Максимальное количество наклеиваемых марок} Var i,j,k:Integer; MaxN,MaxB,Max:Word; a:array[1..1000] of Boolean; Comb:Single; Begin ClrScr; For i:=1 to 1000 do a[i]:=False; {Считаем максимальную сумму} MaxN:=1; For i:=1 to N do If Cost[i]>Cost[MaxN] then MaxN:=i; MaxB:=0; For i:=1 to M do Inc(MaxB,Cost[MaxN]); WriteLn(#32#249#32'Максимальная стоимость B = ',MaxB); {Считаем максимальное количество комбинаций для значения N не считая декремент M} Comb:=1; For i:=1 to M do Comb:=Comb*N; WriteLn(#32#249#32'Максимальное количество комбинаций = ', Comb:3:0); {Дальше думай сам, комбинаторику я не проходил, но во всяком случае есть возможность исключить кучу ненужных комбинаций из матрицы, получаемой перебором всего массива} End. |
Текстовая версия | 28.09.2024 0:57 |