Задача на Список, Помогите пожалуйста Опции

[Bandit]

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

Что -то я никак не могу сообразить. Помогите пожалуйста, если не трудно. Заранее, большое спасибо!!!!

Сообщение отредактировано: Bandit - 12.12.2007 20:30

[klem4]

разберешься ?

type
  PTListElem = ^TListElem;

  TListElem = record
     data: String;
    count: Integer;
     next: PTLIstElem
  end;

  PTList = ^TList;

  TList = object
    head, last: PTListElem;

    constructor Create;
    destructor  Free;

    function Empty: Boolean;

    procedure Push(const value: String);
    procedure  Pop(var value: TListElem);

    procedure PrintList;
  end;

constructor TList.Create;
begin
  head := nil;
  last := nil;
end;

destructor TList.Free;
var
  T: PTListElem;
begin
  while not Empty do begin
    T := head;
    head := head^.next;
    dispose(T);
  end;
end;

function TList.Empty: Boolean;
begin
  Empty := head = nil;
end;

procedure TList.Pop(var value: TListElem);
var
  T: PTListElem;
begin
  if not Empty then begin
    T := head;
    head := head^.next;
    value := T^;
    dispose(T);
  end;
end;

procedure TList.Push(const value: String);
var
  R, first: PTListElem;
begin
  first := head;

  while (head <> nil) and (head^.data <> value) do
    head := head^.next;

  if head <> nil then begin
    inc(head^.count);
    head := first;
  end else begin
    new®;

    R^.data  := value;
    R^.count := 1;
    R^.next  := nil;

    head := first;

    if Empty then begin
      head := R;
      last := head;
    end else begin
      last^.next := R;
      last := R;
    end;
  end;

end;

procedure TList.PrintList;
var
  T: TListElem;
begin
  while not Empty do begin
    Pop(T);
    writeln(T.data, ': ', T.count);
  end;
end;

var
  list: PTList;

begin
  new(list, Create);

  list^.Push('asd');
  list^.Push('asd');
  list^.Push('123');
  list^.Push('qwerty');
  list^.Push('asd');
  list^.Push('123');
  list^.Push('poiuytrewq');
  list^.Push('asd');

  list^.PrintList;

  dispose(list, Free);
end.

[Bandit]

Спасибо, попробую разобраться. Но, когда попробовал запустить выдал ошибку.

Эта ошибка как я заметил, появляется в крупных программах. Что это за ошибка и как от неё избавиться!!??

Сообщение отредактировано: Bandit - 13.12.2007 1:30