21.2. Записи с вариантами

Часто необходимы записи с близкими, но не одинаковыми структурами. Для таких случаев используется тип-запись с вариантами:

Вариантная часть:

Альтернатива:

В круглых скобках список полей альтернативы (это ветвь вариантной части).

Для всех ветвей вариантной части выделяется одна и та же область памяти, где могут разместиться поля любой ветви. Идентификатор (дискриминант) определяет, какая из ветвей в данный момент активна. Но система не контролирует, к активным ли полям обращается программа. Ответственность за правильность использования полей ложится на программиста. Во избежание ошибок рекомендуется для обработки вариантной части использовать оператор-переключатель с селектором значением дискриминантного поля.

Пример 4.Описание типа для хранения параметров любой из трех фигур: треугольника, прямоугольника или окружности:

type t_fig_type=(triangle, rectangle, circle);

t_figure = record

s : real; {площадь}

p : real; {периметр }

case fig_type:t_fig_typeof

triangle : (a, b, c: real); {стороны треугольника}

rectangle : (d1, d2: real); {стороны прямоугольника}

circle : (r : real){радиус окружности}

end;

Запись описанного типа содержит два фиксированных поля (s иp), полем-дискриминантом является вид фигуры (fig_type).Это поле может принимать одно из трех значений, поэтому вариантная часть содержит три ветви.

Пример 5. Описание процедуры инициализации переменной типа t_figure. Поля вариантной части вводятся с клавиатуры, а фиксированные поля вычисляются.

Procedure init_fig(var f:t_figure);

varn:byte;

begin write(‘Введите вид фигуры: 1треуг., 2прямоуг., 3окружность’);

read(n);

with f do

begin

fig_type:=t_fig_type (n-1);

case fig_typeof

triangle : begin read(a, b, c );

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

p:=2*p

end;

rectangle : begin read(d1, d2);

p:=(d1+d2)*2;

s:=d1*d2

end;

circle : begin read(r);

p:=2*Pi*r;

s:=Pi*r*r

end

end

end;

22. ПОБИТОВЫЕ ОПЕРАЦИИ

ТР позволяет выполнять побитовые операции над битами целых типов, которые используются при работе с двоичными представлениями целых чисел или на низком уровне, например, с видеопамятью.

Название операции	Запись на ТР	Приоритет
Побитовое отрицание	not m	1
Побитовая конъюнкция	n and m	2
Побитовая дизъюнкция	n or m	3
Побитовое исключающее или	n xor m	3
Сдвиг влево	n shl i	2
Сдвиг вправо	n shr i	2

Побитовое отрицаниеинвертирует биты целого.nоt 1=0, not 128=127.

Для обнуления (сбрасывания) определенных битов целого числа выполняют побитовую конъюнкцию(побитовое умножение) данного числа с числом, называемым маской. Маска содержит нули только в тех битах, которые нужно сбросить, а в остальных битахединицы. Например, при выполнении оператораx:=x and $FF00 сбрасывается младший байт двухбайтового целого ($FF00маска); приn:=n and ($FF8) сбрасывается третий бит однобайтового целого. Биты нумеруются с нуля справа налево.

Побитовую дизъюнкциюможно использовать для установки единиц в определенных битах. При этом маска должна содержать единицы в устанавливаемых битах и нулив остальных. Например, оператор

n:=n or (32+8)

установит 3-й и 5-й биты.

Побитовое исключающее иливыполняет сложение соответствующих битов операндов по модулю 2 без переноса 1 в следующий разряд. Важное свойство операцииxor:n xor m xor m=n.

При сдвиге влевобиты левого операнда сдвигаются влево на число разрядов, равное значению правого операнда. Биты, выходящие за границы типа левого операнда пропадают, а освободившиеся разряды слева заполняются нулями. Сдвиг влевоn shl iэквивалентен умножениюn на 2ⁱ, если старшие разряды не вышли за левую границу n.

При сдвиге вправобиты левого операнда сдвигаются вправо на число разрядов, равное значению правого операнда. Биты, выходящие за правую границу, пропадают. Освобождающиеся слева разряды беззнакового целого заполняются нулями, а знаковогозначением старшего (знакового) бита.

Сдвиг вправо n shr i эквивалентен целочисленному делению nна 2ⁱв арифметике с положительными остатками. Например, n shl5=n div32.

Опишем процедуру вывода двоичного представления данного целого беззнакового числа:

Procedure WriteBinary(n:word);

var i:byte;

begin for i:=15 downto 0

write(n shl(15-i) shr 15)

end;

Поменять местами старший и младший байты целого неотрицательного числа можно с помощью оператора n:=( n shl 8 ) or (n shr 8 ).