AYUDENME PORFA!- contar palabras con tres letras¿?
Publicado por oris (2 intervenciones) el 17/07/2009 23:01:54
hola a todo pues necesito de su ayuda! .... necesito hacer un programa que me diga cuantas palabras de un archivo de texto tiene 3 letras!.... ok yo hice uno anterior que fue contar las palabras de un archivo de texto pero como le hago para contar palabras que contngas 3 letras¿?.... haber este fue lo que yo hice anteriormente:
procedure CONTAR_PALABRAS; {*- CONTADOR DE PALABRAS -*}
begin
if ch=' ' then
begin
inc(contpa);
end;
end;
begin {* EJECUCION TOTAL DEL PROGRAMA *}
assign(prueba,ruta);
reset(prueba);
while not eof(prueba) do
begin
read(prueba,ch);
CONTAR_PALABRAS;
end;
.
.
.
.(aqui hay mas cosas pero no es necesario! que lo vean! xD )
.
end.
respondanme porfa!! se los agradeceria mucho!!
procedure CONTAR_PALABRAS; {*- CONTADOR DE PALABRAS -*}
begin
if ch=' ' then
begin
inc(contpa);
end;
end;
begin {* EJECUCION TOTAL DEL PROGRAMA *}
assign(prueba,ruta);
reset(prueba);
while not eof(prueba) do
begin
read(prueba,ch);
CONTAR_PALABRAS;
end;
.
.
.
.(aqui hay mas cosas pero no es necesario! que lo vean! xD )
.
end.
respondanme porfa!! se los agradeceria mucho!!
Valora esta pregunta
0