Линейные списки, помогите решить!! Опции

[Masluk]

Народ, помогите написать прогу:

Предметный указатель организован как линейный список.
каждая компонента содержит слово и номера страниц на которых это слово встречается. Кол-во номеров страниц относящихся к одному слову может лежать в интервале от одного до десяти.
Составить прогу, которая обеспечивает
-начальное формирование предметного казателся
-вывод предметного указателя
-вывод номеров страниц для заданного слова

очень нужно, а сам икак не врублюсь как это сделать!

[volvo]

Как со списками работать вообще знаешь?

FAQ: Динамические Структуры Данных: Списки смотрел?

В чем конкретно заключается проблема? Что именно непонятно?

[Гость]

Да, Faq посмотрел, спасибо
у меня затруднения с последним пунктом задания...

[volvo]

Пройти по всему списку, если слово, хранящееся в текущем элементе, совпадает с заданным - вывести номера страниц... Как у тебя структура списка задана?

[Гость]

type
kolstr=array[1..10] of real;
point= ^preduk;
preduk=record
slovo: string[20];
str:kolstr;
end;
 

так можно? или я туплю?

[volvo]

Лучше - так:

type
  pageArray = array[1 .. 10] of Integer; { Ну зачем страницы - вещественные? }
  point= ^preduk;
  preduk=record
    slovo: string; { Каждый элемент списка содержит только одно слово, по условию }
    pages: pageArray; { str - название функции в Паскале, лучше его не использовать }
    next: point;
  end;

[Masluk]

ага...ладно, спасибо

[Гость]

чето меня глючит...у меня чето не выходит добавлять элементы в список...

[volvo]

var
  p, first, last: point;

  first := nil; last := nil; { перед началом работы }
...
  new(p);
  p^.slovo := ... ; { слово, которое надо внести }
  for i := 1 to n_pages do
    p^.pages[i] := ... ; { внести страницы в компоненту списка }
  p^.next := nil;

  if first = nil then first := p
  else last^.next := p;
  last := p;
...

Приведенный выше фрагмент должен добавлять к списку одну компоненту... Повторяй это столько раз, сколько слов нужно внести в список, и будет тебе счастье...