[Ko$]

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

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

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

[lmikle]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

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, то внутрь вышеупомянутого цикла записи результируемого файла можно внедрить что то вроде -

Код:

1	if n>max then max:= n;

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