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

[Novenkaja]

baster128

я так делала

program rek;
uses crt;
var input,output:string;
    begin
       clrscr;
function reverse(inputparametr,outputparametr:string) :string;
     begin
         if  (inputparametr= ' ' )    then
              begin
               writeln(' otvet: ', outputparametr);
             end
       else
             begin
             outputparametr:=outputparametr+inputparametr[lenght(inputparametr)-1];
             end;
     end;
.....

а дальше идей нет...


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Novenkaja]

new man

всё,я задала result там где был var st:string добавила туда var st,result:string

теперь компилирует,но ничего не выдаёт в ране,т.е. пишу слово,чтобы наоборот читалось так же,а после написиания слова,нажимаю энтер и всё,из рана он выходит

[baster128]

Дружище! Прости за ради бога, но этот код никакого отношения к твоей задаче не имеет. Ты спрашивала "что такое рекурсия?" Я пример привел. Если тебе полностью программу писать, то это не ко мне. Ребят тут много за деньги все напишут.

[Novenkaja]

baster128

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

[Novenkaja]

кто-нибудь ещё может помочь с эти заданием?
посмотрите то,что написала я выше,у меня вообще мысль,идея решения задания верна?
код не дописан,т.к. дальше не знаю,что написать....

[Novenkaja]

у кого-нибудь есть какие-то идеи по поводу того,как решить это задание? я не могу долго сидеть за компьютером, а задание нужно преподователю отправить сегодня.

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

[GetMax]

Вроде все работает

function recObm(s:string):string;
begin
    if length(s)=1 then recObm:=S
    Else
    RecObm:=S[Length(S)]+recObm(copy(s,1, length(s)-1));
end;
var st:string;
begin
  readln(st);
  Writeln(recObm(st));
  Readln
End.

[Novenkaja]

сейчас введу а прогрумму и посмотрю

[Novenkaja]

GetMax

ого,такой оказывается короткий код????
да,компилируется и в ране выдаёт палиндромом))))

спасибо тебе огромное)))
счастью моему нету придела

можешь только объяснить пожалуйста,что выполняется в этой строке?

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

[Serge_Bliznykov]

Novenkaja

правильное решение дал New man
(пост #7)

единственное, ключевое слово RESULT появилось в более поздних модификациях Паскаля, в TurboPascal такого не было,
поэтому вместо result надо просто напросто писать имя функции. (кстати, это касается всех функций, к рекурсии это отношении НЕ ИМЕЕТ).
И, если бы Вы почитали, как пишутся ЛЮБЫЕ функции в Паскаль, Вы бы легко подправили код так, как нужно!

program Rec;

function recObm(s:string):string;
begin
    if length(s)>1 then
     begin
        recObm:=s[length(s)]+recObm(copy(s,2, length(s)-2))+s[1];
     end
     else
       recObm:=s;
end; 

var st:string;
begin
  WriteLn('Введите исходное слово (строку): ');
  readln(st);
  writeln('Результат: ',recObm(st));
  readln;
end.

ДОБАВЛЕНО

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

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

GetMax, ну да, согласен. так ещё проще и понятнее!


Novenkaja
RecObm := S[Length(S)]+recObm(copy(s,1, length(s)-1));
читаем: вернуть в функцию_палиндрома строку, равную последний символ строки с приписанным к нему результатом функции_палиндрома(параметер: строка без последнего символа)