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

UptoLike

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

204
{ввод массива записей прямоугольников}
write('Введите количество прямоугольников n=');
readln(n);
for i:=1 to n do
ReadRect(r[i]);
...
{Включение графического режима}
...
{показ массива прямоугольников}
for i:=1 to n do
ShowRect(r[i]);
...
Хранение вариантных записей в памяти компьютера
Объем памяти, занимаемый вариантной записью, можно вычислить по
формуле:
sizeof(вариантная_запись) = sizeof(фиксированная_часть) + sizeof(поле-признак)
+ Max{sizeof(альтернативная_группа1), sizeof(альтернативная_группа2) ..
sizeof(альтернативная_группаN)}.
То есть, объем занимаемый вариантной записью, вычисляется как
сумма всех объемов, занимаемых полями фиксированной части, плюс
объем, занимаемый полем-признаком и плюс максимальный из объемов,
занимаемых полями альтернативных групп.
Для примера рассчитаем объем, занимаемый одной записью типа
TRect. Сначала рассчитаем объем, занимаемый всеми полями
фиксированной части:
sizeof(фиксированная_часть)= sizeof(Word)*4 + sizeof(TColor) =
= 2*4+1 = 9 байт
Рассчитаем объем, занимаемый полем-признаком:
sizeof(поле-признак) = sizeof(FigureType) = 1 байт
Рассчитаем объемы, занимаемые альтернативными группами:
sizeof(альтернативная_группа FTRect) = 0