0 / 0 / 0
Регистрация: 09.11.2015
Сообщений: 5

Подсчитать количество слов, заканчивающихся на заданную букву из текста, хранящегося в файле

06.12.2015, 12:28. Показов 1649. Ответов 2
Метки нет (Все метки)

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

Подсчитать количество слов в текстовом файле, заканчивающихся на заданную букву
Создать в программе Блокнот текстовый файл. Написать программу, которая подсчитывает количество слов в созданном текстовом файле,...

Дан файл, содержащий текст, подсчитать количество слов начинающихся и заканчивающихся на одну и туже букву
Блин вообще ребят срочно нужно!!!!! завтро здавать на зачете! и конец практике!))) плаззз кто может помогите бедному студенту!!

Определить количество слов заканчивающихся на букву ''Q''
Вводится последовательность символов определить количество слов заканчивающихся на букву ''Q'' без использования сложных типов данных.

2
 Аватар для JuriiMW
5093 / 2660 / 2354
Регистрация: 10.12.2014
Сообщений: 10,055
09.12.2015, 08:13
Лучший ответ Сообщение было отмечено 4esnOK как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
begin
  var S := ReadAllText(ReadLnString('Имя файла:'), Encoding.GetEncoding(1251));
  var C := ReadLnChar('Заданная буква:');
  var count := 0;
  var d := (' .,!?:;''"/=<>{}[]()-+'+chr(13)+chr(10)).ToCharArray;
  foreach var W : String in S.ToWords(d) do
    if W[W.Length] = C then
      count += 1;
  WriteLnFormat('На букву «{0}» заканчиваются слов: {1}', C, count);
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33150 / 21442 / 8223
Регистрация: 22.10.2011
Сообщений: 36,776
Записей в блоге: 9
09.12.2015, 14:23
Pascal
1
2
3
4
5
6
7
begin
  var C := ReadlnChar('Заданная буква:');
  writeln(
    ReadAllText(ReadLnString('Имя файла:'), Encoding.GetEncoding(1251)).Split(#13#10' .,!?:;''"/=<>{}[]()-+'.ToCharArray(),
    System.StringSplitOptions.RemoveEmptyEntries).Count(s -> s.EndsWith(C))
  );
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
09.12.2015, 14:23
Помогаю со студенческими работами здесь

Функция: вернуть количество слов, заканчивающихся на согласную букву
функция countsoglend(f:text):word возвращает количество слов, заканчивающихся на согласную букву в текстовом файле f, содержащем английский...

Дана строка. Найти количество слов заканчивающихся на букву «т» в строке
Дана строка. Найти количество слов заканчивающихся на букву «т» в строке. Если таковых нет, то вывести «Таких нет». Длина строки вводится с...

Определить количество слов, начинающихся на заданную букву в строке
Задача: определить, количество слов начинающихся на заданную букву в сроке мое решение: Var st:string; s:char; ...

Подсчитать в файле количество слов, начинающихся на заданную букву
Создать файл, содержащий несколько произвольных строк. Подсчитать в файле количество слов, начинающихся на заданную букву. Записать эти...

Определите количество слов, заканчивающихся на заданную букву
ребята срочно нужна помощь плохо программирую на языке visual basic а тут как на зло попалась задача Дан текст.определите количество...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

Новые блоги и статьи
Blazor и контроллер сервопривода IoT Meadow Maple
Wired 11.07.2025
Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .
Генерация OpenQASM из кода Q#
EggHead 10.07.2025
Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .
Изучаем новый шаблон ИИ-чата .NET AI Chat Web App
stackOverflow 10.07.2025
В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .
Результаты исследования от команды ARP (июль 2025 г.)
Programma_Boinc 10.07.2025
Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .
Angular vs Svelte - что лучше?
Reangularity 09.07.2025
Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .
Code First и Database First в Entity Framework
UnmanagedCoder 09.07.2025
Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .
Как использовать Bluetooth-модуль HC-05 с Arduino
Wired 08.07.2025
Bluetooth - это технология, созданная чтобы заменить кабельные соединения. Обычно ее используют для связи небольших устройств: мобильных телефонов, ноутбуков, наушников и т. д. Работает она на частоте. . .
Руководство по структурам данных Python
AI_Generated 08.07.2025
Я отчетливо помню свои первые серьезные проекты на Python - я писал код, он работал, заказчики были относительно довольны. Но однажды мой наставник, взглянув на мою реализацию поиска по огромному. . .
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах
Programma_Boinc 08.07.2025
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .
Раскрываем внутренние механики Android с помощью контекста и манифеста
mobDevWorks 07.07.2025
Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru