[ Foro de Pascal ]
Hola Tengo un error cuando quiero usar un TDA en mi programa principal
aqui esta el codigo del programa principal
program Invertir_Cadena;
uses crt, TDA;
var
Cadena:string[255];
BEGIN
write('ingrese Una oracion: ');
Readln(Cadena);
TDA(Cadena);
Writeln('Se a invertido la cade exitosamente.');
writeln('La cadena invertida es: ',Cadena);
END.
Y este es el código del TDA que hice
unit Invertir_TDA;
INTERFACE
uses crt;
var
Cadena:string;
Procedure Intercambio_Cadena(Var Cadena:string);
IMPLEMENTATION
Procedure Intercambio_Cadena(Var Cadena:string);
var
I:integer;
New:string;
Begin
New:='';
For I:=length(Cadena) downto 1 do
New:= New + Cadena[I];
Cadena:=New;
end;
BEGIN
END.
Yo No encuentro el erro por favor alguien sabe por que no compila
Los mensajes de error están para ayudarte. En qué línea te dice que detecta el error?
en la línea 9 del programa principal el TDA lo compile y no me tira error solo el programa principal
-En el uses del tu programa principal llamas a "TDA", pero deberías poner "Invertir_TDA".
-En la línea 9 tienes puesto TDA(Cadena), pero en esa línea deberías haber llamado al procedimiento, o sea:
Intercambio_Cadena(Cadena);
Yo he hecho las correcciones y funciona perfectamente.
Saludos.
(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)