Версия для печати темы

Автор: svartalf 22.04.2006 16:35

Необходимо сделать рекурсивную функцию, проверяющую, является ли симметричной строка указанной длины. Строка, должна видимо выглядеть примерно так: "abcdeedcba".
C рекурсиями у меня плохо (надеюсь, что пока что ), поэтому прошу помощи..

Автор: volvo 22.04.2006 17:03

function is_palindrom(s: string): boolean;
begin
  is_palindrom := true;

  if length(s) <= 1 then exit
  else begin

    if s[1] = s[length(s)] then
      is_palindrom := is_palindrom(copy(s, 2, length(s) - 2))
    else is_palindrom := false;

  end;
end;

begin
  writeln(is_palindrom('abcdeedcba'));
end.