Автор Александр задал вопрос в разделе Техника
Подсчитать количество слов в предложении (Pascal) и получил лучший ответ
Ответ от Артем Миронов[активный]
1 подсчитать количество (n) символов в введенном предложении
2 организовать цикл (i=1)с количеством циклов n-1
3 в теле цикла ввести условие / если (функция выделения первого символа (i)) неравно " "(пробел) И (функция выделения последующего символа (i+1)) равно " " то включаем счетчик r=r+1 /
4 короче нужно искать совпадение символ-пробел, но есть проблема с последним символом если этот символ не пробел то слово не зачтется для этого нужно одно условие если (функция выделения последнего символа (n))неравно " " то r =r+1
Источник: название всех функций забыл
Ответ от Булат 1[гуру]
Покопаться в гуглах, найти функцию типа Split или explode.
Покопаться в гуглах, найти функцию типа Split или explode.
Ответ от Андрей Иванов[новичек]
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.
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.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Подсчитать количество слов в предложении (Pascal)