Плиииизззз... с помощью рекурсии Дано натуральное число N. Требуется получить и вывести на экран все возможные различные способы представления этого числа в виде суммы натуральных чисел (то есть, 1 + 2 и 2 + 1 – это один и тот же способ разложения числа 3). Решите задачу с помощью рекурсив-ной процедуры.
Пример:
Введите натуральное число:
4
1 + 1 + 1 + 1
1 + 1 + 2
1 + 3
2 + 2
Ответы на вопрос
Ответил A1dar
0
var
n: integer;
a: array[1..100] of integer;
procedure gen(pos, prev, sum: integer);
var i: integer;
begin
if sum > 0 then
for i := prev to sum do
begin
a[pos] := i;
gen(pos + 1, i, sum - i);
end
else if a[1] < n then
begin
write(a[1]);
for i := 2 to pos - 1 do write(' + ', a[i]);
writeln;
end;
end;
begin
read(n);
gen(1, 1, n);
end.
n: integer;
a: array[1..100] of integer;
procedure gen(pos, prev, sum: integer);
var i: integer;
begin
if sum > 0 then
for i := prev to sum do
begin
a[pos] := i;
gen(pos + 1, i, sum - i);
end
else if a[1] < n then
begin
write(a[1]);
for i := 2 to pos - 1 do write(' + ', a[i]);
writeln;
end;
end;
begin
read(n);
gen(1, 1, n);
end.
Ответил fktrcfylh125465
0
Надо, чтобы без массива была
Ответил fktrcfylh125465
0
что изменить, чтобы считала правильно
Ответил fktrcfylh125465
0
program ex1;
var n,t: integer;
procedure A(p, v, s: integer);
var i: integer;
begin
if s > 0 then
for i := v to s do
begin
t := i;
A(p + 1, i, s - t);
end
else if t < n then
begin
write(t);
for i := 2 to p - 1 do
write(' + ', t);
writeln;
end;
end;
begin
read(n);
A(1, 1, n);
end.
var n,t: integer;
procedure A(p, v, s: integer);
var i: integer;
begin
if s > 0 then
for i := v to s do
begin
t := i;
A(p + 1, i, s - t);
end
else if t < n then
begin
write(t);
for i := 2 to p - 1 do
write(' + ', t);
writeln;
end;
end;
begin
read(n);
A(1, 1, n);
end.
Ответил A1dar
0
Можно и без массива, но это намного сложнее, да и вообще будет работать дольше
Ответил fktrcfylh125465
0
мне вот и надо без массива, это обязательное условие
Новые вопросы