Ответы на вопрос:
ответ:Доброго времени суток.
Очень не корректно поставлен во Что есть Текст? Это текстовый файл, строка, введенная пользователем, еще что-то? Думайте, прежде чем с и, скорее всего, получите нормальный ответ.
Поэтому, поскольку нет конкретики, будем считать текстом строку, введенную пользователем.
Write('Введите текст : ');
ReadLn(S);
В переменной S теперь находится некоторый текст. Начнем с ним работать. Будем считать словом последовательность символов, ограниченных с обеих сторон пробелами. Сначала сделаем копию введенного текста.
S1 := ' ' + S + ' '; {чтобы не потерять первое и последнее слова}
А дальше,
N := 0; {счетчик слов Мама}
while Pos(' Мама ', S1) > 0 then begin
Delete(S1, Pos(' Мама ', S1)+1, 4);
N := N + 1;
end;
Поскольку может в тексте быть и "мама", то повторим
while Pos(' мама ', S1) > 0 then begin
Delete(S1, Pos(' мама ', S1)+1, 4);
N := N + 1;
end;
Вот и все. Осталось вывести результат.
WriteLn('Во ввденном тексте слово "мама" встречается ', N, ' раз');
Удачи!
PS Можно было бы не делать второй проход, если предварительно преобразовать введенный текст к одному регистру, а затем искать подстроку в этом регисте.
Популярно: Информатика
-
shapox26.11.2021 21:45
-
Elka667727.03.2023 10:07
-
katyaarxipova07.11.2020 02:35
-
shcherboroma03.04.2021 10:35
-
bogds200113.02.2020 15:54
-
vbfbk12317.06.2023 00:49
-
leimaegirl16.10.2022 02:29
-
lol1337rus15.08.2020 07:56
-
ayla67801.12.2021 22:02
-
Катя2003000004.03.2020 20:24