Последовательность

[POCOMAXA]

Рассмотрим числовую последовательность, первоначально состоящую из двух
единиц: 1, 1. Далее на каждом последующем шаге будем вставлять между
соседними элементами их сумму. В примере добавляемые элементы выделены.
Которая выведет последовательность за К шагов.
Можно на псевдокоде

[Abstraction]

Которая выведет последовательность за К шагов.

Моя твоя понимай совсем нет.

void print_subsequence(int from, int to, int depth){
  if(depth == 0) {printf("%d, ", from); return;}
  print_subsequence(from, from+to, depth-1);
  return print_subsequence(from+to, to, depth-1);
}

void print_sequence(int depth){
  print_subsequence(1, 1, depth);
  prinf("1");
}

[POCOMAXA]

Сообщение от Abstraction

void print_subsequence(int from, int to, int depth){
  if(depth == 0) {printf("%d, ", from); return;}
  print_subsequence(from, from+to, depth-1);
  return print_subsequence(from+to, to, depth-1);
}

void print_sequence(int depth){
  print_subsequence(1, 1, depth);
  prinf("1");
}

а как на паскаль или делфи переделать?

[Abstraction]

а как на паскаль или делфи переделать?

Понятия не имею: не пишу ни на Pascal, ни на Delphi. Решение задачи, изложенной в первом сообщении темы (как я это задание понял) - приведено. На всякие экзотические языки программирования предоставляю Вам перевести самостоятельно.

[Poma][a]

В лоб :

var
        a, b : array [1..100] of Integer;
        m, n, count, i, j, k : Integer;

begin
        ReadLn (m);

        a[1] := 1;
        a[2] := 1;
        n := 2;

        for i := 1 to m do begin
                FillChar (b, SizeOf(b), 0);
                count := 1;
                for j := 1 to n-1 do begin
                        b[count] := a[j];
                        b[count+1] := a[j] + a[j+1];
                        Inc (count, 2)
                end;
                b[count] := a[n];

                FillChar (a, SizeOf(a), 0);

                n := count;
                a := b;

                for k := 1 to n do
                        Write (a[k],  ' ');
                WriteLn
        end;

end.

[POCOMAXA]

спасибо. я его немного переделал для делфи и все ок.

[Poma][a]

Так же некоторые соображения.. :
В N-ой строке будет 2^n + 1 цифр.
Причем первые 2^(n-1) символов являются зеркальным отображением последних 2^(n-1) символов. А между ними стоит цифирка (но это для N-ой строки, где N > 0)

Поэтому можно отображать 2-ую часть последовательности, но не знаю, даст ли это нам выигрыш в эффективности.

Так же мне очень не нравится ситуация с 2-мя массивами. Как от них избавиться идей нет..

[Abstraction]

Так же мне очень не нравится ситуация с 2-мя массивами. Как от них избавиться идей нет..

Можете посмотреть на моё решение. Оно использует памяти всего O(K), а не O(2^K).

[BDA]

(с) Abstraction
procedure print_subsequence(from, to1, depth: integer);
begin
  if depth = 0 then
  begin
    write(from, ', ');
    exit;
  end;
  print_subsequence(from, from+to1, depth-1);
  print_subsequence(from+to1, to1, depth-1);
end;
 
procedure print_sequence(depth: integer);
begin
  print_subsequence(1, 1, depth);
  write('1');
end;

[Poma][a]

Abstraction, спасибо! Сейчас глянем!
BDA, спасибо, а то я уже было начал искать FCEditor, чтобы разобраться по блок-схеме.


UPD 21:55
Это гениально!!! Но я не понимаю, как это работает

UPD 22:00
Я правильно понимаю что строки :

print_subsequence(from, from+to1, depth-1);
  print_subsequence(from+to1, to1, depth-1);

создают строки, одна из которых является зеркальным отображением 2-ой?