О недавних событиях на Форуме, разделено Опции

[Lapp]

Алгоритм ты озвучил сам: перебор.

Есть реализация: числа, дающие в сумме заданное число
Повторений не наблюдается...

volvo, а почему ты счел возможным совершенно проигнорировать мой пост (Разбиение числа на слагаемые) и даже не извиниться?.. Мне кажется, это не принято.

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

-1

Добавлено через 7 мин.

Алгоритм ты озвучил сам: перебор.

Перебор - это класс алгоритмов, а не алгоритм.

Вот мое модифицированное решение:

const
  m=1000;
var
  a: array[1..m]of integer;
  k,n,q: integer;

procedure Split(j,n: integer);
var
  i: integer;
begin
  if (n=0)and(k=q) then begin
    for i:=1 to k do Write(a[i]:4);
    WriteLn
  end
  else for i:=j to n do begin
    Inc(k);
    a[k]:=i;
    Split(i+1,n-i);
    Dec(k)
  end
end;

begin
  Write('n = ');
  ReadLn(n);
  Write('q = ');
  ReadLn(q);
  k:=0;
  Split(1,n);
  ReadLn
end.

[andriano]

Причины и начало дискуссии тут: Разбиение числа на слагаемые

volvo, а почему ты счел возможным совершенно проигнорировать мой пост

Правильно ли я понял, что на этом форуме действует правило "Кто первым встал, того и тапки", т.е. запрещается писать в тему всем, кроме автора и первого ответившего?

Или все дело исключительно в том кто первый ответивший?

[TarasBer]

А он уже второй профиль завёл, я смотрю.

Вольво, новые имена, прокси итд - это всё фигня. Для анонимности, в первую очередь, надо сменить стиль общения, а он пока что выдаёт тебя с головой. Но это так, на будущее. Тут-то можешь вообще не шухериться, просто странно смотрятся все эти шпионские игры.

Сообщение отредактировано: TarasBer - 28.04.2011 16:00