• Sábado 9 de Noviembre de 2024, 03:38

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - esmirliada

Páginas: [1]
1
ADA / Ayuda Con Matrices
« en: Sábado 2 de Diciembre de 2006, 13:39 »
Buenas, necesito ayuda co una practica y el problema es q no se por donde seguir. Lo que me piden es hacer el adjunto en una matriz , si alguien pudieese darme al menos una idea se lo agradeceria mucho.
Saludos. :hola:
El codigo que tengo hasta ahora es el siguiente:


function Adjunto
     (Matriz  : in T_Matriz;
      Fila    : in Positive;
      Columna : in Positive)
      return T_Matriz
   is
      Adjunto : T_Matriz
        (1 .. Matriz'Length (1) - 1, 1 .. Matriz'Length (2) - 1);
      Matriz_Prima : T_Matriz (Matriz'Range (1), Matriz'Range (2));
      F_Prima : Integer := 0;
      C_Prima : Integer := 0;
   begin
      while

      for F in Matriz'Range (1) loop
         for C in Matriz'Range (2) loop

            if F = Fila or C = Columna then
               null;
            else
               Matriz_Prima (F, C) := Matriz (F, C);
               F_Prima := F_Prima + 1;
               C_Prima := C_Prima + 1;
            end if;
            Adjunto (F_Prima, C_Prima) := Matriz_Prima (F, C);
         end loop;
      end loop;
      Adjunto (F_Prima, C_Prima) := Matriz_Prima (F_Prima, C_Prima);
      return Adjunto;
   end Adjunto;

Se que está mal, pero no se como arreglarlo!!!
Bye, gracias.

Páginas: [1]