Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.07.2008, 14:49   #1
Serejka
 
Регистрация: 25.07.2008
Сообщений: 7
По умолчанию Помогите с рекурсией

Нужно сформировать файл (или вывести в Memo или ещё куда) такого вида:
1
2
3

...

N-2
N-1
N
1 1
1 2
1 3

...

1 N-1
1 N
2 1
2 2

...

N N-1
N N
1 1 1
1 1 2
1 1 3

...

1 1 ... (M раз) ... 1
1 1 ... (M раз) ... 2
1 1 ... (M раз) ... 3

...

1 1 ... (M раз) ... N-1
1 1 ... (M раз) ... N

...

N N ... (M раз) ... N-1
N N ... (M раз) ... N

Почему-то мне кажется, что без рекурсии это проблематично сделать, но и с ней у меня уже второй день ничего не получается ((
Подскажите что-нибудь пожалуйста.
Serejka вне форума Ответить с цитированием
Старый 25.07.2008, 15:36   #2
Банзай
Пользователь
 
Аватар для Банзай
 
Регистрация: 21.08.2007
Сообщений: 89
По умолчанию

здесь в последней строке: N N ... (M раз) ... N все цифры выводятся одномоментно, значит в рекурсии смысла нет зря память переводить.
думаю лучше взять массив длиной М,
и в цикле организовать его арифметическое заполнение справа на лево (разрядность элементов N) простой логикой типа: если этот элемент больше N то меняем его в единицу а элемент слева +1, если меньше, то этот элемент +1. потом также рассматриваем элемент слева.
на каждом шаге цикла выводить содержимое массива в файл одной строкой без тех элементов где 0.
подписываюсь

Последний раз редактировалось Банзай; 25.07.2008 в 15:41.
Банзай вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как задать рекурсией? Irdis Фриланс 4 11.02.2010 02:01
Паскаль. Задачка с рекурсией! Irdis Помощь студентам 10 14.04.2008 00:00
Помогите плз с Рекурсией Dendy Паскаль, Turbo Pascal, PascalABC.NET 4 03.02.2008 22:44