0 / 0 / 0
Регистрация: 27.06.2016
Сообщений: 24
1

Вывести в алфавитном порядке буквы, входящие одновременно во все множества

29.06.2016, 02:15. Показов 2060. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Пусть D1, D3, D5, D7 – множества, составленные из букв, входящих в

названия нечетных дней недели. Вывести в алфавитном порядке:

а) буквы, входящие одновременно во все множества;

б) буквы, входящие одновременно в названия и первого, и пятого дня

недели;

в) буквы, входящие хотя бы в одно множество;

г) буквы, входящие в название только двух нечетных дней недели.

Для вывода множеств использовать процедуру.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.06.2016, 02:15
Ответы с готовыми решениями:

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

Вывести в алфавитном порядке буквы, входящие одновременно во все множества
помагите пожалуйста с этой задачей: пусть д2,д4,д6-множества.составленные из букв,входящих в...

Строки и множества. Вывести в алфавитном порядке все буквы текста, входящие в него по одному разу
1.Вывести в алфавитном порядке все буквы текста, входящие в него по одному разу...

Множества. Дан текст. Вывести в алфавитном порядке все буквы текста, входящие в него не менее двух раз
Дан текст. Вывести в алфавитном порядке все буквы текста, входящие в него не менее двух раз. Текст...

3
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
29.06.2016, 08:59 2
Лучший ответ Сообщение было отмечено PoyPoy как решение

Решение

Для русских названий так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
type mnz=set of char;
procedure init(s:string;var m:mnz);
var i:byte;
begin
m:=[];
for i:=1 to length(s)do
m:=m+[s[i]];
end;
procedure print(m:mnz;s:string);
var c:char;
begin
writeln(s);
for c:='а' to 'я' do
if c in m then write(c:2);
writeln;
end;
var d1,d3,d5,d7,m1,m2,m3,m4:mnz;
    c:char;
    k:byte;
begin
init('понедельник',d1);
init('среда',d3);
init('пятница',d5);
init('воскресение',d7);
print(d1,'Множество D1');
print(d3,'Множество D3');
print(d5,'Множество D5');
print(d7,'Множество D7');
m1:=d1*d3*d5*d7;
if m1=[] then writeln('Нет букв, входящих во все множества')
else print(m1,'Буквы, входящие во все множества');
m2:=d1*d5;
if m2=[] then writeln('Нет букв, входящих одновременно в ножества D1 и D5')
else print(m2,'Буквы, входящие одновременно в ножества D1 и D5');
m3:=d1+d3+d5+d7;
print(m3,'Буквы, входяшие хотя бы в одно множество');
m4:=[];
for c:='а' to 'я' do
 begin
  k:=0;
  if (c in d1)or(c in d3)or(c in d5)or(c in d7) then inc(k);
  if k=2 then m4:=m4+[c];
 end;
if m4=[] then write('Нет букв, входящих ровно в 2 множества')
else print(m4,'Буквы, входящие в 2 множества');
end.
1
0 / 0 / 0
Регистрация: 27.06.2016
Сообщений: 24
29.06.2016, 13:25  [ТС] 3
скажите пожалуиста для чего нужна процедура init
0
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
29.06.2016, 13:26 4
Для создания множеств из строк.
1
29.06.2016, 13:26
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.06.2016, 13:26
Помогаю со студенческими работами здесь

Множества: в алфавитном порядке напечатать все малые латинские буквы, входящие в строку ровно 1 раз
Дана строка. В алфавитном порядке напечатайте (по разу) все малые латинские буквы, входящие в эту...

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

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

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

Множества. Вывести на экран в алфавитном порядке все буквы, встречающиеся в тексте
1.Задан текст, состоящий из латинских букв, в конце идет точка. Вывести на экран все буквы в...

Вывести в алфавитном порядке все гласные буквы, входящие в каждое слово строки
Вывести слова,в которых заменить каждую БОЛЬШУЮ БУКВУ ОДНО-ИМЕННОЙ МАЛОЙ; вывести в алфавитном...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru