Форум программистов, компьютерный форум, киберфорум PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 20.05.2017
Сообщений: 4

В строке символов выяснить, имеется ли в строке пара одинаковых символов до первого восклицательного знака

20.05.2017, 02:59. Показов 1055. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Ребята буду признателен если поможете.

Написать, подпрограмму, которая в строке символов выясняет имеется ли в строке пара одинаковых символов до первого восклицательного знака.
Известно, что символ s1 отличен от восклицательного знака и что в строке есть по крайне мере один восклицательный знак.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
20.05.2017, 02:59
Ответы с готовыми решениями:

Дана строка символов. Выяснить, имеются ли в строке пара соседствующих одинаковых символов
Дана строка символов. Выяснить, имеются ли в строке пара соседствующих одинаковых символов.

Выяснить, имеется ли среди символов, пара соседствующих одинаковых символов
Даны натуральное число n, символы S1,...,Sn. Выяснить, имеется ли среди символов S1,...,Sn пара соседствующих одинаковых символов? Сколько...

Выяснить, имеется ли среди символов S1,...,Sn пара соседствующих одинаковых символов
Даны натуральное число n, символы S1,...,Sn. Выяснить, имеется ли среди символов S1,...,Sn пара соседствующих одинаковых символов? Сколько...

3
 Аватар для Hitoku
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
20.05.2017, 03:56
Как вариант
Pascal Скопировано
1
2
3
4
begin
  var s := ReadlnString('Введите строку:');
  write(s.Take(pos('!', s) - 1).GroupBy(v -> v).First.Count >= 2 ? 'Повторяющиеся есть' : 'Повторяющихся нет');
end.
Добавлено через 2 минуты
С функцией
Pascal Скопировано
1
2
3
4
5
function fun(s: string): boolean:=s.Take(pos('!', s) - 1).GroupBy(v -> v).First.Count >= 2;
begin
  var s := ReadlnString('Введите строку:');
  write(fun(s) ? 'Повторяющиеся есть' : 'Повторяющихся нет');
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33111 / 21407 / 8219
Регистрация: 22.10.2011
Сообщений: 36,738
Записей в блоге: 9
20.05.2017, 10:22
Цитата Сообщение от map1992011 Посмотреть сообщение
пара одинаковых символов
Имеется в виду рядом, или вообще? Если рядом - то вот так:
Pascal Скопировано
1
2
3
4
begin
  var s := '12344678! 3398!';
  writeln(Regex.Matches(s, '(.)\1').Cast&<Match>.FirstOrDefault(m -> m.Index < Pos('!', s)) <> nil);
end.
0
0 / 0 / 0
Регистрация: 20.05.2017
Сообщений: 4
20.05.2017, 10:46  [ТС]
Цитата Сообщение от volvo Посмотреть сообщение
Имеется в виду рядом, или вообще?
Вообще.

Добавлено через 33 секунды
Цитата Сообщение от Hitoku Посмотреть сообщение
Как вариант
PascalВыделить код
1
2
3
4
begin
* var s := ReadlnString('Введите строку:');
* write(s.Take(pos('!', s) - 1).GroupBy(v -> v).First.Count >= 2 ? 'Повторяющиеся есть' : 'Повторяющихся нет');
end.
Добавлено через 2 минуты
С функцией
PascalВыделить код
1
2
3
4
5
function fun(s: string): boolean:=s.Take(pos('!', s) - 1).GroupBy(v -> v).First.Count >= 2;
begin
* var s := ReadlnString('Введите строку:');
* write(fun(s) ? 'Повторяющиеся есть' : 'Повторяющихся нет');
end.
Спасибо большое!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
20.05.2017, 10:46
Помогаю со студенческими работами здесь

Определить, имеется ли в заданной строке пара соседних одинаковых символов
Задан текст определить имеется ли в заданной строке пара соседних одинаковых символа

Выяснить, имеется ли в строке такая пара символов, что — это запятая, а — тире
Дана строка символов . Выяснить, имеется ли в строке такая пара символов, что - это запятая, а - тире. Очень нужна помочь вашая , а...

Выяснить, имеется' ли среди s1,…,sn пара соседствующих одинаковых символов
Выяснить, имеется' ли среди s1,…,sn пара соседствующих одинаковых символов.

Выяснить, имеется ли среди s1,...,sn пара соседствующих одинаковых символов
Даны символы s1, s2,... Известно, что символ s1 отличен от восклицательного знака и что среди s2, s3, ... есть по крайней мере один...

Для каждой из последовательностей выяснить, имеется ли в них пара соседних одинаковых символов
Для каждой из последовательностей А,В,С выяснить, имеется ли в них пара соседних одинаковых символов. Для проверки наличия пары...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Async/await в Swift: Асинхронное программировани­е в iOS
mobDevWorks 20.03.2025
Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .
Сложность Колмогорова: Приёмы упрощения кода
ArchitectMsa 20.03.2025
Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .
PostgreSQL в Kubernetes: Подготовка кластера и настройка
Mr. Docker 20.03.2025
Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .
C++26: Индексирование пакетов и метапрограммиро­вание
bytestream 20.03.2025
Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .
Состояние гонки в C#: подводные камни многопоточного программировани­я
UnmanagedCoder 20.03.2025
Что такое состояние гонки? Это ситуация, когда результат программы непредсказуемо меняется в зависимости от порядка выполнения потоков. Проще говоря, два или более потока пытаются одновременно. . .
Next.js для разработки React: преимущества серверного рендеринга
Reangularity 20.03.2025
Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .
JUnit или TestNG: Выбираем Java-фреймворк для тестирования
Javaican 20.03.2025
История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .
Разбиваем монолит на два микросервиса и реализуем CI/CD
ArchitectMsa 20.03.2025
Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .
Python и PDF: Создание и редактирование файлов
py-thonny 20.03.2025
Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .
Корутины в Unity и производительно­сть WaitForSeconds
GameUnited 20.03.2025
Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер