[ Foro de Pascal ]

Fatal: Syntax error, "." expected but "(" found

18-Jun-2020 01:08
Gabriel Sosa
3 Respuestas

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


18-Jun-2020 09:52
Nacho Cabanes (+61)

Los mensajes de error están para ayudarte. En qué línea te dice que detecta el error?


18-Jun-2020 17:02
Gabriel Sosa

en la línea 9 del programa principal el TDA lo compile y no me tira error solo el programa principal


19-Jun-2020 05:53
Luis Torres (+17)

-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.






Si ya eres usuario del sistema, puedes contestar desde tu cuenta y así ganar prestigio.

Si sólo eres un visitante, puedes optar por...