Помощь - Поиск - Пользователи - Календарь
Полная версия: Слияние файлов
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Client
Всем привет!
У меня проблема с такой задачей:даны 2 файла упорядоченные по неубыванию, получить новый файл, упорядоченный из элементов этих двух файлов по неубыванию.
Никак не могу сделать чтоб работала для всех вариантов исходных данных...
Айра
Цитата
для всех вариантов исходных данных...

Поясни пожалуйста.
volvo
Client, поиск по форуму по ключевым словам сортировка Неймана слиянием выдает решение задачи.... Но раз ты сам пытался ее решить, лучше (прежде, чем брать готовое из поиска) приведи свою программу и те файлы, на которых она не отрабатывает, посмотрим, где ты ошибся...
Client
procedure sliyanie;
var
t,t1,t2:boolean;
a,b:integer;
begin
reset(f3);
reset(f2);
rewrite(f4);
seek(f2,filesize(f2)-1);
read(f2,a);
seek(f3,filesize(f3)-1);
read(f3,b);
t:=a>=b;
reset(f2);
reset(f3);
read(f2,a);
read(f3,b);
while not eof(f2) and not eof(f3) do begin
if a<b then begin
write(f4,a);
read(f2,a)
end
else begin
write(f4,b);
read(f3,b)
end;
end;
t1:=true;
t2:=true;
if t then begin
while not eof(f2) do begin
if (a>b) and t1 then begin
write(f4,b);
t1:=false
end;
write(f4,a);
read(f2,a);
if eof(f2) and t2 then begin
seek(f2,filesize(f2)-1);
t2:=false
end;
end;
end
else
while not eof(f3) do begin
if (a<b) and t1 then begin
write(f4,a);
t1:=false
end;
write(f4,b);
read(f3,b);
if eof(f3) and t2 then begin
seek(f3,filesize(f3)-1);
t2:=false
end;
end;
end;
Пример
Файл 1:2 2 3 4 7
Файл 2:5 10
Я делал так:читаем последние элементы файлов, сравниваем их.Ресет 2 файлов, читаем первые элементы. 10>7, значит пока не конец первого файла читаем из первого и сравнием. Когда кончился файл 1, дописываем элементы файла 2.
На этом примере вроде отработало, а если поменять файлы местами- то не работает.
Еще пример:
файл 1:50
файл 2: 2 2 3 4 7
Здесь как тока считали 50, сразу конец файла1 и не входим ни в один из циклов.
volvo
Цитата
Я делал так:читаем последние элементы файлов, сравниваем их
Ну, и зачем? Читать элементы надо последовательно с самого начала... Пока текущий элемент одного из файлов меньше, чем текущий элемент другого - меньший пишешь в файл результата... Как только достиг конца одного из файлов - этот цикл прекращается, и все что тебе останется сделать - это сбросить остаток второго файла в файл-результат.

Откуда у тебя взялся четвертый файл?
Client
Цитата
Откуда у тебя взялся четвертый файл?
f4-это файл, в котором будет результат
Цитата
Ну, и зачем?
Так я делал с самого начала, но не доделал, щас буду заново писать код.
Спасибо за идею good.gif
Client
procedure sli;
var
t,t1,t2:boolean;
a,b:integer;
begin
reset(f3);
reset(f2);
rewrite(f4);
read(f2,a);
read(f3,b);
if eof(f2) then reset(f2);
if eof(f3) then reset(f3);
while not eof(f2) and not eof(f3) do begin
if a<b then begin
write(f4,a);
read(f2,a)
end
else begin
write(f4,b);
read(f3,b)
end;
end;
t:=eof(f2);
if a<b then write(f4,a)
else write(f4,b);
if t then
while not eof(f3) do begin
read(f3,b);
write(f4,b)
end
else
while not eof(f2) do begin

read(f2,a);
write(f4,a)
end;
end;
На выше указанные примеры отработало, а на
2 3 4
2 7
Не хочет.... Что надо добавить в этот код? wacko.gif
P.S. Это сообщение отправил еще вчера...
volvo
Смотри:
procedure sli;
var
a, b: integer;
eof_a, eof_b: boolean;
begin
reset(f2); reset(f3);

rewrite(f4);

eof_a := eof(f2); if not eof_a then read(f2, a); { хранишь признак конца файла ПЕРЕД чтением данных }
eof_b := eof(f3); if not eof_b then read(f3, b);
while (not eof_a) and (not eof_b) do begin
if a < b then begin
write(f4, a);
eof_a := eof(f2); if not eof_a then read(f2, a);
end
else begin
write(f4, b);
eof_b := eof(f3); if not eof_b then read(f3, b);
end;
end;

if eof_a then begin { Если закончился первый файл, то }
write(f4, b); { <--- сбрасываешь последнее прочитанное из второго файла число }
while not eof(f3) do begin { и потом - весь второй файл до конца... }
read(f3, b); write(f4, b);
end;
end
else begin { здесь - все наоборот }
write(f4, a);
while not eof(f2) do begin
read(f2, a); write(f4, a);
end;
end;
close(f4);
end;

Client
eof_a := eof(f2);
Логично, но я бы до этого не додумался((
Спасибо большое good.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.