Поиск совпадений

[KillJoy]

Имеются 2 файла формата *.txt. В каждом из них записаны шестизначные числа (каждое с новой строки). Нужно подсчитать количество чисел, имеющихся в обоих файлах.

[Serge_Bliznykov]

Нужно подсчитать количество чисел, имеющихся в обоих файлах.

Одинаковых в обоих файлах? Или уникальных? Или что надо то?!
И ещё, в каждом файле могут быть повторы?

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


HINT. Именно чистый Pascal ?
Если бы можно было задействовать Delphi, то испольуя TStringList в пару/другую строчек кода можно решить подобные задачи!

[TinMan]

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

Или что надо то?!

Я думаю, надо количество общих чисел. То есть тех, которые встречаются и в первом, и во втором файле (не считая повторы).

KillJoy, если я прав, то решать можно примерно вот так:

var
  f,g: text;
  a,b,i,j,n: LongInt;

begin
  Assign(f,'dat1.txt');
  Assign(g,'dat2.txt');
  n:= 0;
  i:= 0;
  Reset(f);
  while not EoF(f) do begin
    ReadLn(f,a);
    Inc(i);
    Reset(f);
    j:= 0;
    repeat
      ReadLn(f,b);
      Inc(j);
    until a=b;
    if i=j then begin
      Reset(g);
      while not EoF(g) do begin
        ReadLn(g,b);
        if a=b then begin
          Inc(n);
          WriteLn(a); {промежуточная печать совпадающих чисел, убрать в конечном варианте}
          break
        end
      end;
    end
    else for j:=j to i-1 do ReadLn(f)
  end;
  Close(f);
  Close(g);
  WriteLn('найдено одинаковых чисел: ',n);
  ReadLn
end.