A ver si alguien me ayuda con esto.

[jonakson24]

Hola a todos. Escribo aquí porque en una semanita tengo un examen de programación y me gustaría que alguien le echara un ojo a unos problemas que he resuelto, son sobre arrays, que es lo que más o menos me cuesta un poquito más. Pues eso a ver si alguien lo puede mirar en un momentillo y me puede decir posibles fallos que tenga y demás.

PROBLEMA 1

Se necesita una matriz tridimensional para representar palabras de un libro que tiene 120 páginas, en cada página hay 40 líneas y en cada línea hay como máximo 80 palabras, si en una línea hay menos de 80 palabras se habrán completado con ristras nulas.
Desarrolle un procedimiento que tome la matriz tridimensional y genere un vector con la palabra más larga de cada página del libro.

Código: Seleccionar todo

type Matriz is array (1..120, 1..40, 1..80) of Unbounded_String;   -- Declaración de la matriz tridimensional.
type Vector is array (1..120) of Unbounded_String;

procedure palabras_libro (M : in Matriz; V : out Vector) is
   R, R_L, R_P  : Unbounded_String;
begin
   for I in M'Range(1) loop  -- Recorrido para las PAGINAS.
      R_P := Null_Unbounded_String;
     
      for J in M'Range(2) loop           -- Más larga de cada página.
         R_L := Null_Unbounded_String;
         
         for K in M'Range(3) loop         -- Más larga de cada linea.
            R := Null_Unbounded_String;
            R := M (I, J, K);
           
            if Length (R) > Length (R_L) then
               R_L := R;
            end if;
           
         end loop;
         
         if Length (R_L) > Length (R_P) then
            R_P := R_L;
         end if;
         
      end loop;
     
      V(I) := R_P;
     
   end loop;
end palabras_libro;

Bueno, pues muchas gracias a los que me ayuden. Un daludo a todos