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

UptoLike

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

Рубрика:

155

else writeln('not A>=C');

if a<=b {ЯВЛЯЕТСЯ ПОДМНОЖЕСТВОМ: сравниваются множества A и B.

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

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

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

т.е. все элементы множества A не содержатся в множестве B, следовательно, a<=b –

False}

then writeln('A<=B')

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

if 'A' in A {ПРИНАДЛЕЖНОСТЬ: проверяется, содержит ли множество A

элемент ‘A’. Если содержит, то результат True, в противном случае – False. В данном

случае A=[‘A’..’D’], следовательно, ‘A’ содержится в множестве A. Значит, ‘A’ in A –

True}

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

else writeln('''A'' NOT in A')

end.

Пример использования множеств

Задача: сделать программу, обеспечивающую проверку знаний

шестнадцатеричных цифр.

Решение: сделаем простейший вариант, когда пользователь вводит

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

символы из множества шестнадцатеричных цифр он ввел.

Замечание: в записи шестнадцатеричных чисел могут быть

использованы цифры от ‘0’ до ‘9’ и латинские буквы – либо большие (от

‘A’ до ‘F’), либо маленькие (от ‘a’ до ‘f’).

Программа:

Program digitsOfHex;

Type