Главная » Pascal, Основы » Множества
Фев
28

Множества

Множества

Множество состоит с элементов, которые записываются в квадратных скобках через запятую. Могут быть символьного, перечисленного или диапазонного типа. Количество элементов в множестве ограниченно.
Описание множества
[sourcecode language=»pascal»]
type
symbol = set of char;
number = set of byte;
bukva = set of(‘a’,’b’,’c’);
var
digit: set of (‘0′..’9′);
txt: set of (‘0′..’9′,’a’..’z’);
const
a=[‘+’,’-‘,’*’,’/’];
[/sourcecode]
Максимальное количество элементов множества не может превышать 256.
Множество может быть пустым.
[sourcecode language=»pascal»]
a:= [ ];
[/sourcecode]
Операции над множествами



1)Объединение(+)
Это множество содержит все элементы множеств, которые объединяются без повторений.
[sourcecode language=»pascal»]
A = [1,2,3,4,5,8]
B = [1,2,3,4,5,6,8]
A+B = [1,2,3,4,5,6,8]
[/sourcecode]
2)Пересечение(*)
Это множество состоит с элементов, которые общие для всех множеств.
[sourcecode language=»pascal»]
A = [1,2,3]
B = [2,3,4]
A*B = [2,3]
[/sourcecode]
3)Разность(-)





«А» и «В» есть множество которое состоит с элементов, которые есть в «А», но нету в «В».
[sourcecode language=»pascal»]
A = [1,2,3]
B = [2,3,4]
A-B = [1]
[/sourcecode]
4)Сравнения(=,<=,>=)
Множество А = В, если они состоят с одинаковых элементов.
[sourcecode language=»pascal»]
[2,3] = [3,2]
[/sourcecode]
Множество А <= B, если все элементы множества А входят в множество В. Множество А называется подмножеством.
[sourcecode language=»pascal»]
A = [1..5]
B = [1..9]
A <= B
[/sourcecode]
Множество А >= B, если все элементы множества B входят в множество A. Множество А называется надмножеством.
[sourcecode language=»pascal»]
A = [1..9]
B = [1..5]
A >= B
[/sourcecode]
5)Вхождение в множество in
[sourcecode language=»pascal»]
‘a’ in [‘a’..’z’] true
[/sourcecode]
[sourcecode language=»pascal»]
Number:=25;
readln(number);
if number in [1,2,3,20..30] then
writeln(‘chuslo est v mnojestve’)
else writeln(‘chusla nety v mnojestve’);
[/sourcecode]
Пример:
Определить количество чисел, которое находится в множестве символов S.
[sourcecode language=»pascal»]
Program S;
var
s: set of char;
n: integer;
cufra: ‘0’..’9′;
begin
n:= 0;
for cufra:= ‘0’ to ‘9’ do
of cufra in s then
n:= n+1;
end;
end.
[/sourcecode]

____
А вот купить шины для своего автомобиля вы можете за очень доступными ценами.



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.