Получить множество, состоящее из согласных букв русского алфавита и знаков препинания

@Valeria342 · Регистрация: 10.10.2022

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

Дано множество букв русского алфавита. Получить множество, состоящее из согласных букв русского алфавита и знаков препинания

@JuriiMW · 02.12.2022, 04:31

Valeria342, нужно читать праааааааавилаааааа!

@ura-ura · 02.12.2022, 06:34

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

@bormant · 02.12.2022, 07:45

Pascal
1
letters*(consonants+punctuation);

Добавлено через 55 секунд
это основная идея.

@Cyborg Drone · 06.12.2022, 20:20

ura-ura, строго говоря, строка не может являться множеством символов.

Добавлено через 32 минуты
bormant, неверно, по заданию получается letters*consonants+punctuation, поскольку сказано, что "дано множество букв русского алфавита", а не "дано множество букв русского алфавита и знаков препинания".

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
  consonant = ['б','Б','в','В','г','Г','д','Д','ж','Ж','з','З','й','Й',
               'к','К','л','Л','м','М','н','Н','п','П','р','Р','с','С',
               'т','Т','ф','Ф','х','Х','ц','Ц','ч','Ч','ш','Ш','щ','Щ'];
  punctuation = ['.',',','!','?','-',';',':','"',''''];
var
  s: string;
  m: set of char;
  i: integer;
  c: char;
begin
  writeln('Введите строку, содержащую некоторое множество русских букв:');
  readln(s);
  m := [];
  for i := 1 to length(s) do include(m, s[i]);
  m := m * consonant + punctuation;
  write('Результат: [');
  for c := ' ' to 'я' do if c in m then write(c);
  writeln(']');
  readln
end.

Valeria342, если нужно, то дополните множество punctuation.

@bormant · 06.12.2022, 20:40

Cyborg Drone,
тогда в этой задаче "дано" тоже не нужно, так вот и выходит, что множество русских букв и пунктуации от "дано" не зависит

@Cyborg Drone · 06.12.2022, 21:23

Да, строго говоря, не зависит. Тогда так, что ли:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const
  m = ['б','Б','в','В','г','Г','д','Д','ж','Ж','з','З','й','Й',
       'к','К','л','Л','м','М','н','Н','п','П','р','Р','с','С',
       'т','Т','ф','Ф','х','Х','ц','Ц','ч','Ч','ш','Ш','щ','Щ',
       '.',',','!','?','-',';',':','"',''''];
var
  c: char;
begin
  writeln('Введите строку, содержащую некоторое множество русских букв:');
  readln;
  write('Результат: [');
  for c := ' ' to 'я' do if c in m then write(c);
  writeln(']');
  readln
end.

Добавлено через 4 минуты
Или, если всё-таки нужно сформировать результат из входной строки, тогда так, как ты сказал:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
  cp = ['б','Б','в','В','г','Г','д','Д','ж','Ж','з','З','й','Й',
        'к','К','л','Л','м','М','н','Н','п','П','р','Р','с','С',
        'т','Т','ф','Ф','х','Х','ц','Ц','ч','Ч','ш','Ш','щ','Щ',
        '.',',','!','?','-',';',':','"',''''];
var
  s: string;
  m: set of char;
  i: integer;
  c: char;
begin
  writeln('Введите строку, содержащую некоторое множество русских букв:');
  readln(s);
  m := [];
  for i := 1 to length(s) do include(m, s[i]);
  m := m * cp;
  write('Результат: [');
  for c := ' ' to 'я' do if c in m then write(c);
  writeln(']');
  readln
end.

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Решение ниже на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. Задача: реализовать. . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@Valeria342 0 / 0 / 0 Регистрация: 10.10.2022 Сообщений: 19

	Получить множество, состоящее из согласных букв русского алфавита и знаков препинания 01.12.2022, 21:16. Показов 1014. Ответов 6 Метки нет (Все метки) Дано множество букв русского алфавита. Получить множество, состоящее из согласных букв русского алфавита и знаков препинания 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	02.12.2022, 04:31
	Valeria342, нужно читать праааааааавилаааааа! 1

@ura-ura 120 / 50 / 10 Регистрация: 17.11.2021 Сообщений: 252
	02.12.2022, 06:34
	пофантазируем на тему.... пусть дано множество в виде строки, создаем строку в которой все согласные и знаки препинания для образца. гоним пока не кончится исходную строку проверяя каждый символ на совпадение с образцом и если совпадает прибавляем к строке результату. 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	06.12.2022, 20:40
	Cyborg Drone, тогда в этой задаче "дано" тоже не нужно, так вот и выходит, что множество русских букв и пунктуации от "дано" не зависит 0