ADA - práctica de Universidad, necesito que me salven

PRÁCTICA 1

Desarrolle una función, llamada Palabra_Mayor, con dos parámetros de tipo Unbounded_String, que devuelva un resultado de tipo Unbounded_String. Este resultado será la palabra de mayor longitud de las presentes en la ristra representada por el segundo parámetro. A los efectos de este ejercicio se considerarán palabras las secuencias formadas exclusivamente por caracteres presentes en la ristra representada por el primer parámetro, que hará las veces de alfabeto. Cualquier carácter no incluido en el primer parámetro será considerado separador. Si hay varias palabras con la misma longitud se devolverá la primera.

El código se escribirá en un fichero llamado palabra_mayor.adb

Conocimientos de Ada indispensables para realizar el ejercicio.Estructura de un programa/subprogramas, variables/declaraciones, sentencias, entrada/salida por terminal, tipos ordinales y ristras de caracteres.

Puede usar el siguiente código como punto de partida para desarrollar un procedimiento principal de prueba:

with Text_Io, Ada.Strings.Unbounded, Palabra_Mayor;
use Text_Io, Ada.Strings.Unbounded;

procedure Prueba is
Alfabeto: Unbounded_String := To_Unbounded_String("abcdefghijklmnopqrstuvwxyz");
Pal_Mayor, Palabras: Unbounded_String;
begin
Palabras := To_Unbounded_String("Mi código es el 324TM8paq");
Pal_Mayor := Palabra_Mayor(Alfabeto, Palabras);
Put("Alfabeto: ");
Put_Line(To_String(Alfabeto));
Put("Palabras: ");
Put_Line(To_String(Palabras));
Put("Palabra mayor: ");
Put_Line(To_String(Pal_Mayor));
end Prueba;

PRÁCTICA 2

Desarrolle una función, llamada Reemplazar, con tres parámetros de tipo Unbounded_String, que devuelva un resultado de tipo Unbounded_String. Este resultado será la ristra resultante de sustituir en la ristra representada por el primer parámetro todas las apariciones de la ristra representada por el segundo parámetro por la representada por el tercero. Las apariciones de la ristra a sustituir NO estarán nunca superpuestas (como por ejemplo: "casaca" en "casacasaca"). La ristra a sustituir puede estar contenida en la que la sustituye. Si la ristra a sustituir es la ristra nula, la ristra resultante será igual a la original; si la ristra sustituta es la ristra nula el resultado será equivalente a eliminar de la ristra original todas las apariciones de la ristra a sustituir.

El código se escribirá en un fichero llamado reemplazar.adb

Conocimientos de Ada indispensables para realizar el ejercicioEstructura de un programa/subprogramas, variables/declaraciones, sentencias, entrada/salida por terminal, tipos ordinales y ristras de caracteres.

Puede usar el siguiente código como punto de partida para desarrollar un procedimiento principal de prueba:

with Ada.Text_IO, Ada.Text_IO.Unbounded_IO, Ada.Strings.Unbounded, Reemplazar;
use Ada.Text_IO, Ada.Text_IO.Unbounded_IO, Ada.Strings.Unbounded;

procedure Prueba is
Ristra, Subristra, Sustituta, Resultado: Unbounded_String;
begin
-- Inicializaciones
Ristra := To_Unbounded_String("Esta casa no es la casa de Pedro, es la casa de Juan");
Subristra := To_Unbounded_String("casa");
Sustituta := To_Unbounded_String("barca");

-- Llamada a la función

Resultado := Reemplazar (Ristra, SubRistra, Sustituta);

-- Se muestran los resultados

Put_Line(Resultado); -- "Esta barca no es la barca de Pedro, es la barca de Juan"
end Prueba;

Pregunta dudas y no que te hagan las prácticas que tienes que entregar antes del domingo.

¿Cómo sabes que tengo que entregarlo antes del Domíngo?

jeje como si no te conocieramos gabriel kiros jajajaj para sacarte la carrera hay que empollar no simplemente copiar

Tengo un problema en esa 1º practica.
Y es q al compilar sale el siguiente error/ es y nose como solucionarlo.
S2

Probando con Alfabeto: "$%&/()=?¿" y ristra: "1231232132". Resultados incorrectos, da "1231232132" y debe dar ""
 
Probando con Alfabeto: "1234" y ristra: "123asd23a3". Resultados incorrectos, da "123asd23a3" y debe dar "123"
 
Probando con Alfabeto: "abcdefghijklmnopqrstuvwxyz" y ristra: "1231232132". Resultados incorrectos, da "1231232132" y debe dar ""


.............

ya has hecho algo y tienes dudas o estas esperando a que te la hagan.

Ponerlas echas anda no seais maloss que no me salen...