ления к левой и правой частям, затем к частям частей и так до тех пор, пока каждая из частей не будет состоять из одного единственного элемента.

3.4. Порядок выполнения работы

Задание: Написать программу работы с файлами с использованием класса. Класс содержит следующие стандартные методы: включение новой записи в файл, чтение файла в массив, запись массива в файл, линейный поиск в массиве, сортировка массива методами слияния и QuickSort, двоичный поиск в отсортированном массиве, удаление записи из массива по заданному ключу.

Для выполнения индивидуального задания дополнить класс «своим» методом, который решает задачу выбранного варианта.

3.4.1. Пример фрагмента программы

Unit UZapSort;				Листинг 3.1
Interface
const Mr=1000;		//	Максимальная размерность массива
Type	…
Tzp = Record			// Поле информации
zp	: TInf;
k	: Tk;			// Поле ключа
	end;
Mas=array[1..Mr] of Tzp;				// Тип – массив записей
TZad3=class(TObject)

a : mas;

n : Word; // Текущий размер массива ≤Mr

Procedure ReadFromFile;

Procedure WriteTofile;

Procedure WriteToMemo;

Procedure PoiskL;

Procedure PoiskD; Procedure SortSlip; Procedure Remov;

Procedure QuickSort;

… < Поля и методы, которые надо дописать >

End;

Implementation

Procedure Tzad3.QuickSort;

… < Описание других методов > const M=12;

Var i,j,L,R : Word; x : Tk; w : Tzp; S : 0..M;

17

Stak :array[1..M] of Record L,R:word end; begin

s:=1; stak[1].L:=1; stak[1].R:=n;

Repeat // Выбор из Stak последнего запроса

L:=stak[s].L; R:=stak[s].R; s:=s-1;

Repeat // Разделение a[L] … a[R]

i:=L; j:=R; x:=a[(L+R) div 2].k;

Repeat

While a[i].k<x do i:=i+1; While x<a[j].k do j:=j-1; if i<=j then begin

w:=a[i]; a[i]:=a[j]; a[j]:=w; i:=i+1; j:=j-1 end;

until i>j;

if j-L<R-i then begin // Какая половина длиннее? if i<R then // Запись запроса из правой части

begin s:=s+1; stak[s].L:=i; stak[s].R:=R; end; R:=j;

end // Теперь L и R ограничивают левую часть else begin

if L<j then // Запись запроса из левой части

begin s:=s+1;stak[s].L:=L;stak[s].R:=j end; L:=i end;

until L>=R;		// Конец разделения очередной части
until s=0; // Stak пуст
END;	// Конец метода QuickSort

End.

Листинг 3.2

Unit Unit1;

…

Uses UZapSort; Var zad3:Tzad3;

…

begin zad3:=Tzad3.create;

zad3. ReadFromFile; // При чтении определяется n zad3. QuickSort;

zad3. WriteTofile;

< Вывод сортированного массива > zad3.free;

end.

18