Шпаргалка: Последовательные таблицы

Будем рассматривать неотсортированные таблицы.

K - количество элементов в таблице

N - длина вектора представления элементов таблицы

Векторное представление:

type элемент = record key ... body ...;

таблица = array [1..N] of элемент

end

key=...

body=...

Время поиска K/2

Списковое представление:

type элемент = record key... body ...;

связь=элемент;

procedure вставить (var table:таблица; var ключ:key; тело:body)

begin

if последний>=N then write(‘нет места’) else begin

последний:=последний+1;

table[последний].key:=ключ;

table[последний].body:=тело;

end;

with table[последний] do

key:=ключ;

body:=тело;

end

end

Предполагаем, что длина ключа и тела одна и та же.

procedure изменить(var table:таблица; var последний:integer)

var i,j:integer;

begin

--> ЧИТАТЬ ПОЛНОСТЬЮ <--