Практикум по программированию на языке Turbo Pascal. Часть 2. Портнягина В.В - 48 стр.

UptoLike

ВУЗ: 

КамчатГТУ | Петропавловск-Камчатский

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

Рубрика: 

<> проверка неэквивалентности, возвращает True, если
оба множества неэквивалентны.
<= проверка вхождения, результат операции True, если
первое множество включено во второе.
>= проверка вхождения, результат операции True, если
второе множество включено в первое.
2.2.5. Операции включения
Операция In осуществляет проверку вхождения элемента
во множество, первый операнд должен принадлежать базо-
вому типу, а второй – множественному типу значений, по-
строенному на этом базовом типе.
Пример 2
а) объявим символьный множественный тип:
Type mn = Set Of Char ;
Var с, а, b : mn;
a : = ['R0', 'X', 'V', 'Z'];
b : = ['С', 'Y', 'А', 'В', 'Z'];
Тогда рассмотрим элементы результирующего множест-
ва С, если будут использованы операции над множествами:
с : = а * b; {Множество с = ['Y', 'Z']};
с : = а + b; {Множество с = ['R', 'Х', 'Y', 'Z', 'А', 'В', 'С']};
'X' In mn; {результат операции дает True}
[ ] <= а; {результат операции дает True}
а = b; {результат операции дает False}
b) пусть а : = [' 0 ', ' 2 ', ' 3 ', ' 4 '];
b : = [' 4 ' , ' 2 ', ' 3 ', ' 0 '];
а = b; {результат операции дает True}
c) объявим множественный тип:
Type num = Set Of 0 .. 10;
Var A, B : num;
K : Bytе;
Выполним операции присваивания: К : = 2; А : = [1, K + 2];
B : = [K – 1,
7];
Теперь множество A состоит из элементов: A [1, 4],
множество B состоит из элементов: B [1, 7].
d) вычислим значения выражений:
48
    <> проверка неэквивалентности, возвращает True, если
оба множества неэквивалентны.
    <= проверка вхождения, результат операции True, если
первое множество включено во второе.
    >= проверка вхождения, результат операции True, если
второе множество включено в первое.

    2.2.5. Операции включения
    Операция In осуществляет проверку вхождения элемента
во множество, первый операнд должен принадлежать базо-
вому типу, а второй – множественному типу значений, по-
строенному на этом базовом типе.

     Пример 2
     а) объявим символьный множественный тип:
     Type mn = Set Of Char ;
     Var с, а, b : mn;
     a : = ['R0', 'X', 'V', 'Z'];
     b : = ['С', 'Y', 'А', 'В', 'Z'];
     Тогда рассмотрим элементы результирующего множест-
ва С, если будут использованы операции над множествами:
     с : = а * b; {Множество с = ['Y', 'Z']};
     с : = а + b; {Множество с = ['R', 'Х', 'Y', 'Z', 'А', 'В', 'С']};
     'X' In mn; {результат операции дает True}
     [ ] <= а; {результат операции дает True}
     а = b; {результат операции дает False}
     b) пусть а : = [' 0 ', ' 2 ', ' 3 ', ' 4 '];
     b : = [' 4 ' , ' 2 ', ' 3 ', ' 0 '];
     а = b; {результат операции дает True}
     c) объявим множественный тип:
     Type num = Set Of 0 .. 10;
     Var A, B : num;
     K : Bytе;
     Выполним операции присваивания: К : = 2; А : = [1, K + 2];
B : = [K – 1, 7];
     Теперь множество A состоит из элементов: A [1, 4],
множество B состоит из элементов: B [1, 7].
     d) вычислим значения выражений:
                                 48

Страницы