лабораторные на Pasca (Кудрявцев)l

Операция «равно» (=). Два множества A и B считаются равными, если они состоят из одних и тех же элементов. Порядок следования элементов в сравниваемых множествах значения не имеет.

Операция «не равно» (<>). Два множества A и B считаются не равными, если они отличаются по мощности или по значению хотя бы одного элемента.

Операция «больше или равно» (>=). Используется для определе- ния принадлежности множества. Результат операции A >= B равен True, если все элементы множества B содержатся во множестве A. В противном случае результатравен False.

Операция «меньше или равно» (<=). Используется аналогично предыдущей операции. Результат выражения A <= B равен True, ес- ли все элементы множества A содержатся во множестве B. В про- тивном случае результатравен False.

Разность множеств (–). Разностью двух множеств является третье множество, которое содержит элементы первого множества, не входящие во второе множество.

Для изменения порядка выполнения используются круглые скобки.

Средства работы со множествами позволяют в некоторых случаях сократить программы и сделать их более наглядными и эффектив- ными за счет уменьшения числа различных проверок.

Пример 5.

Program Prim 5; Var Stroka: string;

i: integer; Prav: boolean;

Begin i := 1;

writeln('введите строку'); readln(Stroka);

Для вывода элементов некоторого множества, сформированного в процессе выполнения программы, необходимо воспользоваться оператором цикла, внутри которого была бы проверка на принад- лежность текущего значения параметра цикла выводимому множе- ству. Например, для множества ВВ, описанного как ВВ: Set of 'A'..'Z'; можно организовать вывод элементов следующим образом:

Пример 6.

For i := 'A' to 'Z' do

if i in BB then write(i:2);

Причем параметр цикла i должен быть описан либо как символьная переменная, либо как i: 'A'..'Z'. Печать элементов множества произ- водится в том порядке, в котором они встречаются в базовом мно- жестве. Приведенная ниже программа Lat формирует множество LB, в которое входят только заглавные латинские буквы, встретившие- ся во входной строке, и множество знаков препинания PR из вход- ной строки (пример 7).

Пример 7.

Program Lat; Var

c, i, j: char;

LB: Set of 'A'..'Z';

PR: Set of '!'..'?'; Begin

write('=>');

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(i:2); writeln;

writeln('Знаки препинания:'); for j := ':' to '?' do

if j in PR then write(j:2); End.

ВОПРОСЫ И УПРАЖНЕНИЯ

1.Какие типы данных используются в качестве базовых при построении множественных типов?

2.Дано описание переменной множественного типа: Var Pm: Set of (Red, Grey, Blue, Black). Выписать все допустимые значения этой переменной.

3.Какие операции определены над переменными множественного типа и ка- ков их приоритет?

4.Будутли равны множества:

a)['A'..'D'] и ['A','B','C','D'];

b)[White, Black] и [Black, White].

5.Вычислить следующие выражения:

а) [5] <= [1..5];

b)['A'..'D', 'K'..'M'] + ['D'..'K'];

c)[Jan, Feb, Мar]*[Mar];

d)[2, 1, 3..6] = [1..7];

e)15 In [1..10];

f)[',', '(', ')', '.'] – [',', '.'].

6. Вычислить выражение:

[1..14]*[5, 12..60] + [4..7] – [2*16]*[6].

7. Упростить данные выражения множественного типа:

а) [11..17]*[2] + [7, 17..40]*[2..17] – [2..8];

b)(A – B)*A + (A – B)*B;

c)(A + B)*(A – B)*(B – A);

d)A – B – (A – B) – (B – A);

e)A – (A – B).

КОНТРОЛЬНЫЕ ЗАДАНИЯ

I. Дана непустая последовательность символов. Требуется построить и на- печатать множество, элементами которого являются встречающиеся в после- довательности:

1)цифры от '0' до '9';

2)буквы от 'A' до 'F' и от 'X' до 'Z';

3)буквы от 'G' до 'N' и цифры от '0' до '9';

4)знаки препинания;

тип. Так, рассмотренный в примере 1 тип комплексных чисел мож- но ввести и другим образом (см. пример 4).

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

В отличие от констант типа массив для задания значения каждого поля сначала указывается имя поля, а затем через двоеточие – его значение. Так для введенных выше типов можно ввести, например, следующие переменные и константы:

Пример 5.

Var

x, y, z: Complex; Dat, Dat1: Data;

Const

Birthday: Data = (Year:1971; Month:12; Day:9); Ivanov: Person = (Name: 'Иванов';

Sex: Male;

Age: 40; Married: True);

Примечание. Так же, как и при введении типа массив, тип запись

можно вводить непосредственно при определении переменных или типизированных констант. Фрагмент (пример 6) определяет те же комплексные переменные, что и в примере 4.

Пример 6.

Var

x, y, z: Record Re,Im: real

End;

Доступ к полям переменной или константы типа запись осуществ- ляется указанием имени переменной (константы) и имени поля, за- писываемого через точку, например:

Man.Name; MyBirthday.Year; X.Re; MyBirthday.Month; Dat.Day; MyBirthday.Day;

и т.д. Такие имена в программах используются так же, как и пере- менные других типов.