Основы программирования на языке Turbo Pascal. Беляева И.В. - 154 стр.

UptoLike

Составители:

Рубрика:

154

a := ['A' .. 'D']; {Множество A содержит 4 элемента – ‘A’,’B’,’C’,’D’}

b := ['C', 'D', 'R', 'W']; {Множество B содержит 4 элемента –

‘C’,’D’,’R’,’W’}

c := ['C', 'D']; {Множество C содержит 2 элемента – ’C’,’D’}

d := a + b; {ОБЪЕДИНЕНИЕ: множество D содержит все элементы множества A

и все элементы множества B. Все элементы содержатся только по одному разу, т.е.

множество D содержит 6 элементов – ‘A’,’B’,‘C’,’D’,’R’,’W’}

e := a - b; { РАЗНОСТЬ: множество E содержит те элементы множества A,

которых нет в множестве B. Т.е. в множество E скопированы все элементы множества

A, за исключением тех, которые были и в A и в B. Множество E теперь содержит 2

элемента - ‘A’,’B’}

f := a * b; {ПЕРЕСЕЧЕНИЕ: множество F содержит те элементы множества A,

которые есть и в множестве B. Множество F теперь содержит 2 элемента – ‘C’,’D’}

if a = b {РАВЕНСТВО: сравниваются множества A и B. Если оба они содержат

одинаковые элементы, то результат True, в противном случае – False. В данном

случае A не равен B, т.к. A=[‘A’..’D’], а B=['C','D','R','W'], т.е. A=B – False}

then writeln('A=B')

else writeln('A<>B'); {Будет выведена строка ‘A<>B’}

if c <> a * b {НЕРАВЕНСТВО: сравниваются множества A и B. Если они

отличаются друг от друга хотя бы одним элементом, то результат True, в противном

случае – False. В данном случае C=[‘C’,’D’], и A*B=['C','D'] – т.е. в данном случае C

равен A*B, следовательно, c<>a*b – False}

then writeln('C<>A*B')

else writeln('C=A*B'); {Будет выведена строка ‘C=A*B’}

if a >= c {ЯВЛЯЕТСЯ НАДМНОЖЕСТВОМ: сравниваются множества A и C.

Если в множестве A содержатся все элементы множества C (причем в множестве A,

кроме элементов множества C, могут быть и любые другие элементы), то результат

True, в противном случае – False. В данном случае A=[‘A’..’D’], а С=['C','D'], т.е.

множество A содержит все элементы множества C, следовательно, a>=c – True}

then writeln('A>=C') {Будет выведена строка ‘A>=C’}