Вопрос по информатике:
Составить программу в Pascal ABC!!!! Help meeee!!! Подготовка к экзамену!!!!
В тексте, состоящем из 3 слов, проверить, есть ли заданное слово и сколько раз оно повторяется. Если такого слова нет, то выдать сообщение.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.07.2016 04:56
- Информатика
- remove_red_eye 14657
- thumb_up 8
Ответы и объяснения 1
Var
s, w: string;
i, ls, lw, p, n: integer;
begin
Write('Введите текст из трех слов: ');
Readln(s);
Write('Введите искомое слово: ');
Readln(w);
ls := Length(s);
lw := Length(w);
n := 0;
i := 1;
p := Pos(w, s);
while p > 0 do
begin
n := n + 1;
i := p + lw + 1;
s := Copy(s, i, ls - i + 1);
ls := Length(s);
p := Pos(w, s)
end;
if n = 0 then Writeln('Искомое слово не встречается в тексте')
else if n = 1 then Writeln('Искомое слово встречается 1 раз')
else Writeln('Искомое слово встречается ', n, ' раза')
end.
Тестовое решение:
Введите текст из трех слов: Мама мыла раму
Введите искомое слово: Папа
Искомое слово не встречается в тексте
Введите текст из трех слов: Мама мыла раму
Введите искомое слово: мыла
Искомое слово встречается 1 раз
Введите текст из трех слов: ааа ббббб ааа
Введите искомое слово: ааа
Искомое слово встречается 2 раза
- 28.07.2016 03:41
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.