Рекурсивно оределить, есть ли среди членов данной последовательности число x

@AFox · Регистрация: 06.12.2014

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

Помогите, пожалуйста.
Дана упорядоченная по убыванию последовательность целых чисел. Определить,
есть ли среди членов данной последовательности число x, и если есть, найти номер
этого члена.

Добавлено через 2 часа 23 минуты
Вот попытка, но она неудачная; Ошибка времени выполнения, переполнение программного стека.

Pascal

{Дана упорядоченная по убыванию последовательность целых чисел. Определить,
есть ли среди членов данной последовательности число x, и если есть, найти номер
этого члена}
Program 7;
const n=6;
type
  t_diap = 1..n;
  t_pos = array[t_diap] of integer;
 
procedure read_pos(chars:set of integer; var a: t_pos);
var
  i: byte;
begin
  for i := 1 to n do
    begin
    read(a[i]);
    chars:=chars+[a[i]];
end;
end;
 
procedure rec(a: t_pos; var chars:set of integer; var k,i,x:integer);
begin
i:=i+1;
if x in chars then
begin 
write(a[i],i);
k:=k+1;
end
else rec(a,chars,k,i,x);
end;
var chars:set of integer; 
a:t_pos; k,i,x:integer;
begin
read(x);
i:=0;
chars:=[];
read_pos(chars, a);
k:=0;
rec(a,chars,k,i,x);
if k=0 then write('x не принадлежит');
readln;
end.

@Puporev · 06.12.2014, 17:40

Интересно какое отношение этот код имеет отношение к Вашей задаче?
Да найдите бинарный поиск на нашем форуме или в инете. Он как правило делается рекурсивно.

@AFox · 06.12.2014, 18:33 **[ТС]**

Точно, спасибо за ответ!

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	06.12.2014, 17:40	2
	Интересно какое отношение этот код имеет отношение к Вашей задаче? Да найдите бинарный поиск на нашем форуме или в инете. Он как правило делается рекурсивно. 1

@AFox 0 / 0 / 0 Регистрация: 06.12.2014 Сообщений: 11
	06.12.2014, 18:33 [ТС]	3
	Точно, спасибо за ответ! 0