Работа с записью в файлы, циклы, сравнение., Укажите на мою ошибку Опции

[Bulkin]

Всем привет!
Есть условия:
В один файл (F) пишем 5 чисел. В другой (G) другие 5 чисел. Пример: 12345 и 34567

Потом читаем их из этих файлов и ищем совпадения, те которые совпали пишем в файл (H1) которые не совпали пишем в другой файл (H2).

Мой результат: в H1 пишет цифру 1, в H2 34567.

Где я ошибься!?

Тело программы:

Program Zapis_i_chtenie;
uses crt;
var
    n,i:integer;
    fs,gs:integer;
    f,g,h1,h2:text;
begin
writeln('Vvedite 5 cyfr dlya F: ');
assign(f,'d:\f.txt');
rewrite(f);
append(f);
for i:=1 to 5 do
    begin
         write('->');
         readln(n);
         writeln(f,n);
    end;
close(f);
Writeln('Vvedite 5 cyfr dlya G: ');
assign(g,'d:\g.txt');
rewrite(g);
append(g);
for i:=1 to 5 do
    begin
         write('->');
         readln(n);
         writeln(g,n);
    end;
close(g);
assign(f,'d:\f.txt');
assign(g,'d:\g.txt');
assign(h1,'d:\h1.txt');
assign(h2,'d:\h2.txt');
reset(f);
reset(g);
rewrite(h1);
rewrite(h2);
while not EOF(f) do
      begin
          Readln(f,fs);
      begin
         while not EOF(g) do
        begin
           Readln(g,gs);
           if fs=gs
           then writeln(h1,gs)
           else writeln(h2,gs);
        end;
        end;
        end;
close(f);
close(g);
close(h1);
close(h2);
end.

Сообщение отредактировано: Bulkin - 24.11.2010 10:30

[Lapp]

Вот, бери.
Только прошу: разберись.
Что непонятно - спрашивай.

Program Zapis_i_chtenie;
uses crt;
var
    n,i:integer;
    fs,gs:integer;
    f,g,h1,h2:text;
    b: boolean;
begin
  writeln('Vvedite 5 cyfr dlya F: ');
  assign(f,'f.txt');
  rewrite(f);
  for i:=1 to 5 do
      begin
           write('->');
           readln(n);
           writeln(f,n);
      end;
  close(f);
  Writeln('Vvedite 5 cyfr dlya G: ');
  assign(g,'g.txt');
  rewrite(g);
  for i:=1 to 5 do
      begin
           write('->');
           readln(n);
           writeln(g,n);
      end;
  close(g);
  assign(h1,'h1.txt');
  assign(h2,'h2.txt');
  rewrite(h1);
  rewrite(h2);
  reset(f);
  while not EOF(f) do begin
    Readln(f,fs);
    reset(g);
    b:=true;
    while b and not EOF(g) do begin
      Readln(g,gs);
      if fs=gs then begin
        b:=false;
        writeln(h1,gs)
      end
    end;
    if b then writeln(h2,fs)
  end;
  reset(g);
  while not EOF(g) do begin
    Readln(g,gs);
    reset(f);
    b:=true;
    while b and not EOF(f) do begin
      Readln(f,fs);
      b:=fs<>gs;
    end;
    if b then writeln(h2,gs)
  end;
  close(f);
  close(g);
  close(h1);
  close(h2);
end.

А за деньги - в раздел "Задачи на заказ"..

[Гость]

Спасибо за решение. Все работает.

Прошу извинить меня за то, что 2 раза нарушил правила Форума.