[Ko$]

Решите пожалуйста одну задачку последняя осталась для отчёта:

Создать типизированные файлы f и g, компонентами которых являются случайные целые числа. Записать в файл h сначала компоненты файла f, а затем компоненты файла g с сохранением порядка.

Всем признателен за вниманее!!!

[lmikle]

собственно, слияние файлов:

Код:

var
  f, g, h : file of integer;
  n : Integer;
begin
  assignFile(f, 'c:\f.dat')'
  assignFile(g, 'c:\g.dat');
  assignFile(h, 'c:\h.dat');

  Reset(f);
  Reset(g);
  Rewrite(h);

  While not eof(f) Do
    Begin
       Read(f,n);
       Write(h,n);
    End;

  While not eof(g) Do
    Begin
       Read(gn);
       Write(h,n);
    End;

  CloseFile(f);
  CloseFile(g);
  CloseFile(h);
end;

Ну как создать исходные файлы сам разберешься. Тебе понадобятся функции Randomize и Random(N), ну а запись в файл есть в вышепреведенном примере.

[Xalexo]

Если под сохранением порядка подразумевается упорядоченная запись чисел, сгенерированных в случайном порядке в файлы f и g, то внутрь вышеупомянутого цикла записи результируемого файла можно внедрить что то вроде -

Код:

if n>max then max:= n;

Хотя есть, конечно более оптимальные алгоритмы сортировки...