Описать рекурсивную логическую функцию cumm (s,I,j),Проверяющую ,является ли симметричной часть строки s,Начинающаяся i-m и кончающаяся j-m ее элем

@CrueLs · Регистрация: 09.12.2010

Описать рекурсивную логическую функцию cumm (s,I,j),Проверяющую ,является ли симметричной часть строки s,Начинающаяся i-m и кончающаяся j-m ее элементами

@Puporev · 09.12.2010, 11:19

Pascal

uses crt;
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
clrscr;
writeln('Введите строку:');
readLn(s);
writeln('Введите позиции начала и конца интервала:');
readln(n,k);
write(Simm(s,n,k));
readln
End.

@CrueLs 1 / 1 / 0 Регистрация: 09.12.2010 Сообщений: 8
		1
	Описать рекурсивную логическую функцию cumm (s,I,j),Проверяющую ,является ли симметричной часть строки s,Начинающаяся i-m и кончающаяся j-m ее элем 09.12.2010, 10:27. Показов 5802. Ответов 1 Метки нет (Все метки) Описать рекурсивную логическую функцию cumm (s,I,j),Проверяющую ,является ли симметричной часть строки s,Начинающаяся i-m и кончающаяся j-m ее элементами 1

Опции темы

Описать рекурсивную логическую функцию cumm (s,I,j),Проверяющую ,является ли симметричной часть строки s,Начинающаяся i-m и кончающаяся j-m ее элем

Решение