Помогите написать рекурсивную проц-ру

← →
kehl © (2013-05-13 17:33) [0]

Дан список целых чисел. Удалить все элементы после ноля.

← →
brother © (2013-05-13 17:48) [1]

SetLength и никакой рекруссии

← →
brother © (2013-05-13 17:49) [2]

зы. список - это массив integer?

← →
kehl © (2013-05-13 17:58) [3]

нет, это структура данных

← →
O'ShinW © (2013-05-13 18:06) [4]

процедура УдалитьРекурсивно(Struc:TStruc);
if Struc[последний] = 0 then
Показать(Struc) else
УдалитьРекурсивно(Struc[без последнего])

+проверить, есть ли 0 вообще
+а если нулей > 1?

А оптимальнее найти 0 и отсечь остальное

← →
Ega23 © (2013-05-13 18:07) [5]

> нет, это структура данных

Массив Integer - это тоже структура данных.
Конкретизируй.

← →
clickmaker © (2013-05-13 18:41) [6]

Зачем рекурсия для списка?

← →
Rouse_ © (2013-05-13 19:07) [7]

> clickmaker © (13.05.13 18:41) [6]
> Зачем рекурсия для списка?

А почему-бы и нет? Списки они разные бывают, да и в некоторых случаях рекурсия более удобна для решения задачи (правда не в этом варианте, конечно, хотя тут условие какое-то размытое...)

← →
Ega23 © (2013-05-13 19:18) [8]

> Зачем рекурсия для списка?

Ну в принципе, список суть вырожденное дерево. И его тоже можно обойти "вниз". :)

> Ega23 © (13.05.13 19:18) [8]
> Ну в принципе, список суть вырожденное дерево.

Хе, не зря я тебе мозг в курилке долбил :)
Абсолютно верно :)

Удалено модератором
Примечание: пардон не туда...

Удалено модератором

Помогите написать рекурсивную проц-ру Найти похожие ветки