Задание в Паскале с использованием рекурсии

[Novenkaja]

Добрый вечер.

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

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

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

[Shift_sk]

смотри вот строка данна допустим
asfs
полендром будет под твое условие asfssfsa или asfsa???

[Novenkaja]

я понимаю что такое палиндром

кот-ток
город-дорог
Аня-Яна

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

[Shift_sk]

var s,s2:string;
procedure rtr;
var i:integer;
begin
read(s);
for i:=length(s) downto 1 do 
s2:=s2+s[i];
writeln(s2);
end;
begin

rtr;
end.

примерно так!

[Novenkaja]

Shift_sk

спасибо тоже за помощь

[XandrMoro]

Ну, во-первых, палиндром - это не слово наоборот, а слово, которое читается справа налево и слева направо одинаково.
Во-вторых, рекурсивно переворачивать слово - это весьма странно, но вполне реализуемо:

var s: string;
      l: byte;
procedure rev(a: byte);
var c: char;
begin
 c:= s[a];
 s[a]:= s[l-a+1];
 s[l-a+1]:= c;
 if a < l div 2 then rev(a+1);
end;

begin
 readln(s);
 l:= length(s);
 rev(a);
 writeln(s);
end.

Хотя вариантов, на самом деле, много.

[Shift_sk]

у автора видимо другое представление полиндрома"!

[Novenkaja]

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

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

большое спасибо!!!!

[mss]

> Shift_sk

Замечательная у тебя рекурсия, рекурсивней некуда)

> у автора видимо другое представление полиндрома

А у тебя о рекурсии)