Одесский колледж компьютерных технологий “СЕРВЕР”

SetUserCharSize (MultX, DivX,MultY,DivY) Устанавли-

вает высоту и ширину символов. Первыми двумя параметрами задаётся размер по горизонтали, следующими – по вертикали. Если принять 1 за значение ширины символа стандартного шрифта, то отношением MultX/DivX задаётся ширина символа шрифта, а MultY/DivY – высота.

Пример:

SetTextStyle (4,0,4); {готический шрифт}

OutText('Normal string'); SetUserCharSize (1,2,1,2); OutTextXY (10,50,'Short string'); SetUserCharSize (2,1,2,1); OutTextXY (50,100,'Wide string');

Тип данных множество.

В некоторых задачах нас интересуют не характеристики данных, а лишь факт наличия или отсутствия этих данных во множестве себе подобных. В подобных ситуациях удобно пользоваться типом данных Множество (Set).

Тип SET – это множество всех подмножеств некоторого эталонного множества, которое в противовес подмножествам назовём полным. Например, множество гласных букв – это

15

Одесский колледж компьютерных технологий “СЕРВЕР”

подмножество множества всех букв. Какие-то элементы могут отсутствовать, поэтому значением переменной типа SET является подмножество, хотя бы и пустое подмножество. Множество может содержать 256 элементов. Все значения базового типа, образующие конкретные значения множественного типа, должны быть различны.

Для создания первоначального значения типа SET надо дать в скобках [ ] перечень элементов.

Тип SET описывают следующим образом:

Set of <Порядковый тип, исключая стандартные целые> Обычно для типа SET берут диапазон порядкового типа,

называемого базовым типом.

Константа типа SET записывается следующим образом: [<Список значений порядкового типа и поддиапазонов>];

порядок записи значений и поддиапазонов безразличен, например:

[3..11, 58, 17, 74..102, 21..37, 251].

Пример 1.

Var

S,T: Set of 1..5; {Эталоном является множество {1, 2, 3, 4, 5}} BEGIN

S:=[ ]; T:=[1, 3, 5] END.

Здесь полное множество – это воображаемое множество, отражаемое описанием типа SET. Переменная S типа SET получила значение «пустое множество»; переменная Т получила значение подмножества нечетных чисел. Оператором

Т:= [1.. 5];

можно было задать Т значение полного множества.

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

Var

CAlfa: set of ‘A’..’Z’

16

Одесский колледж компьютерных технологий “СЕРВЕР”

Operation: set of (Plus, Minus);

U233: set of 0..9;

C: set of char;

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

Сложение (объединение) множеств изображается знаком «+». Множество–результат сложения содержит все элементы исходных множеств без дублирования (напомним, элементы уникальны). Например, операция [3,5..7,9]+[2,3,6..8] дает результат [2,3,5..9], т.е. множество из 7 элементов.

Умножение (пересечение) множеств изображается знаком « ». Множество–результат умножения содержит лишь общие элементы исходных множеств. Например, операция

[3..7]*[6..10] дает результат [6,7],а операция [1,3,5,7]*[2,4,6] дает

[] – пустое множество.

При вычитании множеств в результирующем множестве остаются те элементы «уменьшаемого», которых нет в «вычитаемом». Например, операция [2,7,9] – [1..З,6..9] вполне допустима и дает пустое множество.

Попытка удаления элемента, которого нет или уже нет во множестве, в частности, элемента вне диапазона данного множества, «криминалом» не является. Часто возникает необходимость удаления одного элемента множества или добавления одного элемента. Специальной операции вычитания (сложения) нет, приходится удаляемый (добавляемый) элемент заключать в скобки [], т.е. изображать множество, состоящее из 1 элемента.

«Несимметричная» операция

<Элемент> IN <Множество>

позволяет установить факт наличия/отсутствия <Элемента> в указанном <Множестве>, возвращая True, если элемент имеется. Например, отношение 5 IN [1..3,7..11] имеет значение False (элемент 5 не предусмотрен данным конструктором множества).

Пример 2. Заполнение множества А введёнными с клавиатуры значениями.

17