Program hesh;
Var
i,B: integer;
s: string[10];
{Хеш-функция с возвращаемым значением типа Integer}
Function h(x: string[10]): integer;
Var i, sum: integer;
Begin
sum:=0;
Ffor i:=1 to 10 do
sum:=sum+ord(x[i]);
h:=sum mod B; {Возвращаемое значение}
End;
{Вызывающая программа}
Begin
Writeln ('Введите число классов В');
Readln(B);
Writeln ('Введите ключ');
Readln (S);
Writeln (h(s));
End.
Лабораторная работа №2
Цель работы: научиться строить словари на базе линейных списков и открытого хеширования данных.
Порядок выполнения работы
1. Ознакомиться с теоретической частью лабораторной работы.
2. Выполнить практическое задание.
3. Оформить отчет по лабораторной работе.
Задание. На основе динамических списков необходимо реализовать словарь. Основные операции, выполняемые над данными словаря: поиск, вставка и удаление. В сочетании со списками для построения словарей удобно использовать открытое хеширование данных, позволяющее фиксировать время выполнения операторов над словарем, а также сделать потенциально бесконечным пространство для хранения данных. Тематическое содержание словаря может быть произвольным.
ПОСТРОЕНИЕ ПРИОРИТЕТНЫХ ОЧЕРЕДЕЙ
И ОБРАБОТКА ДАННЫХ НА ИХ ОСНОВЕ