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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.02.2011, 13:10   #1
enji4ka
Пользователь
 
Аватар для enji4ka
 
Регистрация: 22.01.2009
Сообщений: 45
Радость Рекурсия.Текст.

Здравствуйте! Рекурсию начала изучать недавно, и появились сложности с её пониманием. Помогите, пожалуйста, написать программу - вводится слово и с помощью рекурсии его надо написать наоборот. Заранее, спасибо!
enji4ka вне форума Ответить с цитированием
Старый 12.02.2011, 13:33   #2
veniside
Старожил
 
Регистрация: 03.01.2011
Сообщений: 2,508
По умолчанию

Код:
function reverse(const s: string; index: integer = 1): string;
begin
  if ('' = s) then result := ''
  else
    if (index < length(s)) then
      result := reverse(s, index + 1) + s[index]
    else
      result := s[index];
end;
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."

Последний раз редактировалось veniside; 12.02.2011 в 13:43.
veniside вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сохранить в текстовый файл текст из Memo и текст из нескольких Edit misher Общие вопросы Delphi 5 02.01.2011 15:37
Текст в колонтитулах в обычный текст в Word 2003 FLOWER2305 Microsoft Office Word 0 14.12.2010 21:33
Дан файл, содержащий текст, записанный строчными русскими буквами. Получить в др.файле тот же текст, develish151 Microsoft Office Word 4 05.05.2010 13:20
Как узнать какой текст выделен в текст поле mogul82 JavaScript, Ajax 2 02.11.2008 16:32
Рекурсия Xeon332 Помощь студентам 5 16.01.2008 20:52