Цепной код

[a.09]

http://www.tinaja.com/text/chain01.html
-- вот какая-то информация о цепном коде на английском.
Вкратце, двоичный цепной код -- это способ перечисления всех двоичных векторов n-ой длины, получаемый сдвигом предыдущей строки на один элемент влево и добавлением нуля или единицы на свободное место справа.

Пример для n=3:
000
001
010
101
011
111
110
100

Нужно написать программу, которая для заданного n выводит все двоичные вектора длины n в порядке цепного кода.
Если кто-либо из вас знает бэйсик, можете попробовать перевести текст программы, данной на бэйсике по ссылке выше.
Это срочно (у меня есть не более суток). Заранее спасибо.

[Пепел Феникса]

для какого языка надо то??

[a.09]

На Pascal'е.

[Скарам]

Я вижу это так...если у нас только одно значение,то,оно принимает значение 0 или 1..
если 2:
00
01
10
11
если 3(копирую для 2х,вставляю 2 раза,дописываю для первой вставки 0 в начале,для второй 1):
000
001
010
011
100
101
110
111
ну и тд...т.е. очевидно,что таким образом зная n можно записать все вектора...кол-во векторов 2^n.Создаем массив иии...)))

[a.09]

...иии?!
Нужно записать все двоичные вектора именно в последовательности цепного кода. Вопрос -- как.

[Alex Cones]

Берешь строку S(взял?) в неё пишешь первые 3 числа (0 или 1 но случайно). Потом запускаешь алгоритм:
1) Получаем число N = 0 or 1
2) Из строки S копируем в строку G первые 2 символа (Copy)
3) В строку G дописываем IntToStr(N) в конец
4) S:=G;
1) Иди на... 1.

Все.