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

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

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

Author24 — интернет-сервис помощи студентам
дан текст хранящийся в текстовом файле.подсчитать количество слов заканчивающихся на данную букву
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.12.2015, 12:28
Ответы с готовыми решениями:

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

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

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

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

2
5084 / 2655 / 2350
Регистрация: 10.12.2014
Сообщений: 10,035
09.12.2015, 08:13 2
Лучший ответ Сообщение было отмечено 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
32877 / 21209 / 8154
Регистрация: 22.10.2011
Сообщений: 36,465
Записей в блоге: 8
09.12.2015, 14:23 3
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
09.12.2015, 14:23
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.12.2015, 14:23
Помогаю со студенческими работами здесь

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru