Задача на рекурсию в паскале

[Novenkaja]

Serge_Bliznykov

спасибо,так ведь GetMax тоже ведь дал правильный код,просто у Вас он более раскрыт,так скажем.

Всё равно обоим Вам человеческое спасибо!!!!

[Novenkaja]

хорошо,тогда такой вопрос:
в чём разность двух этих строк?точнее их написания?

recObm:=s[length(s)]+recObm(copy(s,2, length(s)-2))+s[1];

recObm:=S[Length(S)]+recObm(copy(s,1, length(s)-1));

и зачем тогда в условии даётся,что не больше 256 символов?
это имеется ввиду,чтобы знать,акой тип переменоой задавать?

[New man]

У типа string максимальный размер 255 символов

Функция у меня вызывается в 2 раза меньше чем у GetMax
моя версия должна работать в раза быстрее

Так должно еще быстрее

  recObm:=s[length(s)]+s[Length(s)-1]+recObm(s)+s[2]+s[1]

Надо выбирать оптимальное отношение размер кода/скорость работы

Я на Delphi пишу

[Serge_Bliznykov]

чём разность двух этих строк?точнее их написания?

1-я строчка (кстати, не надо мне чужой славы - это не мой код, это код (c) New man ):
Перевёртыш(Строки_S) равен Последний_символ строки_S + Перевёртыш(_внутренней_части_Строки _S) + Первый_символ_строки_S

_внутренней_части_Строки_S - это строка S без первого и последнего символа

2-й вариант:
Перевёртыш(Строки_S) равен Последний_символ строки_S + Перевёртыш(Часть_Строки_S_без_после днего_символа)

распишите на бумажке на примере какого нибудь простенького слова, тогда станет понятнее. (и, кстати, можете в отладчике пошагово пройтись, наблюдая за переменной S и результатом, который возвращает рекурсивная функция.

и зачем тогда в условии даётся,что не больше 256 символов?
это имеется ввиду,чтобы знать,акой тип переменоой задавать?

точно не скажу. Но, скорее всего, именно для этого.
Вероятно это указание на то, чтобы использовать тип String (а не массив, например). Хотя тут есть неточность:
в TurboPascal строки не могут быть длиной более 255 символов!



ну и не могу удержаться от пары шуток на тему рекурсии:

Чтобы понять рекурсию надо понять рекурсию.

в энциклопении терминов программиста:
Рекурсия — см. Рекурсия

рекурсия в песне:
я оглянулся посмотреть, не оглянулась ли она, посмотреть не оглянулся ли я...



________________________
Добавлено

Сообщение от New man

Так должно еще быстрее

recObm:=s[length(s)]+s[Length(s)-1]+recObm(s)+s[2]+s[1]

А вот тут, коллега, Вы, в погоне за скоростью получили ошибочный код!
Получите, например, этой "быстрой" функцией "перевёртыш" слова АУ... и получите переполнение стека!
Только не надо мне рассказывать, как можно дописать дополнительную проверку, чтобы такой код заработал!

[Novenkaja]

спасибо Вам ребята!!!!

насчёт первой шутки знаю,уже слышала)))

спасибо за объяснение,да,попробую на листе написать и просмотреть как это работает.

насчёт как идёт s,поняла,это через debug)))
спасибо))))

[Novenkaja]

я уже отослала преподователю тот,что отредактировали Вы:Serge_Bliznykov

всем спасибо)))

[XandrMoro]

Сообщение от Serge_Bliznykov

ну и не могу удержаться от пары шуток на тему рекурсии:

Коктейль "Рекурсия": 30% спирта, 20% воды, 50% коктейля "Рекурсия"

[Novenkaja]

забавная шутка,надо будет своим в универе рассказать)))

оценила на все 100%

Serge_Bliznykov

кст я на листе прокрутило это через первый вид формулы,и через второй,получилось то,что нужно))))
так даже легче и сделать и понять)))

ещё раз спасибо))))

[veniside]

рекурсия тут нужна как собаке пятая нога, но если уж такое задание, вот вариант, который хотя бы не создаёт новые строки на каждой итерации.

procedure reverse(var s: string; index: integer = 1);
var
  c: char;
begin
  if (index <= length(s) shr 1) then begin
    //
    c := s[index];
    s[index] := s[length(s) - index + 1];
    s[length(s) - index + 1] := c;
    //
    reverse(s, index + 1);
  end;
end;