Односвязные списки

Пример организации односвязного списка приведен ниже.

Type

Z=Record {комбинированный тип для данных}

a: String; {строковое поле}

b, c: Integer; {поле целых чисел}

d: Real {поле вещественных чисел}

end;

P=^S; {тип указатель записи базового типа S}

S=Record {базовый тип для указателей типа Р}

ls:P; {поле типа Р ссылки на следующую запись}

Dt:Z {поле типа Z записи данных}

end;

В этом примере типы Z и S введены для описания переменных - записей, содержащих в своих полях a, b, c, d данные, соответствующие описанным типам полей. P - тип указатель для динамических переменных базового типа S, т.е. значения переменных типа P будут адресами переменных типа S.

Наличие у комбинированной переменной типа S адресного поля ls типа P позволяет включать в состав записи ссылку на последующую запись и хранить таблицы в памяти машины в виде динамических списков связанных записей.

Var

Dt:Z; {запись данных}

Uz,U:P {указатели заглавного и текущего звеньев списка}