количество слов в тексте



Автор Вова Рудзей задал вопрос в разделе Другие языки и технологии

Подсчитать слова в тексте.Турбо Паскаль и получил лучший ответ

Ответ от QAZWSX azxs[гуру]
program gfhg; uses crt; var s:string; k,j,a:integer; begin writeln(\'строка: \'); readln(s); k:=0; a:=length(s); for j:=1 to a do if s[j]=\',\' or s[j]=\':\' or s[j]=\'\"\' then s[j]:=\' \'; if s[a]=\'.\' or s[a]=\'!\' or s[a]=\'?\' then s[a]:=\' \'; s:=\' \'+s+\' \'; a:=length(s); for j := 1 to a - 6 do if copy(s, j, 7) = \' write \' then inc(k); writeln(k); end.

Ответ от Доминатор[гуру]
for i := 1 to length(s) - 4 do if copy(s, i, 5) = 'write' then inc(k);

Ответ от Sm[гуру]
> в проге щитает все слова Ерунду она у тебя "щитает", а не слова) В строке, к примеру, "слово слово слово " она "нащитает" аж 7 слов вместо трех)

Ответ от Titaniya World[гуру]
Введите еще одну переменную для запоминания начала каждого слова, затем при нахождении пробела используя функцию copyпроизводите сравнение

Ответ от Jurii[гуру]
Как-то так: S1 := S; { в копию строки } K := 0; while Pos('write', S1) > 0 do { пока write встречается в строке } begin P := Pos('write', S1); { позиция слова write } Delete(S1, P, 5); { удалим слово write } if Length(S1

Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Подсчитать слова в тексте.Турбо Паскаль

Где есть сайт который считает сколько слов в тексте? допустим есть текст надо посчитать сколько слов в нем
По ссылке найдете ОНЛАЙН сайты

Для подсчета количества слов в тексте, вставьте в поле
подробнее...
спросили в Эссе
Какое среднее количество слов в эссе?
Конкурс эссе на тему социальной и нравственной справедливости в современном обществе 2009подробнее...

Какая программа может подсчитать количество слов в тексте и вывести статистику наиболее употребляемых слов?
Количество слов в ворде можно посмотреть. Там меню сервис - статистика, а насчет употребляемых
подробнее...
спросили в Говорить Заумь
Что значит, когда говорят что в ТЕКСТЕ много "воды"?
По существу вопроса говорится очень мало, а в основном вокруг да около, вот и говорят не лей
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
спросили в Магия
Напишите самые красивые и богатые слова на Немецком ? ?
Ммммм нравится немецкий своей энергетикой... Liebe ...Engel...Sonnenschein...а вот шо значит
подробнее...

Что имеется ввиду, когда говорят о количестве знаков в статье?
Да, входят. Знаки - это все видимые печатные символы в тексте.
Обычно люди которые пишут
подробнее...
спросили в Программа Текст
Символы. Есть ли программа для определения сколько символов в тексте?
Первый способ – воспользоваться программой Word из пакета приложений Microsoft Office. Если данный
подробнее...

Как посчитать количество символов в Ворде?
1. Чтобы определить количество слов в каком-либо фрагменте текста, выделите его.
При
подробнее...
спросили в Другое
С помощю какой проги (можно в тексте найти одинаковые слова)
Программа для подсчета общего количества слов и количества одинаковых слов в текстовом файле или в
подробнее...

сколько слов в русском языке?
зато англичане используют их в 5 раз меньше чем мы.... нашим языком их любое предложение можно
подробнее...

как узнать сколько в документе ворд слов?
Для точного подсчёта знаков:
→ Если исходный текст представлен в формате Word или таком
подробнее...
спросили в Научное
Пример анализа текста научного стиля. Очень нужен пример разбора (анализа) текста научного стиля, киньте плз!!!
Образец стилистического анализа научного текста

Гроза - атмосферное явление,
подробнее...

сколько калорий в яичнице из 3 яиц и 3 сосисок?
Наверное, одно яйцо весит грамм 100. Его каллорийность 167ккал/100г. Значит в трех яйцах будет
подробнее...

Кто такой Дмитрий Пригов в мире литературы?
Дмитрий Александрович Пригов (5 ноября 1940, Москва, СССР — 16 июля 2007, Москва, Россия) — русский
подробнее...
 

Ответить на вопрос:

Имя*

E-mail:*

Текст ответа:*
Проверочный код(введите 22):*