Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/15: Рейтинг темы: голосов - 15, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 15.11.2010
Сообщений: 14

Подсчитать количество слов в данной строке

01.01.2011, 21:28. Показов 2941. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дана строка символов, состоящая из нулей, единиц и пробелов. Группы нулей и единиц, разделенные пробелами (одним или несколькими) и не содержащие пробелы внутри себя, будем называть словами. Требуется подсчитать количество слов в данной строке. Рассматривая слова как числа, определить количество слов, делящихся на 5 без остатка.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
01.01.2011, 21:28
Ответы с готовыми решениями:

Подсчитать количество слов в данной строке
1. Дан текст. а) Подсчитать количество слов в данной строке. б) Подсчитать количество букв а в последнем слове данной строки. в)...

Дан текст. Подсчитать количество слов в данной строке
Дан текст. а) Подсчитать количество слов в данной строке б) в каждом слове текста замените "А" на букву...

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

3
Фрилансер
Эксперт С++
 Аватар для Dekio
5845 / 1226 / 499
Регистрация: 23.11.2010
Сообщений: 3,373
Записей в блоге: 1
01.01.2011, 22:23
Цитата Сообщение от Дашка_1 Посмотреть сообщение
Требуется подсчитать количество слов в данной строке.
Удаляем все лишние пробелы, и потом считаем их количество.
0
0 / 0 / 0
Регистрация: 15.11.2010
Сообщений: 14
01.01.2011, 22:33  [ТС]
Спасибо, конечно, за ответ, но мне он не помог.
0
Фрилансер
Эксперт С++
 Аватар для Dekio
5845 / 1226 / 499
Регистрация: 23.11.2010
Сообщений: 3,373
Записей в блоге: 1
01.01.2011, 22:37
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

А что вам надо?
могу привести пример подсчета слов.
Pascal
1
2
3
4
5
6
7
8
9
10
11
{Если есть более 1 пробела между словами}
if st[1]=' ' then
delete(st,1,1);
if st[length(st)]=' ' then
delete(st,length(s),1);
while pos('  ',st)<>0 do
delete(st,pos('  ',st),1);
kol:=1;
for i:=1 to length(st) do
if st[i]=' ' then
inc(kol);
если пробелов нет лишних пробелов тогда просто

Pascal
1
2
3
4
kol:=1;
for i:=1 to length(st) do
if st[i]=' ' then
inc(kol);
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
01.01.2011, 22:37
Помогаю со студенческими работами здесь

Подсчитать, наибольшее количество букв “а”, идущих подряд в данной строке
2) Дана строка символов. Подсчитать, наибольшее количество букв “а”, идущих подряд в данной строке символов.

Подсчитать количество слов в строке
Подсчитать количество слов в строке. Считать, что слова отделены друг от друга одним или несколькими пробелами, строка имеет знаки...

Дан текстовый файл, содержащий строки. Подсчитать количество слов в строке, имеющих нечетное количество букв
Дан текстовый файл, содержащий строки. Подсчитать количество слов в строке, имеющих нечетное количество букв

Тестовые файлы. Подсчитать количество слов в строке
дан текстовый файл,содержащий строку. Подсчитать количество слов в этой строке.

Подсчитать количество слов в строке с двумя буквами «н», стоящими подряд
Подсчитать количество слов в строке с двумя буквами «н», стоящими подряд. Что в ней не так? Исправьте plezze. uses crt; var i,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Первый деплой
lagorue 16.01.2026
Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru