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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.02.2012, 15:30   #1
Rediska512
Пользователь
 
Регистрация: 16.02.2012
Сообщений: 16
По умолчанию Pascal. Рекурсия

Подскажите пожалуйста, рекурсию разбирали только для факториала, а у меня вот такая задача:
Дан текст который заканчивается точкой, с помощью рекурсивной процедуры или функции напечатать текст наоборот
Например: Мама и папа.
Ответ .апап и амаМ
Спрашивал у преподавателя сказала что надо как-то через длину текста, но как именно не понял, подскажите кто знает
Rediska512 вне форума Ответить с цитированием
Старый 17.02.2012, 15:42   #2
Plague
Забанен
Форумчанин Подтвердите свой е-майл
 
Аватар для Plague
 
Регистрация: 01.11.2006
Сообщений: 420
По умолчанию

Код:
procedure invstr(s:string;n:integer);
begin
  if n<>0 then
    begin
      write(s[n]);
      invstr(s,n-1);
    end;
end;
var st:string;
    l:integer;
begin
  st:='Мама и папа.';
  l:=length(st);
  invstr(st,l);
end.
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
Plague вне форума Ответить с цитированием
Старый 17.02.2012, 15:54   #3
Rediska512
Пользователь
 
Регистрация: 16.02.2012
Сообщений: 16
По умолчанию

спасибо огромное
Rediska512 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
pascal.Рекурсия. kelly Помощь студентам 2 16.12.2011 18:37
Рекурсия!!!(PASCAL) Cas01 Помощь студентам 0 16.03.2011 17:45
Pascal Рекурсия! Korun Помощь студентам 3 16.12.2009 16:50
Pascal: Рекурсия MaGWaY_minsk Помощь студентам 2 19.02.2009 09:46
Pascal. рекурсия. TOSAgrk Помощь студентам 2 04.02.2009 12:05