Подсчитать количество слов в предложении (Pascal)
Подсчитать количество слов в предложении не считая пробелов (важное условие именно без пробелов) .
Т. е, ввел 10 пробелов без слов - (введено 0 слов) , ввел 5 слов (введено 5 слов)
program WTF;
var
s: string;
r,i:integer;
begin
writeln('Введите строку');
readln(s);
s:=s+' '; //Приклеиваем пробел, чтобы потом не мучаться
for i:=1 to length(s)-1 do
if (s<>' ') and (s[i+1]=' ') then
r:=r+1;
writeln('В предложении ',r, ' слов. ');
readln;
end.
Покопаться в гуглах, найти функцию типа Split или explode.
1 подсчитать количество (n) символов в введенном предложении
2 организовать цикл (i=1)с количеством циклов n-1
3 в теле цикла ввести условие / если (функция выделения первого символа (i)) неравно " "(пробел) И (функция выделения последующего символа (i+1)) равно " " то включаем счетчик r=r+1 /
4 короче нужно искать совпадение символ-пробел, но есть проблема с последним символом если этот символ не пробел то слово не зачтется для этого нужно одно условие если (функция выделения последнего символа (n))неравно " " то r =r+1