Рекурсия, не могу найти ошибку, N нас. пунктов, пары пунктов соединены, узнать, можно ли попасть из Опции

[Cool_abc]

Текст задачи:
Имеется N населенных пунктов, пронумерованных от 1 до N (N = 10).
Некоторые пары пунктов соединены дорогами. Определить, можно ли по
дорогам попасть из пункта 1 в N-й пункт. Информация о дорогах задается в
виде последовательности пар чисел i и j (i < j), указывающих что i-й и j-й
пункты соединены дорогой. Признак конца этой последовательности – пара
нулей.
Из условия я вынес 1 из основных положений, что по кругу между пунктами мы ходить не будем, т.е. например
1-2-3-5-6-1 (- догора), задача после этого сущаственно упростилась:) написал, но не работает прога, помогите плиз найти ошибку.. или мот я в корне был не прав.. наставьте на путь правильный

Мой код:

Program lab;
  Type int=integer;
       mas=array [1..30, 1..2]of int;
  { 30 - условное число, просто чтобы ограничить массив}
  Var fl: boolean;
      x: mas;
      k:int;

  Procedure vvod(a:mas);
    Var x,y,i:int;
  begin
    Writeln('vvedite parbl 4isel');
    x:=1;y:=1;i:=0;
    While (x<>0) and (y<>0) do
    begin
      if i<>0 then begin
        a[i,1]:=x;
        a[i,2]:=y;
      end;
      Write('vvedite 1 4islo  ');readln(x);
      Write('vvedite 2 4islo  ');readln(y);
      i:=1+i
    end
  end;
  
  procedure find(A:int;var f:boolean);
    Var i:int;
  begin
    if x[A,2]=10  then  f:=true
      else begin
        i:=1;
        while (x[i,1]<>0) and (x[i,2]<>0) and (not f) do
        begin
          if x[A,2]=x[i,1] then
            find(i,f);
          i:=i+1
        end
      end
  end;

Begin
  vvod(x);
  fl:=false;
  k:=1;
  while (x[k,1]<>0) and (x[k,2]<>0) and (not fl) do
  begin
    if x[k,1]=1
      then find(k,fl);
    k:=k+1
  end;
  
  if fl
    then writeln('yes')
    else writeln('nno')
End.

первый проход вынес в основную программу, т.к. нужно было сделать 1 проход по всем x(i,1)=1, т.е. тем. у которых первый пункт - наш начальный и в процедуре в стоке "if x[A,2]=x[i,1] then .." не смог бы подставить вместо x[i,1] единицу

[Lapp]

наставьте на путь правильный
...
первый проход вынес в основную программу, т.к. нужно было сделать 1 проход по всем x(i,1)=1, т.е. тем. у которых первый пункт - наш начальный и в процедуре в стоке "if x[A,2]=x[i,1] then .." не смог бы подставить вместо x[i,1] единицу

Cool_abc, подобные вещи в рекурсии - первый признак, что что-то не так. Рекурсия должна быть элегантной )). Извини, не стал глубоко вникать в твой код. Я написал решение - проанализируй и попробуй сам найти свои ошибки.

const
  n=10;                                // no more then 255

type
  tVisited= set of byte;               // to remember already visited towns

var
  r: array[1..n,1..n]of boolean;       // roads
  f: text;                             // input data, one pair each line


function c(a,b: byte; v: tVisited): boolean;   // connected?
var
  s: boolean;                          // scan result
  i: integer;
begin
  Include(v,a);                        // "here was i! ))"
  if r[a,b] then c:=true else begin
    s:=false;
    for i:=1 to n do s:=s or not(i in v) and r[a,i] and c(i,b,v);
    c:=s
  end;
  Exclude(v,a)                         // leaving the town
end;

var
  a,b: integer;

