Комбинаторика подъёма на лестницу

[Luckycat]

Всем привет! Имеется лестница из 10 ступенек, подниматься можно наступая на каждую ступеньку или через одну. Вывести на экран все варианты поднятия на эту лестницу следующим видом:
1111111111 - наступили на каждую ступеньку,
1010101010 - шагали через одну.
Т.е. 1 наступили на ступеньку, 0 - нет!
Нельзя перепрыгивать через 2 ступеньки и более... только через одну! не может быть вот таких записей:
1000011111
0010010011
Заранее спасибо!

[BDA]

Решение в лоб:

var
  i, j: integer;
  t, zero: boolean;

begin
  for i := 0 to 1023 do
  begin
    j := 0;
    t := true;
    zero := false;
    while t and (j < 10) do
    begin
      if ((i shr j) and 1 = 0) and zero then
        t := false;
      zero := ((i shr j) and 1 = 0);
      inc(j);
    end;
    if t then
    begin
      for j := 0 to 9 do
        write((i shr j) and 1);
      writeln;
    end;
  end;
  readln;
end.

[Luckycat]

Спасибо большое! Вы мне очень помогли!

[Poma][a]

const
        NumOfStep = 10;
var
        a : array [0..NumOfStep] of Byte;

procedure Print;
var
        i : Integer;

begin
        for i := 1 to NumOfStep do
                Write (a[i]);
        WriteLn
end;

procedure GetNextStep (n : Integer);
begin
        if n > NumOfStep then begin
                Print;
                Exit
        end;

        if a[n-1] = 1 then begin
                a[n] := 0;
                GetNextStep (n+1)
        end;

        a[n] := 1;
        GetNextStep (n+1)
end;


begin
        a[0] := 1;

        GetNextStep (1)
end.

Как-то так..

[Luckycat]

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

Решение в лоб:

var
  i, j: integer;
  t, zero: boolean;

begin
  for i := 0 to 1023 do
  begin
    j := 0;
    t := true;
    zero := false;
    while t and (j < 10) do
    begin
      if ((i shr j) and 1 = 0) and zero then
        t := false;
      zero := ((i shr j) and 1 = 0);
      inc(j);
    end;
    if t then
    begin
      for j := 0 to 9 do
        write((i shr j) and 1);
      writeln;
    end;
  end;
  readln;
end.

а можешь прокомментировать код? всё работает правильно только я не понимаю как

[BDA]

Вариант Poma][и универсальнее.

10 ступенек - на каждую по 1 биту (наступал - не наступал).
Нужно перебрать все 10-битные числа (от 0 до 1023, 1023 = 1111111111 в двоичной).
Внутри этого цикла другим циклом проверяем, чтобы не было 2 нулей подряд.
Если проверка завершилась успешно, то побитово выводим текущее число на экран.