Паскаль. Файлы. Помогите с одной задачей

[RomT24]

Привет всем!
Вот есть такая задача:
Даны три файла вещественных чисел, в каждом из которых они расположены по убыванию. Создать ещё один файл, куда поместить числа со всех трех файлов, при этом отсортировав их также по убыванию.
Результат вывести на экран.

Кто может, помогите разобраться. 3 день с ней долбаюсь!

[Valei]

Эм... а если все три файла последовательно загнать в один массив, а дальше уже массив сортировать и выводить.

[RomT24]

Правильно мыслишь . Сам алгоритм я в принципе и так понял, проблемы непосредственно с реализацией - последовательной записью данныз из файла1 в файл4. из файла2 в файл4 и т.д. Кто нибудь может помочь??

[Chudo4258]

У тебя файли типизированные, можно решать так:
переписываешь файл1 целиком в файл4, затем берешь по очереди элементы из файла2 находить куда его вставить в файле4, чтобы не нарушалось убывание и точно также с файлом3. Данное решение лучше т.к. тебе не надо заморачиватся на этой сортировки, да и размер файла может быть очень большой и все элементы у тебя в массив не войдут.

А затем уже читаешь файл4 и выводишь на экран его содержимое.

[SeRhy]

Program n1;
var f1,f:text;
     i,j,n,max,t:integer;
     m:array[1..3000] of integer;
Begin
  Assign(f1,'file1.txt');
  Reset(f1);
  i:=0;
  While Not Eof(f1) do
  Begin
    i:=i+1;
    readln(f1,m[i]); //read если числа записаны в одну строчку
  End;
  Close(f1);
  Assign(f1,'file2.txt');
  Reset(f1);
  While not eof(f1) do
  Begin
    i:=i+1;
    Readln(f1,m[i]); 
  End;
  Close(f1);
  Assign(f1,'file3.txt');
  Reset(f1);
  While not eof(f1) do
  Begin
    i:=i+1;
    Readln(f1,m[i]); 
  End;
  Close(f1);
  For j:=1 to i do
  Begin
    For n:=j+1 to i do
    Begin
      max:=j;
      For n:=j to i do 
      If m[n]>m[max] then max:=n;
    End;
    t:=m[j];
    m[j]:=m[max];
    m[max]:=t;
  End;
  Assign(f,'file_out.txt');
  Rewrite(f);
  For j:=1 to i do Writeln(f,m[i]);
  Close(f);
End.

[Serge_Bliznykov]

загонять все данные в массив и затем его сортировать
— в данном случае НЕ РАЦИОНАЛЬНО!!!
Ведь исходные файлы УЖЕ отсортированны!
алгоритм такой - открываем все три файла и получаем три числа (из каждого файла по одному числу - если файл не закончился) - полученные числа сравниваем друг с другом - и пишем в результирующий файл ОДНО из них, наибольшее.
Повторяем пока все файлы не опустеют.
всё - результирующий файл готов и отсортирован в порядке убывания.

____________________________

Добавлено.

три файла вещественных чисел

Речь идёт о типизированных файлах:

 var f1,f2,f3 : file of real;