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

UptoLike

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

Рубрика:

195

Работа с массивом записей

Если записи объединены в массив, то обращение к каждой из них

производится, как и к обычному элементу массива (указанием имени

массива и индекса в квадратных скобках), а к полям записи – через точку

и имя поля.

Пример: Введем с клавиатуры массив окружностей

Var

N: Byte;

A:Array[1..10] of Tcircle;

I:Byte;

begin

Read(n);

For i:=1 to n do

Begin

Read(a[i].Center.X);

Read(a[i].Center.Y);

Read(a[i].R);

Read(a[i].Color);

End;

Работа с файлом записей

Как уже было сказано выше, записи невозможно целиком (не по

полям) ввести с клавиатуры и вывести на экран. Зато записи можно

целиком писать в типизированный файл записей и читать из него.

Пример 1: Сохраним введенный массив окружностей A (смотри

пример выше) в файле с именем «circles.dat»

Var

…

F:file of TCircle;

…