Задан массив натуральных чисел P, содержащий n элементов. Найти минимальное натуральное число, которое нельзя представить суммой каких-либо элементов массива P. Сумма может состоять и из одного слагаемого, но каждый элемент массива может входить в неё только один раз. Составить рекурсивную программу.
Помогите пожалуйста, я пробовал решать но вылазит ошибка стек переполнен и не знаю как её исправить.
program eight;
var
a,b:array[1..20] of integer;
k,m,max,n,i,z:integer;
procedure massiv(m,k,max:integer);
begin
max:=a[1];
a[i]:=max;
m:=k-max;
max:=b[z];
end;
procedure reshenie(k,m,n:integer);
begin
for i:=1 to n do
if (k=a[i]) then inc(k);
if (a[i]<k) and (a[i]<>b[z]) then
massiv(m,k,max);
if (m=0) then inc(k);
if (m>k) and (a[i]<>b[z]) and (m<>0) then
writeln('nesostavimoe 4islo',k) else
reshenie(m,m,n);
end;
begin
writeln('ukazite dliny massiva');
readln(n);
writeln('Vvedite naturalnie 4isla');
for i:=1 to n do
readln(a[i]);
b[z]:=0;
for k:=1 to 100 do
for i:=1 to n do
reshenie(k,m,n);
readln;
end.
| М | Про теги не надо забывать... мисс_граффити |
приведи, пожалуйста, для начала в порядок процедуру reshenie: расставь по-человечески отступы и операторные скобки begin/end.
незнаю так или не так расставил конечно .... а это разве влияет на работу программы?
На работу нет, но вот на отладку - еще как влияет... Твой код очень плохо читается, не видно структуры программы..
Насколько я вижу, у тебя рекурсия будет зацикливаться с параметрами (0, 0, N), то есть, получив эти параметры, она вызовет себя же вновь с этими же параметрами... Процесс бесконечен, и остановится только при переполнении стека...
Ты сразу стал делать рекурсивную программу? Перед этим не попробовал сделать то же самое итеративно? Перенести работающую итерацию в рекурсию гораздо проще, чем писать рекурсию с нуля ...
не так ты расставил.
begin/end - влияет на работу программы, разумеется.
отступы влияют на желание форумчан помочь. этого мало?
Добавлено через 2 мин.
насколько я вижу, к циклу относится только одна строка:
if (k=a[i]) then inc(k);
Насчет редактировани: я пробовал отредактировать и расставить отступы, но при редактирование вылазит ошибка какая-то, но написано что всё изменено.
Если честно то итеративно я не пробовал её решить... А с чего ты взял что она зациклится на (0,0,N) число 0 он по идее вообще не должен проверять ....
ЗАпусти и попробуй отладить... Отладчиком умеешь пользоваться?
Если не умеешь - смотри здесь: http://volvo71.narod.ru/full_debug.htm