| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите написать рекурсивную проц-ру [D7, XP]
kehl © (2013-05-13 17:33:00)Дан список целых чисел. Удалить все элементы после ноля.
Германн (2013-05-14 03:02:00) [1]Удалено модератором
Rouse_ (2013-05-13 19:56:00) [2]Удалено модератором
Примечание: пардон не туда...
Rouse_ (2013-05-13 19:20:00) [3]
> Ega23 © (13.05.13 19:18) [8]
> Ну в принципе, список суть вырожденное дерево.
Хе, не зря я тебе мозг в курилке долбил :)
Абсолютно верно :)
Ega23 (2013-05-13 19:18:00) [4]
> Зачем рекурсия для списка?
Ну в принципе, список суть вырожденное дерево. И его тоже можно обойти "вниз". :)
Rouse_ (2013-05-13 19:07:00) [5]
> clickmaker © (13.05.13 18:41) [6]
> Зачем рекурсия для списка?
А почему-бы и нет? Списки они разные бывают, да и в некоторых случаях рекурсия более удобна для решения задачи (правда не в этом варианте, конечно, хотя тут условие какое-то размытое...)
clickmaker (2013-05-13 18:41:00) [6]Зачем рекурсия для списка?
Ega23 (2013-05-13 18:07:00) [7]
> нет, это структура данных
Массив Integer - это тоже структура данных.
Конкретизируй.
O'ShinW (2013-05-13 18:06:00) [8]процедура УдалитьРекурсивно(Struc:TStruc);
if Struc[последний] = 0 then
Показать(Struc) else
УдалитьРекурсивно(Struc[без последнего])
+проверить, есть ли 0 вообще
+а если нулей > 1?
А оптимальнее найти 0 и отсечь остальное
kehl (2013-05-13 17:58:00) [9]нет, это структура данных
brother (2013-05-13 17:49:00) [10]зы. список - это массив integer?
brother (2013-05-13 17:48:00) [11]SetLength и никакой рекруссии
| |
