Описать рекурсивную функцию: является ли симметричной часть строки, начинающаяся i-м и кончающаяся j-м элемент

@Нозим · Регистрация: 14.10.2014

Описать рекурсивную логическую функцию summ( $https://www.cyberforum.ru/cgi-bin/latex.cgi?\alpha$ ,i,j), проверяющую, является ли симметричной часть строки $https://www.cyberforum.ru/cgi-bin/latex.cgi?\alpha$ , начинающаяся i-м и кончающаяся j-м ее элементами.

@Puporev · 27.11.2014, 15:47

Pascal

function Simm(s:string;i,j:byte):boolean;
Begin
if (j-i<=1)and(s[i]=s[j]) then Simm:=true
else Simm:=(s[i]=s[j]) and Simm(s,i+1,j-1);
end;
var s:string;
    n,k:byte;
begin
writeln('Введите строку:');
readLn(s);
writeln('Введите позиции начала и конца интервала:');
readln(n,k);
write(Simm(s,n,k));
End.

Добавлено через 1 минуту
Букву s попробуй сам заменить на альфа..

@Нозим 0 / 0 / 0 Регистрация: 14.10.2014 Сообщений: 22
		1
	Описать рекурсивную функцию: является ли симметричной часть строки, начинающаяся i-м и кончающаяся j-м элемент 27.11.2014, 15:32. Показов 1884. Ответов 1 Метки нет (Все метки) Описать рекурсивную логическую функцию summ( $https://www.cyberforum.ru/cgi-bin/latex.cgi?\alpha$ ,i,j), проверяющую, является ли симметричной часть строки $https://www.cyberforum.ru/cgi-bin/latex.cgi?\alpha$ , начинающаяся i-м и кончающаяся j-м ее элементами. 0

Опции темы

Описать рекурсивную функцию: является ли симметричной часть строки, начинающаяся i-м и кончающаяся j-м элемент

Решение