Посчитать количество слов в строке паскаль

Задача

Подсчитать количество слов во введенной пользователем строке.

Для упрощения задачи считаем, что слова разделяются исключительно одним пробелом, а первый и последний символы строки не являются пробелами.

Решение

str — строка;
i — счетчик;
count — подсчет количества слов.

Алгоритм решения задачи:

1. Измеряем длину введенной пользователем строки.
2. Если длина не нулевая, то это значит, что есть хотя бы одно слово.
3. Перебираем каждый символ строки.
4. Если очередной символ является пробелом, то увеличиваем счетчик слов.

Программа на языке Паскаль:

Программа не будет корректно работать, если слова разделены больше, чем одним пробелом.

Другой вариант задачи: подсчитать количество слов в строке и вывести длину каждого слова.

Что ты хочешь узнать?

Ответ

Для подсчёта слов в предложении, вот код:

program Slova;
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 Bykv;
Var s:String;
i,k1,k2:byte;
Begin
write(‘Введите строку: ‘);readln(s);
For i:=2 to Length(s)-1 do
if s[i]=s[1] then inc(k1)
else if s[i]=s[Length(s)] then inc(k2);
writeln(‘Первая буква встречается ‘,k1);
writeln(‘Последняя буква встречается ‘,k2);
writeln(‘Вывод:’);
if k1>k2 then writeln(‘Первая буква встречается чаще’)
else if k1 ‘);
readln(z);
if pos(t,s)<>0 then
j:=pos(t,s);
p:=copy(s,1,j-1);
p:=p+z;
p:=p+copy(s,j+length(t),length(s));
writeln(p);
readln;
end.

Постановка задачи.

Дана строка, заканчивающаяся точкой. Подсчитать, количество слов в строке.

Замечание.

Сколько слов в строке? Делаем упрощение. Между словами у нас что? Правильно — символ пробела!

Самое простое решение, основанное на том, что строка всегда заканчивается символом точки.

Решение №1.

Но мы не ищем лёгких путей, так как уже знаем ветвление и оператор case. то есть будет условие, которое проверяет, что строка не обязательно заканчивается точкой. Также учитываем, что точки естьи в самой строке.

Решение №2.

После изучения этих примеров, можете смело переходить к созданию собственного решения!