Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.06.2017, 16:34   #1
Halikarnas
Пользователь
 
Регистрация: 19.03.2017
Сообщений: 14
По умолчанию В заданной строке найти все слова, в которых буква «а» встречается лишь раз. PascalABC.NET

В заданной строке найти все слова, в которых буква «а» встречается лишь раз.
Halikarnas вне форума Ответить с цитированием
Старый 09.06.2017, 16:39   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

чужое решение с чужого форума:

Код:
// /* в предложении найти все слова с одной буквой "а" и вывести эти слова
//  (c) volvo 
//
begin
  var s : string :=
    'Алексей Фёдорович Карамазов - главное действующее лицо романа Фёдора Михайловича Достоевского "Братья Карамазовы"';
  var arr := new string[3](' ', '-', '"'); // Сюда можно добавить еще разделителей...
  foreach st : string in s.Split(arr, System.StringSplitOptions.RemoveEmptyEntries) do
  begin
    var count : integer := 0;
    foreach ch : char in st do count += ord(ch = 'а');
    if count = 1 then writeln(st);
  end;
end.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 09.06.2017, 17:03   #3
Halikarnas
Пользователь
 
Регистрация: 19.03.2017
Сообщений: 14
По умолчанию Спасибо

Спасибо))

Последний раз редактировалось Halikarnas; 09.06.2017 в 17:07.
Halikarnas вне форума Ответить с цитированием
Старый 09.06.2017, 17:29   #4
Plague
Забанен
Форумчанин Подтвердите свой е-майл
 
Аватар для Plague
 
Регистрация: 01.11.2006
Сообщений: 420
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
чужое решение с чужого форума:
Слишком длинное решение))
Можно проще и короче:
Код:
begin
  ReadString.ToWords(Arr(' ','-','"')).Where(x->x.Count(i->i='а')=1).Print(NewLine)
end.
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
Plague вне форума Ответить с цитированием
Старый 09.06.2017, 17:30   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Plague Посмотреть сообщение
Можно проще и короче:
так я же говорю, что я LINQ не знаю, и решение вообще не моё.

А за решение спасибо. утяну в копилочку...
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
удалить из предложения слова, в которых буква А встречается более двух раз Olgaandsasha Общие вопросы C/C++ 2 19.12.2013 13:57
Oracle - вывести работников, в имени или фамилии которых какая-либо буква встречается 2 и более раз Кристина * SQL, базы данных 10 08.12.2012 20:32
Определить количество слов, в которых буква 'П' встречается хотя бы один раз. edgeks Помощь студентам 0 18.11.2012 15:34
Текстовый файл, из предложения выбросить слова в которых встречается определённая буква. (Паскаль) serhan Помощь студентам 14 25.04.2011 15:29
найти все слова, в которых заданный символ встречается не менее чем заданное число раз. Delphi. Виктория7777 Помощь студентам 6 21.12.2010 18:46