Programación General > Pascal

 Contar palabras

(1/1)

party_metal:
Hola estoy haciendo un programa que pida una frase al usuario y cuente las palabras que hay.
He hecho esto pero me doy cuento que si dan mas de 1 espacio entre las palabras me las cuenta mal...
¿Alguién sabe que tengo que añadir para capar eso?

Gracias


--- Código: Pascal --- program palabras;var texto:string;function contarpalabras (cad:string):integer;var cont,i:integer;begin cont:=0; for i:=1 to length(cad) do  if (cad[i]<>' ') then   read(cad[i])   else    if (cad[i]=' ') then    begin     cont:=cont+1;     read(cad[i]);    end; contarpalabras:=cont+1;end;beginwriteln('dame la frase');readln(texto);writeln('son',contarpalabras(texto),'palabras');readln;end.  

m0skit0:
Haz una función que cuente los espacios y deje sólo uno y listo.

party_metal:
Ya lo he solucionado.

Gracias!

Navegación

[0] Índice de Mensajes