Cтруктура данных для построения предметного указателя (через связанные списки). Опции

[Jabbson]

Добрый день.

Задание следующее:
Разработать структуру данных для построения предметного указателя.
Осуществить поиск, сортировку, редактирование.

Итак, предметный указатель, как я понимаю, - это то, что мы, зачастую, имеем в концах книг и имеет структуру:

{СЛОВО} {СТРАНИЦЫ, ГДЕ ЭТО СЛОВО ВСТЕРЧАЕТСЯ}

Реализацию я вижу такую:
(я знаю, это задание уже можно найти почти готовым, но я хочу написать принципиально свое, потому как очень интересно разобраться в принципах динамических структур данных).

Есть объявления типа:

type
 
page_mas = array [1..10] of word; {массив слов, одно и то же слово} 
                                  {может встречаться на 10 страницах}
 
LINK_REC = ^REC;           {указатель на запись со словом}
REC = record                   
    SLOVO:       string[15]; {Слово}
    PAGE:        page_mas;  {страницы на которых слово встречается}
    NEXT:        LINK_REC;   {указатель на следующую запись со слово}
    end;
 
LET = record
    CAPITAL:     char;         {Буква, на которую слово начинается}
    FIRST:       LINK_REC;    {указатель на первое слово на эту букву}
    end;
 
lett_mas = array [1..27] of LET; {массив из записей с буквами алфавита}

Что я делаю дальше.

Заполняю массив за записей с буквами собственно теми самыми буквами:

for x:=65 to 90 do
  begin
    letters[x-64].capital:=chr(x); letters[x-64].first:=nil;
  end;

После этого он представляет собой следующее:
letters: (('A', nil), ('B', nil), ('C', nil)...('Z', nil).

После этого я перехожу к непосредственно заполнению и вот тут у меня возникает проблема.

Выглядит начало примерно так:

clrscr;
 
writeln('MENU:');
writeln;
writeln('1 - ADD');
writeln('2 - SEARCH');
readln(menu);
 
case menu of
1:begin
  clrscr;
 
  {считываю новое слово в запись z}
  write('new word: '); 
  read(z.slovo);
 
  {вычисляю номер буквы алфавита и в будущем ячейки массива букв}
  let_num:=ord(z.slovo[1])-64; 
 
  {заполняю массив страниц}
  write('How many pages contain this word: ');
  readln (pag_num);
 
  for i:=1 to pag_num do
    begin
      write('Page number: ');
      readln(page);
      z.page[i]:= page;
    end;
 
  z.next:=nil;
 
  Add(LR,z); {вызываю функцию добавления записи к списку}
 
  end;
end;
until menu=3;

Подскажите как примерно должна выглядеть процедура Add, чтобы:
( как я это вижу, может все гораздо проще )

* Найти по let_num в массиве lett_mas ячейку с буквой, на которую начинается слово.
* Если ячейка^.first = nil, то создать новую ссылку на запись, положить туда значение z и сделать чтобы ячейка^.first теперь сслылалась на это место.
* Если же ячейка^.first <> nil, то идти по этому списку до тех пор пока не дойдем до конца и вставить наше z там.


Конечное видение примерно как на приложенной картинке.

Заранее спасибо.

[volvo]

Jabbson
К сожалению, твой вариант программы только что вылетел у меня с ошибкой. Как повторить: введи либое слово и несколько страниц, на которых оно встречается, и запусти поиск по страницам. Как только ты попытаешься

(*------------Procedura poiska2--------*)
procedure SearchByPage(L:LinkRec; P:word);
begin
  for i:= 1 to 10 do if L^.Page[i] = P then write(L^.slovo, ' '); { <--- Вот в этом самом месте }
  repeat
    L:=L^.next;
    for i:= 1 to 10 do if L^.Page[i] = P then write(L^.slovo, ' ');
  until L^.next=nil;
end;

обратиться к L^.Page для незаполненного элемента массива, получишь вылет. За разыменование нулевого указателя... Перед тем, как начинать обработку списка, убедись, что он не пуст... Либо просто перепиши эту процедуру:

procedure SearchByPage(L:LinkRec; P:word);
var i: integer; { <--- В цикле лучше использовать локальную переменную ... }
begin
  while L <> nil do
  begin
    for i:= 1 to 10 do if L^.Page[i] = P then write(L^.slovo, ' ');
    L := L^.next;
  end;
end;

, теперь даже если список пуст - ошибки не будет... Внимательней с такими вещами.

Аналогичным образом я бы переделал и процедуру Print, там тоже никому не нужное дублирование кода.

P.S. Еще одно предупреждение, о котором прямо говорит Free Pascal при компиляции твоего кода - это то, что ты не инициализировал массив empty_pagemas. Не надо так делать... Тебе же будет спокойнее, если он будет инициализирован нулями. Потому что это - потенциальное место для ошибки. Представь себе, ты хочешь добавить еще функционал к данной программе, и все, что у тебя написано сейчас, оформляешь, как отдельную процедуру. Приплыли... Как процедура это работать не будет. Именно потому, что empty_pagemas не был инициализирован нулями (локальные переменные не обнуляются, только глобальные).

Как же иногда не хватает возможности сделать так:

   empty_pagemas: constant page_mas := (others => 0);

в Паскале, чтоб не заниматься инициализацией в RunTime, а сделать это еще во время компиляции...