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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

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

Здрасьте. Задачка следующая: дан ленейный массив чисел. При помощи рекурсии его нужно записать в обратном порядке. Как это сделать? Я понимаю как это сделать в цикле, но при помощии рекурсии дуб-дубом. Да что говорить я вообще никогда рекурсию не брал в руки и не знаю с ее едят. У кого есть желание и время плиз начепятайте.
Vital_k вне форума Ответить с цитированием
Старый 08.02.2008, 13:09   #2
alexBlack
Участник клуба
 
Регистрация: 12.10.2007
Сообщений: 1,204
По умолчанию

Код:

var A:array [1..10] of integer;

procedure invertItem(N1, M1:integer);
begin
    t := A[N1];
    A[N1] := A[M1]
    A[M1] := t
    inc(N1); dec(M1);
    if N1 < M1 then invertItem(N1, M1)
end;

invertItem(1, 10);
alexBlack вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Рекурсия. p@ul Помощь студентам 4 30.12.2009 14:46
Рекурсия vitekbest Помощь студентам 1 30.05.2008 22:22
Рекурсия АнНютик Паскаль, Turbo Pascal, PascalABC.NET 1 29.01.2008 22:50
Рекурсия Pravednik Помощь студентам 3 21.01.2008 14:18
Рекурсия Xeon332 Помощь студентам 5 16.01.2008 20:52