IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> задача на динамику или же перебор
сообщение
Сообщение #1


Учиться, учиться еще раз учиться
***

Группа: Пользователи
Сообщений: 158
Пол: Мужской
Реальное имя: Яшар

Репутация: -  3  +


Тут у меня одна задачка которую никак не могу решить уже целую неделю. Главное не могу определиться с алгоритмом. Прошу вас помочь если сможете конечно. И так задано N чисел и требуеться найти минимальное число которое невозможно составить из сумм каких-либо заданных чисел. Но каждое заданное число можно использовать максимум один раз, т.е. можно и какое-то не использовать. Допустим если задано 1, 2, 4, 9, 100 то ответ будет 8. потому что 3 не может быть ответом так как 2+1=3, 5 тоже нет т.к. 4+1=5, и 7 т.к. 4+2+1=7, а вот 8 никак не получиться.

вот моя прога но она не совсем правильна.

var
n,i,j:byte;
d:array [1..100] of longint;
cem:qword;
begin
readln(n);
for i:=1 to n do read(d[i]);
if d[1]>1 then begin writeln(1); exit; end;
i:=0;
repeat
inc(i); cem:=0;
for j:=1 to i do cem:=cem+d[j];
if cem+1<d[i+1] then begin writeln(cem+1); exit; end;
until cem+1<d[i+1];
end.



кто нибудь знает где ошибка? может есть алгоритм получше? помогите пожалуйста.
заранее большое спасибо.

Сообщение отредактировано: Bard -


--------------------
Чтобы поразить цель важна не точность, а смелость
Шарль Луи Монтескё
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


Bard, а если вводиться 1 2 9 4 100 ответ тоже должен быть 8??
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Bard   задача на динамику или же перебор   11.01.2008 0:48
Client   есть идея, тока она очень бредовая.... Заводишь ма…   11.01.2008 1:05
Michael_Rybak   Bard, у тебя алгоритм правильный. Добавь условие …   11.01.2008 1:09
Bard   Client, спасибо за помощь :blum: но помоему я сд…   11.01.2008 1:09
volvo   Ограничения есть? На скорость выполнения, например…   11.01.2008 1:11
Michael_Rybak   Ты сделал не то же самое. Client предлагает скла…   11.01.2008 1:13
Bard   Да я это понял просто не сразу. Извиняюсь. Но в …   11.01.2008 1:25
Michael_Rybak   забудь что я сказал про ускорение. твой алгоритм…   11.01.2008 1:34
Bard   volvo, я просмотрел ту ссылку и все понял, но оста…   11.01.2008 1:59
Michael_Rybak   Bard, я же тебе сказал, твой алгоритм - правильный…   11.01.2008 2:24
Client   Bard, можешь побольше примеров привести?   11.01.2008 2:30
volvo   To Bard: вот так, например (сразу говорю, реализац…   11.01.2008 2:31
Bard   эта здача с acm.timus.ru. я вот посылаю и проходит…   11.01.2008 2:44
Michael_Rybak   Я тебе сказал про две вещи, обе про цикл: В…   11.01.2008 3:04
Bard   Все наконец-то :) ... Огромное тебе спасибо Michae…   11.01.2008 3:23
Michael_Rybak   Вот и отлично :) Поздравляю :)   11.01.2008 3:37
Client   Bard, а если вводиться 1 2 9 4 100 ответ тоже долж…   11.01.2008 10:42
Michael_Rybak   Client, там числа по возрастанию отсортированы.   11.01.2008 16:21


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 11:40
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name