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

@map1992011 · Регистрация: 20.05.2017

Author24 — интернет-сервис помощи студентам

Ребята буду признателен если поможете.

Написать, подпрограмму, которая в строке символов выясняет имеется ли в строке пара одинаковых символов до первого восклицательного знака.
Известно, что символ s1 отличен от восклицательного знака и что в строке есть по крайне мере один восклицательный знак.

@Hitoku · 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.

@volvo · 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.

@map1992011 · 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.

Спасибо большое!!!

Новые блоги и статьи Все статьи Все блоги /
Сопоставление с образцом (Pattern Matching) в Python: Списки и словари py-thonny 19.03.2025 Программисты любят, когда код говорит сам за себя. Представьте, что вы можете просмотреть структуру данных и мгновенно понять, что с ней делать — без сложных условий и вложенных проверок. Именно эту. . .	Работа с метаданными EXIF и JPEG в JavaScript run.dev 19.03.2025 Работа с изображениями в веб-разработке нередко выходит за рамки простого отображения картинки. Современные задачи требуют глубокого понимания структуры файлов и умения манипулировать их внутренними. . .	Чеклист для Kubernetes в продакшене: Лучшие практики для SRE Mr. Docker 19.03.2025 Когда сталкиваешься с запуском Kubernetes в продакшене, невольно задаешься вопросом: почему то, что так гладко работало в тестовой среде, вдруг начинает вызывать головную боль на боевых системах?. . .	Разработка продвинутого ИИ в Unity с использованием Behavior Graph GameUnited 19.03.2025 В разработке игр искусственный интеллект персонажей часто становится тем элементом, который превращает хорошую игру в выдающуюся. До недавнего времени разработчикам под Unity приходилось либо писать. . .	Словари в Python: методы работы, оптимизация, сериализация py-thonny 19.03.2025 Каждый хотя бы раз сталкивался с необходимостью хранить связанные данные, где важна не только сама информация, но и их взаимосвязь. В дебрях Python словари — это тот универсальный инструмент, который. . .
Реализация паттерна CQRS с Event Sourcing в PHP Jason-Webb 19.03.2025 CQRS (Command Query Responsibility Segregation) — это архитектурный паттерн, который разделяет операции чтения и записи данных в приложении. Если вы столкнулись с ситуацией, когда ваше PHP-приложение. . .	std::span в C++: Подпредставления и срезы NullReferenced 18.03.2025 Если вы когда-нибудь работали с большими объемами данных в C++, то наверняка сталкивались с необходимостью манипулировать отдельными частями массивов или контейнеров. Традиционные подходы часто. . .	std::span в C++: Доступ к элементам и итерирование NullReferenced 18.03.2025 В C++ каждый разработчик сталкивается с проблемой эффективного управления последовательностями данных. Представьте: вы работаете с массивом, передаете его в функцию, а затем в другую, и каждый раз. . .	Утечки памяти в C# UnmanagedCoder 18.03.2025 Когда мы говорим о разработке приложений на C#, то часто успокаиваем себя мыслью, что сборщик мусора решит все наши проблемы с памятью. "Память управляется автоматически" — эта мантра прочно засела в. . .	std::span в C++: Введение в невладеющее представление NullReferenced 18.03.2025 С появлением стандарта C++20 у нас появился новый инструмент — std::span, который представляет собой невладеющее представление для работы с последовательностями данных. std::span — это легковесный. . .

@map1992011 0 / 0 / 0 Регистрация: 20.05.2017 Сообщений: 4
		1
	В строке символов выяснить, имеется ли в строке пара одинаковых символов до первого восклицательного знака 20.05.2017, 02:59. Показов 1052. Ответов 3 Метки нет (Все метки) Ребята буду признателен если поможете. Написать, подпрограмму, которая в строке символов выясняет имеется ли в строке пара одинаковых символов до первого восклицательного знака. Известно, что символ s1 отличен от восклицательного знака и что в строке есть по крайне мере один восклицательный знак. 0

@map1992011 0 / 0 / 0 Регистрация: 20.05.2017 Сообщений: 4
	20.05.2017, 10:46 [ТС]	4
	Сообщение от 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