Записи

себя несколько полей – элементов разных типов (в том числе

и другие структуры).

Свойства:
автор (строка)
название (строка)
год издания (целое число)
количество страниц (целое число)

Задача: объединить эти данные в единое целое

Размещение в памяти

присваивание
if Book.pages > 200 then // сравнение
writeln(Book.author,

'.', Book.title); // вывод

Объявление (выделение памяти):

var Book: record
author: string[40]; // автор, строка
title: string[80]; // название, строка
year: integer; // год издания, целое
pages: integer; // кол-во страниц, целое
end;

название

запись

поля

Обращение к полям:

в операторах присваивания, где слева и справа от знака присваивания

используются имена записей одинакового типа.
Во всех остальных случаях оперируют отдельными полями записей.

Чтобы обратиться к отдельной компоненте записи, необходимо задать имя записи и через точку указать имя нужного поля, например:
str.fio, str.tel
Такое имя называется составным.

Можно говорить, например, о массивах и файлах, состоящих из записей.

Запись может быть полем другой записи.

присоединения
With.
Он позволяет заменить составные имена, характеризующие каждое поле,

просто на имена полей, а имя записи определить в операторе присоединения.

Формат оператора:

With <переменная–запись>
{, <переменная–запись>} do
<оператор> ;

присоединения
With.
Он позволяет заменить составные имена, характеризующие каждое поле,

просто на имена полей, а имя записи определить в операторе присоединения.

Формат оператора:

With <переменная–запись>
{, <переменная–запись>} do
<оператор> ;

Заголовок этого оператора открывает область действия "внутренних" имен полей записи, которые могут быть использованы как имена переменных.

эквивалентен оператору
With r1 do
with

r2 ...
with rn do
<оператор> .

: 1..31;
Month : 1..12;
Year : integer;
StudDoc : integer
end;
Var A

: Student;

Значение переменной A можно изменить операторами:

A.F1 := 'Иванов ';
A.F2 := 'Илья ';
A.F3 := 'Иннокентьевич ';
A.Day := 14;
A.Month := 9;
A.Year := 1976;
A.StudDoc := 123;

begin
F1 := 'Иванов ';
F2 := 'Илья ';
F3 := 'Иннокентьевич ';
Day

:= 14;
Month := 9;
Year := 1976;
StudDoc := 123;
end; { оператора with }

record
author: string[40];
title: string[80];

year: integer;
pages: integer;
end;

Books[1] ... Books[10]

...
end;
for i:=1 to N do
if aBooks[i].pages > 200

then
writeln(aBooks[i].author, '.',
aBooks[i].title);

Обращение к полям:

// одна запись
aBooks: array[1..N] of TBook; // массив
Объявление

типа:

type TBook = record
author: string[40]; // автор, строка
title: string[80]; // название, строка
year: integer; // год издания, целое
pages : integer; // кол-во страниц, целое
end;

Объявление переменных и массивов:

TBook – Type Book («тип книга») – удобно!

);
Book.year := 1800;
writeln( IsOld(Book) );
Процедура:
procedure ShowAuthor ( b: TBook );
begin

writeln ( b.author );
end;

Основная программа:

function IsOld( b: TBook ): boolean;
begin
IsOld := b.year < 1900;
end;

Функция:

{ связать с указателем }
Rewrite(F); { открыть

файл для запись }
writeln(F, Book); { запись }
for i:=1 to 5 do
writeln(aBook[i]); { запись }
Close(F); { закрыть файл }

Запись в файл:

}
Reset(F); { открыть для чтения }
Read(F, Book);

{ чтение }
for i:=1 to 5 do
Read(F, aBook[i]); { чтение }
Close(F); { закрыть файл }

«Пока не кончатся»:

count := 0;
while not eof(F) do begin
count := count + 1; { счетчик }
Read(F, aBook[count]); { чтение }
end;

пока не дошли до конца файла F
EOF = end of file

виде массива структур типа TBook (не более 100). Установить для

всех 2008 год издания и записать обратно в тот же файл.

type Tbook … ;
const MAX = 100;
var aBooks: array[1..MAX] of TBook;
i, N: integer;
F: file of TBook;
begin
{ прочитать записи из файла, N - количество }
for i:=1 to N do
aBooks[i].year := 2008;
{ сохранить в файле }
end.

type TBook … ;

полное описание структуры

0;
while not eof(F) and (N < MAX) do begin

N := N + 1;
read(F, aBooks[N]);
end;
Сlose(f);

Assign(f, 'books.dat'); { можно без этого }
Rewrite(f);
for i:=1 to N do write(F, aBooks[i]);
Close(f);

Сохранение:

чтобы не выйти за пределы массива

Пушкин';
pB^.title := 'Полтава';
pB^.year := 1990;
pB^.pages := 129;

Dispose(pB);
end.

New(pB);

выделить память под запись, записать адрес в pB

pB^

Dispose(pB);

освободить память

pB: ^TBook;

переменная-указатель на TBook

комбинация полей), по которому выполняется сортировка.
const N = 100;
var aBooks:

array[1..N] of TBook;
i, j, N: integer;
temp: TBook; { для обмена }
begin
{ заполнить массив aBooks }
{ отсортировать = переставить }
for i:=1 to N do
writeln(aBooks[i].title,
aBooks[i].year:5);
end.

downto i do
if aBooks[j].year > aBooks[j+1].year

then begin
temp := aBooks[j];
aBooks[j] := aBooks[j+1];
aBooks[j+1] := temp;
end;

вспомогательный массив указателей, при сортировке переставлять указатели.
До
сортировки:
После
сортировки:
Вывод результата:
for i:=1

to N do
writeln(p[i]^.title, p[i]^.year:5);

p[i]^

p[i]^

}
var p: array[1..N] of PBook;
begin
{ заполнение массива

записей}
for i:=1 to N do
p[i] := @aBooks[i];








for i:=1 to N do
writeln(p[i]^.title, p[i]^.year:5);
end.

for i:=1 to N-1 do
for j:=N-1 downto i do
if p[j]^.year > p[j+1]^.year then begin
temp := p[j];
p[j] := p[j+1];
p[j+1] := temp;
end;

вспомогательные указатели

меняем только указатели, записи остаются на местах

начальная расстановка