Помощь - Поиск - Пользователи - Календарь
Полная версия: Рекурсия + строка
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
svartalf
Необходимо сделать рекурсивную функцию, проверяющую, является ли симметричной строка указанной длины. Строка, должна видимо выглядеть примерно так: "abcdeedcba".
C рекурсиями у меня плохо (надеюсь, что пока что smile.gif ), поэтому прошу помощи.. blink.gif
volvo
Цитата(svartalf @ 22.04.2006 12:35)
Необходимо сделать рекурсивную функцию, проверяющую, является ли симметричной строка

Ты про это:
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.
?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.