Составные структуры

Множества

1. Определение и описание множеств

   Множество – неупорядоченная совокупность отличных друг от друга однотипных элементов.
   В качестве типа элементов множества, называемого базовым, может выступать любой ординальный тип, содержащий не более 256 возможных значений.
   Задание конкретного множества определяется конструктором – списком элементов или интервалов, заключенном в квадратные скобки.
   Система обозначений [] обозначает пустое множество, которое является совместимым со всеми типами множества.
   При описании множественного типа используются зарезервированные слова set и of.

   Схема описания множеств такова:

   Type имя типа = set of тип элементов множества;

   Способы описания множеств:

   1. В разделе описания типов:
      Type Day = (Sun, Mon, Tue, Wed, Thu, Fri, Sat);
        Days = set of Day;
        Chisla = set of byte;
      Var a: chisla; b: days;

      В разделе описания переменных:

      Var Simbols: set of Char;

      Digits: set of 0..9;

      Констант - множество, где задается первоначальное значение переменной множественного типа

      Const glasnye: set of char = [‘а’, ’е’, ’и’, ’о’, ’у’, ’ы’, ’э’, ’ю’, ’я’];

          ChetCifry: set of 0..9 = [0, 2, 4, 6, 8];

2. Операции над множествами

   1. ‘+’ - операция объединения множеств.
      ‘-‘ - операция дополнения (разности).
      ‘*’ - операция пересечения множеств.

      Операции отношения равенства множеств (А = В),

      неравенства (А <> В),

      включения (А <= B, B <= A).

      Логическая операция принадлежности (in): x in A = true, если элемент х

      принадлежит множеству А. В противном случае x in A = false.

      Примеры:

      А = [1, 3, 4, 5, 8], B = [2, 4, 6, 8]

      A + B = [1, 2, 3, 4, 5, 6, 8];

      A – B = [1, 3, 5];

      A * B = [4, 8];

      A <> B;

      3 in A = true; 6 in A = false;

3. Пример программы

   Даны две последовательности чисел, заданных случайным образом из отрезка [0, 60]. Найти все общие элементы этих последовательностей.

   uses crt;
   var a, b, c: set of 0..60;
   x: 0..60; n, m, i: byte;
   begin
   clrscr;
   a:=[];
   write('Введите количество элементов первой последовательности: ');
   readln(n);
   writeln('Элементы первой последовательности: ');
   for i:=1 to n do
   begin
   x:=random(60);
   write(x:5);
   a:=a + [x];
   end;
   writeln;
   b:=[];
   write('Введите количество элементов второй последовательности: ');
   readln(m);
   writeln('Элементы второй последовательности: ');
   for i:=1 to m do
   begin
   x:=random(60);
   write(x:5);
   b:=b + [x];
   end;
   c:=a*b;
   writeln;
   if c = [] then write('Общих элементов нет.')
   else
   begin
   writeln('Общие элементы: ');
   for x:=0 to 60 do
   if x in c then write(x:5);
   end;
   readkey
   end.

Назад

Далее