IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Слияние файлов
сообщение
Сообщение #1


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


Всем привет!
У меня проблема с такой задачей:даны 2 файла упорядоченные по неубыванию, получить новый файл, упорядоченный из элементов этих двух файлов по неубыванию.
Никак не могу сделать чтоб работала для всех вариантов исходных данных...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 731
Пол: Женский

Репутация: -  25  +


Цитата
для всех вариантов исходных данных...

Поясни пожалуйста.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Client, поиск по форуму по ключевым словам сортировка Неймана слиянием выдает решение задачи.... Но раз ты сам пытался ее решить, лучше (прежде, чем брать готовое из поиска) приведи свою программу и те файлы, на которых она не отрабатывает, посмотрим, где ты ошибся...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


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 и не входим ни в один из циклов.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Цитата
Я делал так:читаем последние элементы файлов, сравниваем их
Ну, и зачем? Читать элементы надо последовательно с самого начала... Пока текущий элемент одного из файлов меньше, чем текущий элемент другого - меньший пишешь в файл результата... Как только достиг конца одного из файлов - этот цикл прекращается, и все что тебе останется сделать - это сбросить остаток второго файла в файл-результат.

Откуда у тебя взялся четвертый файл?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


Цитата
Откуда у тебя взялся четвертый файл?
f4-это файл, в котором будет результат
Цитата
Ну, и зачем?
Так я делал с самого начала, но не доделал, щас буду заново писать код.
Спасибо за идею good.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


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. Это сообщение отправил еще вчера...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






Смотри:
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;

 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


eof_a := eof(f2);
Логично, но я бы до этого не додумался((
Спасибо большое good.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.11.2020 5:07
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name