Pascal/Turbo Pascal - AYUDA PROGRAMA SENCILLO CONTAR PALABRAS

HOLA GENTE NECESITO RESOLVER ESTE EJERCICIO, LA DUDA QUE TENGO ES COMO CONTAR LA PALABRA FINAL, YA QUE EN MI CONTADOR SOLAMENTE CUENTO LAS QUE ESTÁN SEPARADAS POR BLANCOS, Y LA ULTIMA TERMINA CON . (PUNTO)

- TODAVÍA NO PUEDO USAR PROCESOS NI FUNCIONES-

Se lee una secuencia de caracteres terminada en punto ('.'). La secuencia se divide en palabras. Se pide informar la cantidad de palabras leídas.
NOTA: para los ejercicios de secuencia de caracteres dividida en palabras considere que las palabras pueden estar separadas por uno a más blancos, y que al principio y al final de la secuencia puede haber cero, uno o más blancos.

YO HICE ESTO:

Program ejercicio2;
var car:char;
cant: integer;
Begin
writeln('ingrese palabras');
read (car);
while (car <> '.') do begin
if (car = ' ') then begin

cant:= cant +1 ;
end;
read(car);


end;
readln;
writeln ('la cantidad de palabras es: ', cant);
readln;

End.

funciona de 10.. pero me podes explicar lo que agregaste??

A diferencia de tu programa lo que hace es usar un segundo contador, recorda que un string es un array de caracteres, este segundo contador busca los espacios en blanco, entonces aqui se lee caracter a caracter(car[g]), y cuando encuentra el blanco suma una palabra; es la diferencia; lo segundo.es la.condicion para el.string(un.string guarda hasta 255 caracteres) para que no haya un overflow; :) espero te sirva de ayuda;

Ramon, en el enunciado dice qe el texto puede empezar en cero uno o mas espacios en blanco, corriendo el programa cuando puse un espacio al principio, cuenta una palabra mas de las que realmente son, al igual que cualquier espacio antes del punto, en ese caso, el programa no cumple tal condicion, como sd hace en ese caso?

Gracias Franco muy clara y sencilla la explicacion.. Yo no lo probe con espacios al comienzo, puede ser q este mal eso.

Liusina aqui te paso un codigo donde solucione el tema de los espacios antes y desp del texto



Como sabemos cuantas veces se va a repetir el bucle use un for

Y en las condiciones elimino los espacios.en blanco con los (car[i-
]<>) y (car[i+1]<>)

El segundo if suma la ultima palabra ya que debido que el punto indica el fin del texto no sumaria la ultima palabra por no encontrar el espacio posterior a ella (recordar qe.se.eliminan los espacios anteriores al '.') Espero esto te sirva :)

bravo muchachos eso es lo que me gusta que lo mio sea una ayuda y vosotros la continuéis
si es cierto siempre que encuentre un blanco contara palabra.
Pero eso que me dices me se paso por alto y cometí un erro de lectura pido disculpas.

Gracias Franco, ahora entendi bien