Курсовая работа: Описание программы "Учебная база данных"

clrscr; {очищаем экран}

reset(f);{открываем файл для чтения}

writeln('---Сортировка данных---');

writeln('Выберите критерий сортировки');{выводим информацию о выборе критерия сортировки}

writeln('1 - сортировка по росту');

writeln('2 - сортировка по весу');

readln(sort_type);{считываем выбор пользователя}

forj := 1 tofilesize(f) do {начинаем пузырьковую сортировку}

fori := 0 tofilesize(f) - 2 do {количество повторений цикла на 1 меньше размера файла}

begin

seek(f, i); {ищем i-ю запись в файле}

read(f, u1); {считываем найденную запись из файла}

seek(f, i + 1); {ищем следующую за i-й запись в файле}

read(f, u2); {считываем найденную запись из файла}

ifsort_type = 1 then {в зависимости от выбранного критерия сортировки устанавливаем значения переменных, которые будем сравнивать}

begin

p1 := u1.rost; {выбрана сортировка по росту, устанавливаем в переменные значения из поля рост}

p2 := u2.rost;

end

else

begin

p1 := u1.ves; {выбрана сортировка по весу, устанавливаем в переменные значения из поля вес}

p2 := u2.ves;

end;

ifp1 > p2 then {сравниваем между собой значения переменных по которым идет сортировка. в случае, если первое больше второго, то меняем местами записи в файле}

begin

seek(f, i + 1);

write(f, u1);

seek(f, i);