Описать логическую (возможно рекурсивную) функцию, проверяющую является ли симметричной часть массива

@Vitalij1234 · Регистрация: 28.12.2014

Author24 — интернет-сервис помощи студентам

Описать логическую (возможно рекурсивную) функцию, проверяющую является ли симметричной часть массива, начинающаяся i-м и кончающаяся j-m его элементом. Если да, то вывести true, если нет, то false.

@Puporev · 28.12.2014, 11:56

Pascal

uses crt;
type mas=array[1..100] of integer;
function simm(a:mas;i,j:integer):boolean;
begin
if (j=i)or((j-i=1)and(a[i]=a[j])) then simm:=true
else simm:=(a[i]=a[j])and(simm(a,i+1,j-1));
end;
var a:mas;
    n,i,j:integer;
begin
write('Введите размер массива n=');
readln(n);
writeln('Введите элементы массива, целые числа');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i])
 end;
clrscr;
writeln('Массив');
for i:=1 to n do
write(a[i],' ');
writeln;
repeat
write('Введите начало интервала от 1 до ',n,' i=');
readln(i);
until(i>0)and(i<=n);
repeat
write('Введите конец интервала j>=',i,' и j<=',n,' j=');
readln(j);
until (j>=i)and(j<=n);
write(simm(a,i,j));
end.

@Vitalij1234 · 28.12.2014, 15:29 **[ТС]**

Большое Вам спасибо !

@derevyashka · 12.02.2017, 22:54

А это же рекурсивная функция?

@Puporev · 13.02.2017, 08:15

Да, конечно. Вызов функции происходит внутри функции.

Pascal

1	else simm:=(a[i]=a[j])and(simm(a,i+1,j-1));

@Vitalij1234 0 / 0 / 0 Регистрация: 28.12.2014 Сообщений: 26
		1
	Описать логическую (возможно рекурсивную) функцию, проверяющую является ли симметричной часть массива 28.12.2014, 03:26. Показов 1663. Ответов 4 Метки нет (Все метки) Описать логическую (возможно рекурсивную) функцию, проверяющую является ли симметричной часть массива, начинающаяся i-м и кончающаяся j-m его элементом. Если да, то вывести true, если нет, то false. 0

@Vitalij1234 0 / 0 / 0 Регистрация: 28.12.2014 Сообщений: 26
	28.12.2014, 15:29 [ТС]	3
	Большое Вам спасибо ! 0

@derevyashka 1 / 1 / 0 Регистрация: 17.09.2015 Сообщений: 112
	12.02.2017, 22:54	4
	А это же рекурсивная функция? 0

	13.02.2017, 08:15