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






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