Programacion en Ada
Publicado por Paloma (1 intervención) el 28/02/2006 20:33:55
Hola, estoy empezando a programar en Ada orientada a objetos y tengo una practica en la que me piden que haga el procedimiento insertar. Tengo que cambiar el (1) pero no se a que. Podrían ayudarme, gracias.
procedure Insertar
(Vector : in out T_Vector;
Elemento : in T_Elemento'Class)
is
begin
if Vector.Contenido (1) = null then
Vector.Contenido (1) := new T_Elemento'Class'(Elemento);
else
Vector.Contenido (1).all := Elemento;
end if;
end Insertar;
procedure Insertar
(Vector : in out T_Vector;
Elemento : in T_Elemento'Class)
is
begin
if Vector.Contenido (1) = null then
Vector.Contenido (1) := new T_Elemento'Class'(Elemento);
else
Vector.Contenido (1).all := Elemento;
end if;
end Insertar;
Valora esta pregunta
0