Работа со списками - дан файл-словарь, содержащий слова из исходного файла в алфавитном порядке.

[masi444]

дан файл-словарь, содержащий слова из исходного файла в алфавитном порядке. Если слова в тексте повторяются несколько раз, то в словарь его записать только один раз.
может я чего не понимаю... я составила задачу, но, видимо, это лишь малость того, что нужно.
задачу надо написать со списками. т.е.(как я поняла) все эти файлы,слова нужно написать через список.

var f: text; 
i,j,k: byte; 
st: array [1..255] of string; 
r: array [1..255] of boolean; 
{работаем с файлом: открываем, читаем, смотрим и тд}
begin
assign(f,'tmp.txt'); 
reset(f); 
repeat 
inc(i); 
readln(f,st[i]); 
until eof(f); 
{далее ищем повторяющиеся слова и удаляем, оставляя только одно}
for j:=1 to i-1 do 
for k:=j+1 to i do 
if st[k]=st[j] then begin 
r[k]:=true; 
end;
close(f); 
rewrite(f); 
for i:=1 to i do 
if (st[i]<>' ') and (r[i]=false) then writeln(f,st[i]); 
close(f); 
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[eoln]

Не-не-не. Массивы приплетать не надо, нужны списки. Циклы различные не нужны. Т.к. слова по алфавиту, то достаточно при чтении запоминать последнее уникальное слово и если при следующих чтениях оно повторяется, то не вносить его в список.
http://programmersforum.ru/showthread.php?t=222328 - тут похожий пример чтения из файла в список

В поиске по форуму можно найти много разных примеров

[masi444]

оо спасибо огромное! буду что-то пытаться

[Serge_Bliznykov]

Сообщение от eoln

Массивы приплетать не надо, нужны списки. Циклы различные не нужны. Т.к. слова по алфавиту, то достаточно при чтении запоминать последнее уникальное слово и если при следующих чтениях оно повторяется, то не вносить его в список.

Частично - согласен. Действительно, раз слова упорядочены по алфавиту, то хранить нужно одно крайнее слово.
Но списки, как и массивы - здесь не нужны.

цикл, пока не конец исходного файла
    Прочитали слово, если оно уникально - записали в выходной файл. 
переход к началу цикла.

и всё

[Poma][a]

Серж, я прально понимаю, что Вы предлагаете такой вариант

while no eof do begin
         читаем строку
         парсим
         if t <> word then begin
              vocab[count] := word;
              t := word
         end
end;

[Serge_Bliznykov]

Серж, я прально понимаю, что Вы предлагаете такой вариант

нет, всё ещё проще.
во-первых, никакого парсинга не нужно - в исходном файле каждое слово в отдельной строке, через ReadLn(f, s) его TC прекрасно считывает.
во-вторых, массив вообще не нужен.
я предлагаю такой вариант.

var f, g: text;
  OneWord, PrevWord: string;
begin
  assign(f, 'tmp.txt');
  reset(f);
  if eof(f) then begin
    WriteLn('Исходный файл пуст! Делать тут нечего. ');
  end
  else begin
    assign(g, 'tmp$$.$$$');
    rewrite(g);

    readln(f, PrevWord);
    {первое слово уникально в любом случае, поэтому
          мы его сразу сохраняем в выходной файл}
    writeLn(g, PrevWord);

    while not eof(f) do begin
      readln(f, OneWord);
      if OneWord <> PrevWord then begin
          PrevWord := OneWord;
          writeLn(g, PrevWord)
      end;
    end;
    close(g);

    {
      при желании можно удалить исходный файл tmp.txt
      и переименовать файл tmp$$.$$$ в tmp.txt
     }


    WriteLn('Словарь успешно создан.');
    WriteLn;

  end;
  close(f);
  WriteLn('Нажмите Enter для выхода из программы.');
  readln;
end.

Сообщение от masi444

задачу надо написать со списками.

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

[masi444]

Оо какие вы все добрые, спасибо огромное! Но я вам буду в n-ой степени благодарна, если напишите программу так, как она должна выглядеть с пояснением. Я даже от большой радости монету кину на телефон тому, кто напишет

[Serge_Bliznykov]

Но я вам буду в n-ой степени благодарна, если напишите программу так, как она должна выглядеть с пояснением.

Погодите-ка.. Что значит - "как она должна выглядеть" ?!
Кто же это может знать?!
Условие, насчёт того, чтобы использовать списки - оно обязательное?!
Почему Вы не хотите немножечко-немножечко напрячься и сделать данную (достаточно простую задачу) самостоятельно?

Я даже от большой радости монету кину на телефон

[masi444]

Для кого-то простая, а для кого-то не очень
На счет условия со списками - да, обязательно. Нужно сделать так, как Вы и писали раньше: "Нужно формировать односвязный список и помещать исходные слова в этот список."
я так понимаю это должно быть правильно:

type
     PMyChar=^TMyChar;
     TMyChar=record;
       inf: char;
       next: PMyChar;
    end;

var
   f: file of char;
   c:char;
   p,head:PMyChar;
{чтение из файла в список}
begin
    assign(f,'tmp.txt');
    reset(f);
    read(f,c);
    new(p);
    p^.next:=nil;
    p^.inf:=c;
    head:=p;
    while not eof(f) do begin
    read(f,c);
    new(p^.next);
    p:=p^.next;
    p^.next:=nil;
    p^.inf:=c;
end;
close(f);

{далее надо пройтись по списку и удалить лишние слова}

а вот как это "далее" записать...

[Serge_Bliznykov]

я бы рекомендовал в списке хранить не буквы, а строки (хотя, конечно, это решение имеет некоторые недостатки):

type
     PMyWord=^TMyWord;
     TMyWord=record;
       inf: string[255]; {максимальная длина слова 255 байт}
       next: PMyWord;
    end;

и заполнять список очень просто так, чтобы в нём сразу не было повторов:

var
  head,p : PMyWord;
  sprev, scur : string;
begin
   assign(f,'tmp.txt');
   reset(f);

   new(head);
   read(f, sprev);
   head^.inf := sprev;
   head^.next:=nil;
   p:=head;
 
   while not eof(f) do begin
      readln(f, scur);
      if scur<>sprev then begin
        sprev := scur;
        new(p^.next);
        p^.next^.inf := sprev;
        p^.next^.next:=nil;
        p:=p^.next;
      end;
    end;
 
    {сохранить список в файл:}
    Rewrite(f);
    p:=head;
    while p <> nil do
    begin
       writeln(f, p^.inf);
       p:=p^.next;
    end;
    Close(f);

    {а вот тут ещё неплохо бы очистить занимаемаемую списком память}
       
end.

писал прямо на форуме. за ошибки прошу не винить..