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

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

20.05.2017, 02:59. Показов 1045. Ответов 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 2
Как вариант
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
33105 / 21402 / 8217
Регистрация: 22.10.2011
Сообщений: 36,732
Записей в блоге: 9
20.05.2017, 10:22 3
Цитата Сообщение от 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  [ТС] 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
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
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Новые блоги и статьи
Простая нейросеть на КуМир: Создание и обучение
EggHead 16.03.2025
Искусственные нейронные сети — удивительная технология, позволяющая компьютерам имитировать работу человеческого мозга. Если вы хотя бы немного интересуетесь современными технологиями, то наверняка. . .
Исполнитель Кузнечик в КуМир: Решение задач
EggHead 16.03.2025
Среди множества исполнителей в системе КуМир особое место занимает Кузнечик — простой, но невероятно полезный виртуальный персонаж, который перемещается по числовой прямой, выполняя ваши команды. На. . .
Исполнитель Водолей в КуМир: Решение задач
EggHead 16.03.2025
Разработка алгоритмического мышления — одна из ключевых задач для начинающих программистов, и система КуМир предлагает отличный способ погрузиться в этот процесс. Среди множества исполнителей в этой. . .
Исполнитель Чертежник в КуМир: Решение задач
EggHead 16.03.2025
Представьте, что вы можете рисовать на бесконечной координатной плоскости, перемещая точку, которая оставляет след. По вашей команде она может поднять перо и двигаться, не оставляя следа, или. . .
Исполнитель Робот в КуМир: Решение задач
EggHead 16.03.2025
КуМир (Комплект Учебных МИРов) — это учебная среда программирования, разработанная специально для обучения базовым концепциям алгоритмизации. Её главная фишка — использование русскоязычного. . .
Исполнитель Черепаха в КуМир: Решение задач
EggHead 16.03.2025
Представьте, что вы впервые учитесь программировать, а перед вами стоит задача заставить маленькую виртуальную черепашку рисовать на экране. Звучит забавно? Эта идея зародилась ещё в 1967 году, когда. . .
Конвейеры данных с Apache Kafka
Javaican 16.03.2025
В мире, где данные стали новой нефтью, Apache Kafka зарекомендовал себя как мощный инструмент для построения надежных и масштабируемых конвейеров данных. Созданный изначально командой LinkedIn в 2011. . .
Deno против Node.js: Будущее JavaScript рантайма
run.dev 16.03.2025
За последнее десятилетие Node. js стал абсолютным лидером среди JavaScript-рантаймов и фактическим стандартом для серверной разработки на JavaScript. Но в 2018 году тот же разработчик, который создал. . .
SwiftUI или UIKit - что выбрать для нового приложения iOS?
mobDevWorks 16.03.2025
Когда Apple представила SwiftUI на WWDC 2019, многим показалось, что дни UIKit сочтены. Новый декларативный фреймворк предлагал радикально иной подход к разработке интерфейсов. Вместо кропотливого. . .
Docker: Руководство для начинающих по созданию первого приложения
Mr. Docker 16.03.2025
Docker — это платформа, которая упаковывает ваше приложение и все его зависимости в стандартизированные блоки, называемые контейнерами. Эти контейнеры изолированы друг от друга и от основной системы,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер