Рекурсия

[lialia]

Здраствуйте,подскажите пожалуйста ,как найти элемент с заданным значением в квадратной матрице ,используя рекурсию

[ViktorR]

Вот вариант с процедурой:

const n = 3;

type matr = array[1..n,1..n] of integer;

     xy = record
       x, y : integer;
     end;

procedure Eqviv(M:matr; var d : xy; X : integer);
begin
   if M[d.x, d.y] = X then
      exit
   else
   begin
     d.x := d.x + 1;
     if d.x > n then
     begin
       d.y := d.y + 1;
       d.x := 1;
     end;

     if d.y > n then
       exit;
     Eqviv(M, d, X);
   end;
end;

var k, l : integer;
    A : matr;
    Y : integer;
    C : xy;

begin
   Y := 32;
   for k := 1 to n do
      for l := 1 to n do
         A[k,l] := 10 * k + l;

   c.x := 1; c.y := 1;
   Eqviv(A, c, Y);
end.

Вроде так ...