По разбивке текста на слова.

@kazzz · Регистрация: 17.11.2010

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

Дан текстовый файл, содержащий несколько строк текста. Определить количество слов в нем.

Завтра последняя практика, помогите пожалуйста!

@DLev · 21.12.2010, 21:13

Delphi

otvet:=0;
while not EOF(input) do
  begin
  readln(str);
  for q:= 2 to length(str) do
    begin
    if ((str[q] = ' ') or (str [q] = '.') or {перечисляй разделители} or (q = length(str)) {rконец строки тоже разделитель}) AND ((str [q-1] <> ' ') {опять перечисляй разделители}) then otvet:=otvet+1;
    end;
  end;

вроде так, но советую проверить.

Добавлено через 3 минуты
смысл проверять str[q-1] <> разделителям
для того, чтобы съесть все повторяющие разделители, типа:
Сова - птица.
насчитать должен 2 слова. если - и _ и . разделители.

@kazzz 7 / 7 / 0 Регистрация: 17.11.2010 Сообщений: 59
		1
	По разбивке текста на слова. 21.12.2010, 20:57. Показов 997. Ответов 1 Метки нет (Все метки) Дан текстовый файл, содержащий несколько строк текста. Определить количество слов в нем. Завтра последняя практика, помогите пожалуйста! 0

	21.12.2010, 21:13

По разбивке текста на слова.

Решение