Операції над множинами.

Дата добавления: 2015-07-23; просмотров: 565; Нарушение авторских прав

Опис	Приклад
А	В	результат
А+В (обєднання) – множина, яка містить усі елементи множин А і В без повторень.	[1,2,3]	[1,4,5]	[1,2,3,4,5]
А*В (перетин) – множина, яка містить елементи, які є спільними для множин А і В.	[1,2,3] [8,6]	[1,4,2,5] []	[1,2] []
А-В (різниця) – множина, яка складається з елементів, які є у множині А, але немає у множині В.	[1,2,3,4]	[3,4,5,6]	[1,2]
А=В (рівність) – дві множини вважаються рівними, якщо вони складаються з однакових елементів.	[1,2,3] [4,6,8]	[1,2] [8,6,4]	false true
А<>В (не рівність) – дві множини вважаються не рівними, якщо вони відрізняються по кількості елементів або по значенню хоча б одного елемента.	['a'..'z'] ['a','b','c','d']	['A'..'Z'] ['a'..'d']	false true
А>=В – операція визначення належності однієї множини іншій. Результат операції А>=В дорівнює true, якщо всі елементи множини В містяться в множині А. В іншому випадку результат дорівнює false.	[1,2,3]	[2,3,4]	false
А<=В. Результат операції А<=В дорівнює true, якщо всі елементи множини А містяться в множині В. В іншому випадку результат дорівнює false.	[1,2]	[0,1,2,3]	true
In (належність елемента множині)	[1,2,3,4]	[2,3,4,5]	5 in A – false 3 in B – true

Задача.Ввести рядок. Сформувати множину, в яку входять латинські букви рядка та множину розділових знаків з вхідного рядка.

Текст програми

programlat;

var c, i, j : char;

lb : set of 'a' ..'z'; pr: set of '!' ..'?';

Begin

writeln ('Введіть рядок');

lb:= [];

pr:= [];

Repeat

read (c);

if c in ['a'..'z'] then

lb:= lb + [c] else

if c in [':',';','.',',','!','?'] then pr:=pr+[c]

until eoln;

writeln ('латинські букви');

for i:= 'a' to 'z' do

if i in lb then write (і:2);

writeln;

writeln ('розділові знаки');

for j:='!' to '?' do

if j in pr then write (j : 2)

End.

Завдання

<== предыдущая лекция	\|	следующая лекция ==>
Функції для роботи з рядками.	\|	І. Скласти програму до задачі вказаної викладачем.