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

[Novenkaja]

Добрый день.

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

И заодно,не могли бы Вы объяснить доступно,что такое всё таки рекурсия?

Заранее спасибо)

[baster128]

Рекурсия - это когда процедура или функция вызывает сама себя. Для этого напиши ее самою, а потом в ней же и вызовешь ее.

[Novenkaja]

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

ты не мог бы мне помочь с кодом,и если не трудно и если есть время заодно его потом и объяснить?
буду тебе очень благодарна)

[Novenkaja]

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

[New man]

program Rec;
function recObm(s:string):string;
var b:integer;
begin
if length(s)>1 then
begin
result:=s[length(s)]+recObm(copy(s,2, length(s)-2))+s[1];
end
else
result:=s;
end;
var st:string;
begin
readln(st);
st:=recObm(st);
writeln(st);
end;

[baster128]

Program Arsac;
Var first: word;
Procedure posledov (i: word);
Begin
   Writeln (i);
   If i=1 then exit;
   If odd(i) then posledov(3*i+1) else posledov(i div 2);
End;
Begin
   Write (‘ введите первое значение ’); readln (first);
   Posledov (first);
   Readln ;
End.

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

[New man]

program Rec;
function recObm(s:string):string;
var b:integer;
begin
    if length(s)>1 then
     begin
        result:=s[length(s)]+recObm(copy(s,2, length(s)-2))+s[1];
     end
     else
       result:=s;
end; 
var st:string;
begin
   readln(st);
   st:=recObm(st);
  writeln(st);
end;

[Novenkaja]

New man

спасибо,я её быстренько ввела в программу,но он выдал ошибку,что identifier not found result,именно в тех двух местах,где result указано в коде

и ещё,я могу написать var st:string между прогарм и функция ?
т.е
program Rec;
var st:string;
function recObm(s:string):string;
var b:integer;
begin

(а потом всё так же как и вы написали)

[baster128]

Код целиком давай

[Novenkaja]

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

New man

Вы составили код,который в ране будет выдавать в обратную сторону число или слово?