Осуществить слияние двух файлов в третий, используя два файла с целыми числами (на Паскале)

[Florence]

Есть 2 текстовых файла с целыми числами, допустим в первом записаны числа 1 2 7 9 13, а во втором- 0 1 4 9 16. Нужно осуществить их слияние так, что бы в третий (пустой файл) записалось 0 1 1 2 4 7 9 9 13 16. По сути это сортировка слиянием. Вот то, что сама написала, помогите найти ошибку, если вас это не затруднит)

[BDA]

Коряво
Но работает более-менее

uses crt;
var
f1,f2,f3:text;
a,b:integer;
begin
assign(f1,'in1.txt');
assign(f2,'in2.txt');
assign(f3,'out.txt');
reset(f1);
reset(f2);
rewrite(f3);
if not eof(f1) then
   read(f1,a)
   else
   a:=32767;
if not eof(f2) then
   read(f2,b)
   else
   b:=32767;
while (not eof(f1)) and (not eof(f2)) do
begin
     if a<b then
     begin
          write(f3,a,' ');
          read(f1,a);
     end
     else
     begin
          write(f3,b,' ');
          read(f2,b);
     end;
end;
while not eof(f1) do
begin
     if a<b then
     begin
          write(f3,a,' ');
          read(f1,a);
          end
     else
     begin
          write(f3,b,' ');
          b:=32767;
     end;
end;
while not eof(f2) do
begin
     if b<a then
     begin
          write(f3,b,' ');
          read(f2,b);
     end
     else
     begin
          write(f3,a,' ');
          a:=32767;
     end;
end;
if a<>32767 then
   write(f3,a,' ');
if b<>32767 then
   write(f3,b);
close(f1);
close(f2);
close(f3);
end.

[evgn]

Внезапно было нужно
Чуть поправлю

program laba;
uses crt;
var
     f1, f2, fo: text;
     a,b:integer;
begin
     assign(f1,'a1.txt');
     assign(f2,'a2.txt');
     assign(fo,'b.txt');
     rewrite(fo);
     reset(f1);
     reset(f2);
if not eof(f1) then
   read(f1,a)

if not eof(f2) then
   read(f2,b)

while (not eof(f1)) and (not eof(f2)) do
begin
     if a<b then
     begin
          write(fo,a,' ');
          read(f1,a);
     end
     else
     begin
          write(fo,b,' ');
          read(f2,b);
     end;
end;

while not eof(f1) do
begin
  write(fo,a,' ');
  read(f1,a);
end;

while not eof(f1) do
begin
  write(fo,b,' ');
  read(f2,b);
end;

close(f1);
close(f2);
close(fo);
end;

[Serge_Bliznykov]

evgn, явно опечатка:

hile not eof(f1) do
begin
  write(fo,a,' ');
  read(f1,a);
end;

while not eof(f1) do
begin
  write(fo,b,' ');
  read(f2,b);
end;

close(f1);
close(f2);
close(fo);

разумеется должно быть:

while not eof(f2) do

кроме того, не уверен, что логика в вашем "исправленном коде" корректна.
1-е. Чувствую, что может быть неверная работа вашего кода, если после окончания одного из файлов, в переменных a и b будут значения такие, что b<a
2-е. когда Вы прочитали последнее значение значение, eof стало истиной, но ведь переменную надо записать в файл!

возможно, что я и заблуждаюсь.. Это надо тестировать/проверять...

[BDA]

Serge_Bliznykov, и не единственная. После последнего end точка с запятой. Честно говоря, запускать код и проверять на наличие логических ошибок некогда, но выбрасывание проверок, которые были в моем коде, приведет к тому (предположительно), что последние элементы файлов запишутся не в том порядке или "потеряются" вовсе.

[Serge_Bliznykov]

приведет к тому (предположительно), что последние элементы файлов запишутся не в том порядке или "потеряются" вовсе.

угу.
согласен.

нет, нам такие "поправки" не нужны!

[evgn]

Я с вами полностью согласен товарищи... Было поздно, спать хотелось.
Но... свой код я тестировал в delphi, а там как не странно все работает. Там eof работает несколько по-другому.

Но первоначальный код также не удовлетворяет всем требованиям, я легко приведу ряды которые он не правильно обработает. Хотя бы если использовать последнее число 32767.
Тогда, такой вариант (вроде бы все проверил):

program laba; 
uses crt;    
var
     f1, f2, fo: text; 
     a,b,l:integer;      
     b1,b2,aw,bw:boolean;
begin
     assign(f1,'a1.txt');
     assign(f2,'a2.txt');
     assign(fo,'b.txt');
     rewrite(fo); 
     reset(f1); 
     reset(f2);
     b1:=not eof(f1); 
     b2:=not eof(f2);
if b1 then  
   read(f1,a);
if b2 then
   read(f2,b);
aw:=false; 
bw:=false;
while b1 or b2 do 
begin
     if a<b then
     begin
          write(fo,a,' ');
          if b1 then begin
          read(f1,a);    
          b1:=not eof(f1); 
          end
          else begin a:=32767; aw:=true; end;
     end
     else
     begin

          write(fo,b,' ');
          if b2 then begin 
          read(f2,b);     
          b2:=not eof(f2);
          end
          else  begin b:=32767; bw:=true; end;
     end;

end;

if a < b then begin
   if not aw then write(fo, a, ' '); 
   if not bw then write(fo, b, ' ');
end
else
begin
   if not bw then write(fo, b, ' ');
   if not aw then write(fo, a, ' ');
end;

close(f1);
close(f2);
close(fo);
end.

[Аватар]

А LongInt а паскале я надеюсь 4 байта? Тогда можно избежать проблемки с 32767 и сделать одним циклом и покороче. Паскаля нет, проверил в дельфи

var f1,f2,f3:text;
    a,b:LongInt;

begin

assign(f1,'in1.txt');
assign(f2,'in2.txt');
assign(f3,'out.txt');
reset(f1);
reset(f2);
rewrite(f3);
if not eof(f1) then read(f1,a) else a:=32768;
if not eof(f2) then read(f2,b) else b:=32768;
while (a<32768) or (b<32768) do begin
  if (a<=b) and (a<32768) then begin
    write(f3,a,' ');
    if not eof(f1) then read(f1,a) else a:=32768;
  end
  else if b<a then begin
    write(f3,b,' ');
    if not eof(f2) then read(f2,b) else b:=32768;
  end;
end;
close(f1);
close(f2);
close(f3);
end.