[ Foro de Pascal ]

Error de Compilación de TDA

22-Jun-2020 22:32
Gabriel Sosa
1 Respuestas

Hola Tengo un problema al compilar el TDA en la parte de interface en procedure me sale error y no entiendo por qué?
Aqui les dejo el código
unit TDA_Cadena_2;
Interface
Uses Crt;
Var
Cadena:string;
N:Integer;
A:char;
Procedure Calulo_Cadena(Cadena:string;N:integer;A:char);
Implementation
Procedure Calculo_Cadena(Cadena:string;N:integer;A:char);
Var
CantPla,CantPalN,Leng,I,Aux,Aux2:integer;
A2:char;
Begin
CantPla:=0;CantPalN:=0;I:=1;Aux:=0;Aux2:=0;
A2:=A;
Leng:=Length(Cadena);
//trim(Cadena);
UPCASE(Cadena);
UPCASE(A);
while I < leng Do Begin
while Cadena[I] <> ' ' Do begin
Inc(Aux);
Inc(I);
end;
If Cadena[I] = ' ' then begin
If Cadena[I-1] = A then begin
Inc(Aux2);
end;
end;
If Aux > N then begin
Inc(CantPla);Inc(CantPalN);
end;
If Aux < N then Begin
Inc(CantPla);
end;
Aux:=0;
Inc(I);
end;
writeln('la cantidad de palabras que hay en la cadena es de:',CantPla);
writeln('La cantidad de palabras con mas de ',N,' Caracteres son: ',CantPalN);
writeln('La cantidad de palabras que terminan con ',A2,' son: ',Aux2);
end;
BEGIN

END.
el problema aparece haci:
Forward declaration not solved "Calulo_Cadena(ShortString,SmallInt,Char);"


23-Jun-2020 02:19
Luis Torres (+17)

Hola,

  El error está en que en la parte de la "interface" escribiste:
    Procedure Calulo_Cadena(Cadena:string;N:integer;A:char);
  Pero debiste escribir:
   Procedure Calculo_Cadena(Cadena:string;N:integer;A:char);
 Se te olvidó la letra "c" que va en Calculo.

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