Внешняя сортировка естественным слиянием PascalABC.Net

Автор работы: Пользователь скрыл имя, 17 Сентября 2013 в 23:22, курсовая работа

Краткое описание

Данные, хранящиеся на внешних устройствах, имеют большой объем, что не позволяет их целиком переместить в оперативную память, отсортировать с использованием одного из алгоритмов внутренней сортировки, а затем вернуть их на внешнее устройство. В этом случае осуществлялось бы минимальное количество проходов через файл, то есть было бы однократное чтение и однократная запись данных. Однако на практике приходится осуществлять чтение, обработку и запись данных в файл по блокам, размер которых зависит от операционной системы и имеющегося объема оперативной памяти, что приводит к увеличению числа проходов через файл и заметному снижению скорости сортировки.

Содержание

ВВЕДЕНИЕ…………………………………………………………………………5
1 ПОСТАНОВКА ЗАДАЧИ…………………………………………………….....7
2 АЛГОРИТМИЧЕСКОЕ КОНСТРУИРОВАНИЕ………………………………8
2.1 ОБЩАЯ СХЕМА
ФУНКЦИОНИРОВАНИЯ………………………………………………8
2.2 ОЦЕНКА АЛГОРИТМА
СОРТИРОВКИ…………………………………………………………..................11
3 ПРОГРАММНОЕ КОНСТРУИРОВАНИЕ……………………………………..12
4 КОНТРОЛЬНЫЙ ПРИМЕР……………………………………………………...13
5 ЗАКЛЮЧЕНИЕ…………………………………………………………………...14
6 СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ…………………………… 15

Вложенные файлы: 1 файл

Algoritmy_i_struktury_dannykh_Kursovaya.docx

— 72.96 Кб (Скачать файл)

    end;

   

    repeat

      rewrite(a);

      rewrite(b);

      reset(c);

      Distribute;

      l := 0;

      reset(a);

      reset(b);

      rewrite(c);

      merge;

    until l = 1;

   

    writeln;

    Writeln('Отсортированная последовательность: ');

    reset(c);

   

    while not eof(c) do

    begin

      read(c, x);

      write(x.key, ' ');

      write(res, x.key, ' ');

    end;

   

    writeln;

   

    close(a);

    close(b);

    close(c);

    close(fin);

    close(res);

    erase(a);

    erase(b);

    erase(c);

   

    repeat until keypressed;

  except

    on err: System.Exception do

      writeln(err.Message);

  end;

 

end.

 


Информация о работе Внешняя сортировка естественным слиянием PascalABC.Net