Обойтись без массива >Создать новый файл из чисел которые встречаются во всех трех файлах

[rootkot]

Всем добрый вечер!
Задача создать три файла А,В,С из чисел. Потом создать новый файл D из чисел которые встречаются во всех трех файлах. Числа в файле D не должны повторяться.
Как подправить код так что-бы обойтись без массивов.

uses crt;
var a,b,c,d:file of integer; p,q:array [1..100] of integer; i,j,n,r,m:integer; flg: boolean;

procedure show_file(f:file of integer);
var n:integer;
begin
     reset(f);
     while not eof(f) do
     begin
          read(f,n);
          write(n,' ');
     end;
     close(f);
     writeln;
end;

begin
     clrscr;
     randomize;
     assign(a,'a.dat');
     assign(b,'b.dat');
     assign(c,'c.dat');
     assign(d,'d.dat');
     rewrite(a);
     for i:=1 to 10 do write(a,random(10));
     close(a);
     rewrite(b);
     for i:=1 to 7 do write(b,random(15));
     close(b);
     rewrite(c);
     for i:=1 to 13 do write(c,random(10));
     close(c);
     writeln('Содержимое файла a.dat:');
     show_file(a);
     writeln('Содержимое файла b.dat:');
     show_file(b);
     writeln('Содержимое файла c.dat:');
     show_file(c);
     i:=1;
     reset(a);
     while not eof(a) do
     begin
          read(a,p[i]);
          inc(i);
     end;
     n:=i-1;
     close(a);
     j:=1;
     reset(b);
     while not eof(b) do
     begin
          read(b,r);
          for i:=1 to n do
          begin
               if p[i]=r then
               begin
                    flg:=false;
                    for m:=1 to j-1 do if q[m]=r then flg:=true;
                    if not flg then q[j]:=r else dec(j);
               end
               else j:=j-1;
               inc(j);
          end;
     end;
     n:=j-1;
     close(b);
     j:=1;
     reset(c);
     while not eof(c) do
     begin
          read(c,r);
          for i:=1 to n do
          begin
               if q[i]=r then
               begin
                    flg:=false;
                    for m:=1 to j-1 do if p[m]=r then flg:=true;
                    if not flg then p[j]:=r else dec(j);
               end
               else j:=j-1;
               inc(j);
          end;
     end;
     n:=j-1;
     close(c);
     rewrite(d);
     for i:=1 to n do write(d,p[i]);
     close(d);
     writeln('Содержимое файла d.dat:');
     show_file(d);
end.

[Paster Fob]

примените множества.

[Serge_Bliznykov]

Как подправить код так что-бы обойтись без массивов.

в связи с тем, что в задании не сказано, что числа в файлах ограничены каким-то диапазоном, и что числа в этих файлах как-то упорядочены, то мне представляется только один вариант решения без использования чтения всех чисел в память (в т.ч. динамические структуры):
типизированные файлы являются файлами ПРЯМОГО доступа, поэтому обращение к массивам вполне можно заменить позиционированием в нужном файле и чтением нужного элемента!

т.е. вместо p[i] (в данном коде в массиве P находились элементы файла A) можно написать:

  seek(a, i-1);
  Read(a, elementA);

так и с другими элементами других файлов.


Возникает только один вопрос - а ЗАЧЕМ отказываться от массивов?!!
Для того, чтобы программу, выполняющую X чтений превратить в монстра, выполняющего X^3 позиционированний в файлах и X^3 чтений? Чтобы программа работала подольше и получше убивала жесткий диск?!!! не понимаю!