ADA - Funcion Remplazar [ADA]

   
Vista:

Funcion Remplazar [ADA]

Publicado por Victor (1 intervención) el 16/11/2007 23:59:22
Bueno soy estudiante de primer año de Informatica de Gestion y tengo que hacer un ejercicio de Ada y no tengo ni pajorera idea de como hacerlo.

El ejercicio me pide que desarrolle una funcion con 3 parametros de entrada (Ristra, Mini_Ristra_1 y Mini_Ristra_2) y uno de salida, todos ellos Unbounded_String. LA funcion debe devolver el resultado de sustituir en Ristra todas las apariciones de Mini_Ristra_1 por Mini_Ristra_2.

En fín y por ahora lo que tengo esto pero esta mal.

with Ada.Strings; use Ada.Strings;
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
-- Cabecera de la funcion
function Reemplazar (Frase : in Unbounded_String;
Ristra_vieja : in Unbounded_String;
Ristra_nueva : in Unbounded_String)
return Unbounded_String is
-- Variables Locales
I : Natural := 1;
Resultado : Unbounded_String;
begin
while I < Length (Frase) loop
I := Index(Frase,To_String(Ristra_vieja), I);
Resultado := Replace_Slice(Frase, I, I + Length (Ristra_vieja), To_String(Ristra_nueva));
end loop;
return Resultado;
end Reemplazar;
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder