Однонаправленный линейный список, Нужно выбросить из файла F1 слова, входящие в файл F2 Опции

[Тёмный Эльф]

А можно ли составить два спика в одной программе? Один список будет составляться по данным файла F1, а другой - файла F2? Нужно ли для этого отдельно описать второй список в TYPE?
Или, если так нельзя, то как можно прочитать файл F2, если известно заранее, что он состит из строк, но неизвестно их количество? Нужно ли делать это через запись или есть другие способы?

Сообщение отредактировано: Тёмный Эльф - 18.12.2006 23:56

[Bokul]

А можно ли составить два спика в одной программе?

Да хоть 16 тысяч..

Нужно ли для этого отдельно описать второй список в TYPE?

Нет. Просто делаешь две переменные типа твоего списка и работаешь с ними по отдельности

Или, если так нельзя, то как можно прочитать файл F2

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

[Тёмный Эльф]

Объясните, пожалуйста. Немного не догоняю. Вот я составляю список по данным файла «DAN.inp». Но мне нужно проверить, а если ли в этом файле такие же слова, как и в файле «Dan1.inp», например. Нужно ли мне нижеприведенную процедуру сделать аналогично для второго файла? Или это делается другим способом?

Код

uses crt;
Type
next=^elem;
Elem=RECORD
     EL:string;
     Sled:next;
     END;
VAR
Uk1:next;


Procedure p1(var p:next);
var
m:next;
F1:text;
BEGIN
  Assign(F1,'DAN.inp');
  Reset(f1);
  Assign(output,'res.out');
  rewrite(output);
New(m);
New(m^.sled);
p:=m;
Readln(f1, m^.el);
m^.sled:=nil;
while not EOF(f1) do
begin
New(m^.sled);
m:=m^.sled;
Readln(f1, m^.el);
m^.sled:=nil;
End;
Close(f1);
m:=p;
While m<>NIL do
Begin
Writeln(m^.el);
m:=m^.sled;
End;
end;

Сообщение отредактировано: Тёмный Эльф - 19.12.2006 0:27