Тип данных «Множество»

Тип данных «Множество»

Цель: научиться использовать множественный тип данных при написании программ.

Множество представляет собой все возможные сочетания элементов некоторого базового типа плюс пустое множество.

Множество для {A, B, C} есть

{{ }, {A}, {B}, {C}, {A, B}, {A, C}, {B, C}, {A, B, C}}.

Два множества, отличающиеся только порядком следования элементов (или членов) множества, считаются одинаковыми. Следовательно, элементы множества не упорядочены.

Поэтому одинаковы следующие множества:

{A, B, C}, {B, C, A}, {C, B, A} и т. д.

В языке Pascal допускается любой простой тип при следующих ограничениях:

- вещественный тип использовать нельзя;

- для целого типа можно задавать только диапазоны.

Формат описания множественного типа:

Type

< тип-множество> = SET OF < базовый тип>.

В отличие от традиционной математической нотации для обозначения множеств используются квадратные скобки, в которые заключаются элементы множества. Запись [ ] обозначает пустое множество.

Над множествами определены операции:

+ - объединение множеств;

* - пересечение множеств;

- - разность множеств;

= - равенство множеств;

< > - неравенство множеств;

< =, > = - включение одного множества в другое;

IN - отношение принадлежности.

Задание 1. Дана последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности цифры от '0' до '9';

1) Рассмотреть программу решения задачи. Объяснить работу программы.

Type MN = Set of char;

Var M1, M2: MN;

S: String;

I: Integer;

J: Char;

BEGIN

Write(‘Введите последовательность символов’);

Readln(S);

M1: =[’0’.. ’9’];

M2: =[];

For I: =1 to Length(S) do

If S[i] in M1 Then M2: =M2+[S[i]];

For J: = ’0’ to ’9’ do

If J in M2 Then Write (J)

12 Следующая ⇒