|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Типизированные файлы
Решите пожалуйста одну задачку последняя осталась для отчёта:
Создать типизированные файлы f и g, компонентами которых являются случайные целые числа. Записать в файл h сначала компоненты файла f, а затем компоненты файла g с сохранением порядка. Всем признателен за вниманее!!! |
#2
|
|||
|
|||
собственно, слияние файлов:
Код:
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), ну а запись в файл есть в вышепреведенном примере. |
#3
|
||||
|
||||
Если под сохранением порядка подразумевается упорядоченная запись чисел, сгенерированных в случайном порядке в файлы f и g, то внутрь вышеупомянутого цикла записи результируемого файла можно внедрить что то вроде -
Код:
if n>max then max:= n; |