Автор Вова Рудзей задал вопрос в разделе Другие языки и технологии
Подсчитать слова в тексте.Турбо Паскаль и получил лучший ответ
Ответ от 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);
for i := 1 to length(s) - 4 do if copy(s, i, 5) = 'write' then inc(k);
Ответ от Sm[гуру]
> в проге щитает все слова Ерунду она у тебя "щитает", а не слова) В строке, к примеру, "слово слово слово " она "нащитает" аж 7 слов вместо трех)
> в проге щитает все слова Ерунду она у тебя "щитает", а не слова) В строке, к примеру, "слово слово слово " она "нащитает" аж 7 слов вместо трех)
Ответ от Titaniya World[гуру]
Введите еще одну переменную для запоминания начала каждого слова, затем при нахождении пробела используя функцию copyпроизводите сравнение
Введите еще одну переменную для запоминания начала каждого слова, затем при нахождении пробела используя функцию 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
Как-то так: 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
подробнее...
Какое среднее количество слов в эссе?
Конкурс эссе на тему социальной и нравственной справедливости в современном обществе 2009
подробнее...
Какая программа может подсчитать количество слов в тексте и вывести статистику наиболее употребляемых слов?
Количество слов в ворде можно посмотреть. Там меню сервис - статистика, а насчет употребляемых
подробнее...
спросили в Говорить Заумь
Что значит, когда говорят что в ТЕКСТЕ много "воды"?
По существу вопроса говорится очень мало, а в основном вокруг да около, вот и говорят не лей
подробнее...
Что значит, когда говорят что в ТЕКСТЕ много "воды"?
По существу вопроса говорится очень мало, а в основном вокруг да около, вот и говорят не лей
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
спросили в Магия
Напишите самые красивые и богатые слова на Немецком ? ?
Ммммм нравится немецкий своей энергетикой... Liebe ...Engel...Sonnenschein...а вот шо значит
подробнее...
Напишите самые красивые и богатые слова на Немецком ? ?
Ммммм нравится немецкий своей энергетикой... Liebe ...Engel...Sonnenschein...а вот шо значит
подробнее...
Что имеется ввиду, когда говорят о количестве знаков в статье?
Да, входят. Знаки - это все видимые печатные символы в тексте.
Обычно люди которые пишут
подробнее...
спросили в Программа Текст
Символы. Есть ли программа для определения сколько символов в тексте?
Первый способ – воспользоваться программой Word из пакета приложений Microsoft Office. Если данный
подробнее...
Символы. Есть ли программа для определения сколько символов в тексте?
Первый способ – воспользоваться программой Word из пакета приложений Microsoft Office. Если данный
подробнее...
Как посчитать количество символов в Ворде?
1. Чтобы определить количество слов в каком-либо фрагменте текста, выделите его.
При
подробнее...
спросили в Другое
С помощю какой проги (можно в тексте найти одинаковые слова)
Программа для подсчета общего количества слов и количества одинаковых слов в текстовом файле или в
подробнее...
С помощю какой проги (можно в тексте найти одинаковые слова)
Программа для подсчета общего количества слов и количества одинаковых слов в текстовом файле или в
подробнее...
сколько слов в русском языке?
зато англичане используют их в 5 раз меньше чем мы.... нашим языком их любое предложение можно
подробнее...
как узнать сколько в документе ворд слов?
Для точного подсчёта знаков:
→ Если исходный текст представлен в формате Word или таком
подробнее...
спросили в Научное
Пример анализа текста научного стиля. Очень нужен пример разбора (анализа) текста научного стиля, киньте плз!!!
Образец стилистического анализа научного текста
Гроза - атмосферное явление,
подробнее...
Пример анализа текста научного стиля. Очень нужен пример разбора (анализа) текста научного стиля, киньте плз!!!
Образец стилистического анализа научного текста
Гроза - атмосферное явление,
подробнее...
сколько калорий в яичнице из 3 яиц и 3 сосисок?
Наверное, одно яйцо весит грамм 100. Его каллорийность 167ккал/100г. Значит в трех яйцах будет
подробнее...
Кто такой Дмитрий Пригов в мире литературы?
Дмитрий Александрович Пригов (5 ноября 1940, Москва, СССР — 16 июля 2007, Москва, Россия) — русский
подробнее...