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

@loners · Регистрация: 22.10.2020

Студворк — интернет-сервис помощи студентам

Подсчитать количество слов в строке разделенных произвольным количеством разделительных знаков(пробелы, точки, запятые, точка с запятой, вопросительный и восклицательный знаки, тире)

@Puporev · 18.11.2020, 20:34

Pascal
1
2
3
4
5
6
7
8
9
10
11
const rz=[' ','.',',',';','?','!','-'];
var s:string;
    i,k:integer;
begin
writeln('Введите строку из слов разлеленных знаками препинания');
readln(s);
s:=' '+s;
for i:=1 to length(s)do
if(s[i-1] in rz)and not(s[i] in rz)then inc(k);
write('Количество слов=',k)
end.

@Вадим Тукаев · 18.11.2020, 21:07

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var s: string;
var k, w, i: integer;
 
begin
    readln(s);
    k := 0;
    w := 1;
    for i := 1 to length(s) do begin
        if pos(s[i], ' .,:;!?-') = 0 then begin
            k := k + w;
            w := 0;
        end else begin
            w := 1;
        end;
    end;
    writeln(k);
end.

@mr-Crocodile · 19.11.2020, 12:04

Вадим Тукаев, я бы вместо Pos написал in

Pascal
9
   if Not (s[i] in [' ','.',',',';','?','!','-'])  then begin

и begin end в 12/14 строках лишний.

но алгоритм мне понравился!

@Вадим Тукаев · 19.11.2020, 12:28

Сообщение от mr-Crocodile

if Not (s[i] in [' ','.',',',';','?','!','-']) then begin

Да, я знаю, что в Паскале есть множества. Но почему-то захотелось так. Может, потому что я плохо представляю, как они устроены. Я где-то читал (да это и так понятно), что даже если такая структура данных, как множество или словарь, реализованы со временем доступа O(1), то всё равно для 8-10 элементов проще и быстрее последовательный перебор.

Сообщение от mr-Crocodile

и begin end в 12/14 строках лишний.

Я вообще люблю "лишние" begin и end, а уж если они есть в одной ветке if-else, то во второй тоже должны быть.

Сообщение от mr-Crocodile

но алгоритм мне понравился!

Обычная машина состояний, просто немного оптимизированная: номер состояния используется ещё и как слагаемое.

В более классическом, развёрнутом виде он выглядел бы как-то так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var s: string;
var k, i: integer;
var inside: boolean;
 
begin
    readln(s);
    k := 0;
    inside := false;
    for i := 1 to length(s) do begin
        if inside then begin
            if s[i] in [' ','.',',',';','?','!','-'] then inside := false;
        end else if not (s[i] in [' ','.',',',';','?','!','-']) then begin
            inc(k);
            inside := true;
        end;
    end;
    writeln(k);
end.

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@loners 0 / 0 / 0 Регистрация: 22.10.2020 Сообщений: 8

	Подсчитать количество слов в строке 18.11.2020, 18:55. Показов 1738. Ответов 4 Метки нет (Все метки) Подсчитать количество слов в строке разделенных произвольным количеством разделительных знаков(пробелы, точки, запятые, точка с запятой, вопросительный и восклицательный знаки, тире) 0

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

Решение