на завтра нужно! паскаль

[leonid_dinoel]

Пусть есть файлы a и b, компоненты которых являются целыми числами упорядочены по неубыванию. Получить в файле c все числа файлов a и b без повторений. Файл должен быть упорядочен по возростанию.

Я сделал через массивы, но училка говорит, что это нужно сделать при помощи сортировки слиянием. помогите, пожалуйста!

[Sciv]

добавь к своему массиву сортировку слиянием, да и все. В чем проблема-то?

[leonid_dinoel]

так в том то й дело, что массив не нужно вообще использывать, как она говорит

[Poma][a]

        Read (f1, a);
        Read (f2, b);
        while (not  (eof(f1))) or (not (eof (f2))) do begin
                if a > b then begin
                        WriteLn (b);
                        ReadLn (f2, b)
                end
                else begin
                        WriteLn (a);
                        ReadLn (f1, a)
                end
        end;

Не проверял..

[Serge_Bliznykov]

Сообщение от Sciv

добавь к своему массиву сортировку слиянием, да и все.

да ну, бросьте!
Не нужны тут ни массивы, ни сортировки.
Банально читаем элемент из одного файла и элемент из другого файла в две переменные. сравниваем их. Если они одинаковые, одну записываем (любую), и читаем из файла, если значения переменных не равны друг другу, то записываем меньшое значение и читаем из файла.
всё это делаем в цикле. Не забывая при чтении из каждого файла следить, что мы не достигли конец данного файла (если какой-то из файлов закончился, то из него уже не читаем, но цикл повторяем.
всё вышесказанное повторяется в цикле, пока не закончатся оба файла.
всё. профит.


то, что я описал выше, по сути это и есть сортировка слиянием!

UPDATE
примерно то, что я говорил и описал Poma][a в своём примере кода!

[Rin]

Если они упорядочены, то сделай так:

.......
if FileSize(a)>FileSize(b) then
begin
while not (EoF(b)) do
begin
readln(a,i);
readln(b,j);
if i>j then
while (i>j)and(not(EoF(b))) do
begin
writeln(c,j);
readln(b,j);
end;

else
if i>j then
while i<j do
begin
writeln(c,i);
readln(a,i);
end

else writeln(c,j);// или writeln(c,i); без разницы, т.к. i=j
end;
while not(eoF(a)) do
begin
readln(a,i);
writeln(c,i);
if i<>j then
end;
end
else 
if FileSize(a)<FileSize(b) then
while not (EoF(a)) do
....
{тут то же самое}
....

Update
Ага, опередили.