Работа с файлами

[ksu04061992]

Очень прошу, помогите решить задачу!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!

Даны числовые с целыми компонентами файлы f и g. Запишите в файл h все совпадающие компоненты файлов f и g.

[Stilet]

Динамическим массивом решать можно? Что препод говорит? Какая методика решения?

[ksu04061992]

Методика решения любая, главное найти совпадающие компоненты в обоих файлах и записать их в другой

[Stilet]

Ну показывай что не получается. Будет время - завтра посмотрю. Или кто из форумчан если сегодня свободен глянет.

[Serge_Bliznykov]

я бы сделал вложенные циклы. пусть это не очень эффективно, зато просто и надёжно.

внешний цикл по одному из файлов (например по f), во внутреннем цикле каждый раз бы делал seek(f, 0) - на начало файла g и перебирал его элементы, сравнивая с текущим элементом из файла f)
если совпали - записываем элемент в файл h и прерываем внутренний цикл.
примерно так (это код перебора и записи полностью):

Reset(g);
Reset(f);
Rewrite(h);
while Not eof(f) do begin
   Read(f, m);
   seek(g, 0);
   while Not Eof(g) do begin
      Read(g, k);
      if (m=k) then begin
         Write(h, m);
          Break;
      end;
   end;
end;
Close(h);
Close(f);
Close(g);

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

[Sayto]

program zd1;
var
   f1,f2,f3,i,j,k,m:integer;
   g,f:text;
   h:text;
   ff,gg,hh:array [1..100] of integer;
begin
     assign(f,'file1.txt');
     assign(g,'file2.txt');
     assign(h,'file3.txt');
     reset(f);
     reset(g);
     rewrite(h);
     f1:=0;
     f2:=0;
     f2:=0;
     while not EOF(f) do begin
           inc(f1);
           read(f,ff[f1]);
     end;
     while not EOF(g) do begin
           inc(f2);
           read(g,gg[f2]);
     end;
     for i:=1 to f1 do
         for j:=1 to f2 do
             if(ff[i]=gg[j])then writeln(h,ff[i]);
     {reset(h);
     while not EOF(h) do begin
           inc(f3);
           read(h,hh[f3]);
     end;
     m:=f3-1;
     for i:=1 to m do begin
         for j:=i+1 to m do begin
             if (hh[i]=hh[j]) then begin
             for k:=i to m-1 do
                 hh[k]:=hh[k+1];
                 m:=m-1;
             end;
         end;
     end;
     rewrite(h);
     for i:=1 to m do writeln(h,hh[i]);}
     close(f);
     close(g);
     close(h);
end.

Можно так если не хочешь чтобы в записи были повторы разкоменти то что в скобках

[ksu04061992]

Спасибо всем большое за помощь !