begin
  FillChar(r,SizeOf®,0);             // roads init
  Assign(f,'roads.dat');
  ReSet(f);
  while not EoF(f) do begin
    ReadLn(f,a,b);
    if a=0 then break;                 // added for compatiblity
    r[a,b]:=true;                      // add a road
    r[b,a]:=true                       // add a road back
  end;
  Close(f);
  WriteLn(c(1,n,[]))

  ;ReadLn
end.

Если комментов недостаточно - спрашивай, я всегда отвечу. Удачи!

Добавлено через 4 мин.
Да, еще: входные данные ьерутся из файла roads.dat . Вот его пример:

Код

1 5
10 8
2 10
3 8
5 3

- тут ответ ДА. Нули в конце можешь добавить, но они не нужны (правда, в этом случае не должно быть пустых строк в конце).

[Cool_abc]

Рекурсия должна быть элегантной )).

function c(a,b: byte; v: tVisited): boolean;   // connected?
var
  s: boolean;                          // scan result
  i: integer;
begin
  Include(v,a);                        // "here was i! ))"
  if r[a,b] then c:=true else begin
    s:=false;
    for i:=1 to n do s:=s or not(i in v) and r[a,i] and c(i,b,v);
    c:=s
  end;
  Exclude(v,a)                         // leaving the town

Если комментов недостаточно - спрашивай, я всегда отвечу. Удачи!

Да, еще: входные данные ьерутся из файла roads.dat . Вот его пример:

Код

1 5
10 8
2 10
3 8
5 3

- тут ответ ДА.

1. можно пояснить почему ответ да?.. по каким дорогам мы последовательно доберемся из 1 и N город..
2. я конечно понимаю.. что это элегантно.. )
можно пояснить основную рекурсивную функцию? непонятно следущее:
2.1. процедуры Include и Exclude нам не давали, но, как я понял через 10 минут перепрочитывания текста функции, это добавление и удаление элемента во множество.. вроде так, да?
2.2. s:=false;
for i:=1 to n do s:=s or not(i in v) and r[a,i] and c(i,b,v);
c:=s
мы s присваиваем или false, или not(i in v) and r[a,i] and c(i,b,v)? поясните пожалуйста

В общем, если хочешь продолжить разбираться со своим методом решения - скажи...

Я в общем-то хотел бы продолжить решать своим методом.. но после изменения процедуры ввода и десятка просмотра\проходу по алгоритму ничего не изменилось..*печаль* вроде все правильно, когда прохожу по алгоритму, но не работает... вообще не понимаю, почему. попробую ещё сначала написать процедуру поиса, чтобы входными параметрами были два пункта, между которыми нужно найти дорогу..

после изменения процедуры ввода:

Program lab;
  Type int=integer;
       mas=array [1..30, 1..2]of int;
  { 30 - условное число, просто чтобы ограничить массив}
  Var fl: boolean;
      x: mas;
      k:int;

  Procedure vvod(a:mas);
    Var x,y,i:int;
  begin
    Writeln('vvedite parbl 4isel');
    x:=1;y:=1;i:=0;
    While (x<>0) and (y<>0) do
    begin
      if i<>0 then begin
        a[i,1]:=x;
        a[i,2]:=y;
      end;
      Write('vvedite 1 4islo  ');readln(x);
      Write('vvedite 2 4islo  ');readln(y);
      i:=1+i
    end;
    a[i,1]:=x;  {вот здесь 2 строчки дописал и все...}
    a[i,2]:=y
  end;
  
  procedure find(A:int;var f:boolean);
    Var i:int;
  begin
    if x[A,2]=10  then  f:=true
      else begin
        i:=1;
        while (x[i,1]<>0) and (x[i,2]<>0) and (not f) do
        begin
          if x[A,2]=x[i,1] then
            find(i,f);
          i:=i+1
        end
      end
  end;

Begin
  vvod(x);
  fl:=false;
  k:=1;
  while (x[k,1]<>0) and (x[k,2]<>0) and (not fl) do
  begin
    if x[k,1]=1
      then find(k,fl);
    k:=k+1
  end;
  
  if fl
    then writeln('yes')
    else writeln('nno')
End.