- •Ответственный за выпуск: Бивойно п.Г. , декан факультета электронных и информационных технологий, канд. Техн. Наук, доцент
- •Содержание
- •Лабораторная работа № 7. Одномерные массивы
- •Краткие теоретические сведения о массивах
- •7.1.1Понятие массив.
- •7.1.2Объявление массива.
- •7.1.3Передача массивов в процедуры и функции
- •7.1.4Операции с массивами.
- •Типовые процедуры и функции для работы с массивами
- •7.1.5Описание типа учебного массива
- •7.1.6Процедуры создания, ввода и вывода массивов
- •Процедура создания случайного массива
- •Процедура ввода массива из строки текста
- •Процедура ввода массива из компонента tMemo
- •Процедура ввода массива с помощью функции InputBox
- •Функция преобразования массива в строку символов
- •Процедура вывода массива в компонент tMemo
- •7.1.7Обработка массивов
- •Функция вычисления суммы элементов массива
- •Процедура определения минимального, максимального, и их индексов в массиве
- •Функция определения позиции элемента в массиве
- •Процедура удаления элементов из массива
- •Процедура переворота массива
- •Процедура циклического сдвига части элементов массива влево
- •Процедура формирования массива накопленных значений
- •Задание для самостоятельной работы
- •Содержание отчета.
- •Контрольные вопросы
- •Лабораторная работа № 8. Сортировка массивов
- •Методы сортировки массивов
- •7.1.8Сортировка выбором.
- •Пример сортировки массива по возрастанию методом выбора
- •Процедура сортировки массива методом выбора
- •7.1.9Сортировка обменом (метод пузырька)
- •Пример сортировки массива по возрастанию методом обмена
- •Процедура сортировки массива методом обмена
- •7.1.10Сортировка вставкой или включением.
- •Пример сортировки массива по возрастанию методом вставки
- •Процедура сортировки методом вставки
- •Сортировка по усложненным правилам
- •Обработка упорядоченных массивов
- •7.1.11Вставка элемента в отсортированный массив
- •7.1.12Слияние двух отсортированных массивов в один
- •7.1.13Поиск позиции элемента в отсортированном массиве
- •7.1.14Удаление элемента из отсортированного массива
- •Задание для самостоятельной работы
- •7.1.15Описание матриц
- •7.1.16Использование компонента StringGrid для ввода-вывода матриц
- •7.1.17 Тотальная обработка данных в матрицах
- •7.1.18Выборочная обработка матрицы
- •7.1.19Перестановки элементов матрицы
- •7.1.20Удаление и вставка элементов матрицы
- •7.1.21Сортировка элементов матрицы
- •Задание для самостоятельной работы
- •Содержание отчета
- •Контрольные вопросы
- •Лабораторная работа № 10. Работа с записями
- •Краткие теоретические сведения
- •7.1.22Объявление типа для записи
- •7.1.23Массивы записей
- •7.1.24Поля записей как массивы
- •7.1.25Сортировка массивов записей
- •7.1.26Ввод-вывод записей
- •Создание проекта «Результаты аттестации»
- •7.1.27Интерфейс пользователя для проекта
- •7.1.28Определение типов данных
- •7.1.29Инициализация интерфейса
- •7.1.30Добавление строки в таблицу
- •7.1.31Удаление строки из таблицы
- •7.1.32Процедура создания массива записей по содержимому StringGrid
- •7.1.33Процедура отображения массива в компоненте StringGrid
- •7.1.34Процедура сортировки массива записей по группе и фамилии
- •7.1.35Сортировка записей по количеству неудовлетворительных оценок и среднему баллу
- •7.1.36Выборка студентов какой-нибудь группы, имеющих средний балл выше 4
- •7.1.37Подсчет числа студентов, имеющих более 2-х неудовлетворительных оценок и вывод упорядоченного списка этих студентов
- •Задание для самостоятельной работы
- •Содержание отчета
- •Контрольные вопросы
- •Лабораторная работа № 11. Работа с типизироваными файлами
- •Краткие теоретические сведения
- •7.1.38Объявление файловой переменной
- •7.1.39Назначение файла файловой переменной
- •7.1.40Открытие файла
- •7.1.41Текущая позиция файла
- •7.1.42Чтение данных из файла
- •7.1.43Запись данных в файл
- •7.1.44Обрезка “хвоста” файла
- •7.1.45Закрытие и удаление файлов
- •Перечень основных процедур и функций для работы с типизированными файлами
- •Создание проекта «Результаты аттестации»
- •7.1.46Требования к проекту
- •7.1.47Интерфейс пользователя для проекта
- •7.1.48Определение типов данных
- •7.1.49Настройка интерфейса пользователя
- •7.1.50Вспомогательные процедуры для работы с файлом Процедура выбора имени файла
- •Процедура открытия файла
- •Процедура вывода файла в StringGrid
- •7.1.51Процедуры работы со StringGrid1
- •7.1.52Процедуры реализации пунктов меню fileMenu Добавление данных из StringGrid1 в файл
- •Поиск записи по фамилии
- •Удаление записи по фамилии
- •Сохранение файла под другим именем
- •7.1.53Процедуры для работы с упорядоченными файлами Процедура сортировки файла
- •Поиск записи в отсортированном файле
- •Добавление записи в отсортированный файл
- •Удаление записи из отсортированного файла
- •7.1.54Процедуры реализации пунктов меню sortMenu Реализация пункта меню «Сортировка файла по фамилиям»
- •Реализация пункта меню «Поиск студента по фамилии»
- •Реализация пункта меню «Добавление в упорядоченный файл из StringGrid1»
- •Реализация пункта меню «Удаление записи из отсортированного файла»
- •Задание для самостоятельной работы
- •Содержание отчета
- •Контрольные вопросы
- •Лабораторная работа № 12. Работа с текстовыми файлами
- •Краткие теоретические сведения
- •7.1.55Объявление файловой переменной для текстового файла
- •7.1.56Связывание файловой переменной с конкретным файлом
- •7.1.57Открытие файла
- •Создание нового файла
- •Открытие файла для чтения
- •Открытие файла для дополнения
- •7.1.58Текущая позиция файла
- •7.1.59Записи данных в файл.
- •7.1.60Чтение данных из файла
- •Особенности чтения чисел из текстового файла
- •Особенности чтения данных типа String
- •Особенности чтения и записи символов
- •7.1.61Закрытие и удаление файлов
- •Перечень основных процедур для работы с текстовыми файлами
- •Общая схема работы с текстовым файлом
- •7.1.62Примеры работы с текстовыми файлами
- •Пример ввода-вывода при решении простейшей задачи
- •Пример добавления данных из одного файла к другому
- •Пример чтение из файла в поле Memo
- •Пример ввода-вывода при работе с массивом
- •Пример ввода-вывода при работе с матрицей
- •Пример ввода-вывода при работе с записями
- •Задания для самостоятельной работы
- •Содержание отчета
- •Контрольные вопросы
- •Рекомендованая литература
Поиск записи в отсортированном файле
Для поиска записи в упорядоченном файле можно метод дихотомии, который рассматривался при поиске в упорядоченном массиве.
function findPosInSortFile(fam: TName; var f: TAttFile): integer;
var pos, left, right: integer; r: TAttRec;
begin
result := -1; // Если элемент не будет найден
//Начальные значения левой и правой границ
left := 0; right := FileSize(f)-1;;
while left <= right do begin //Ищем, пока left не правее right
// Находим индекс середины массива
pos := (right+left)div 2;
seek(f, pos);
read(f, r);
if fam = r.Name then begin
//Элемент найден, и мы выходим из подпрограммы
result := pos;
exit;
end;
if fam < r.Name
then right := pos – 1 // Будем искать левее
else left := pos+1; // Будем искать правее
end;
end;
Добавление записи в отсортированный файл
Процедура добавления в отсортированный файл также подобна вставке в отсортированный массив. Записи, начиная с последней, поочередно сдвигаются на одну позицию к последней, создавая место для вставляемой записи. Процесс продолжается до тех пор, пока не будет найдено место для новой записи, соответствующее порядку в файле. Сравнение записей должно производиться по правилу, в соответствии с которым проводилась сортировка. Поэтому в процедуру вставки в качестве параметра передается та же функция сравнения, что использовалась при сортировке.
//Добавить запись в отсортированный файл
procedure addToSortFile(var f:TAttFile; r:TAttRec);
var pos:integer; rf:TAttRec;
begin
//Начинаем с конца файла
pos:= fileSize(f);
repeat //Повторяем пока не найдем, куда вставить
pos:=pos-1;
if pos = -1 then break; // значит надо вставлять в начало
//Сдвигаем очередную запись на одну позицию вниз
seek(f, pos);
read(f, rf);
write(f, rf);
until rf.name < r.name;
// Нашли место для вставки
seek(f,pos+1);
write(f,r);
end;
Удаление записи из отсортированного файла
В процедуре удаления записи из файла используется функция поиска позиции искомой записи в файле. После определения позиции, все записи, начиная со следующей за найденной и до самой последней, сдвигаются на одну позицию в сторону начала файла. После этого последняя запись обрезается.
//Удалить запись из отсортированного файла
procedure delFromSortFile(var f: TAttFile; fam: TName);
var pos: integer; rf: TAttRec;
begin
// Ищем позицию записи с заданной фамилией
pos := findPosInSortFile(fam, f);
if pos < 0 then begin
showMessage(fam+' не найдено');
exit;
end;
//Сдвигаем все записи начиная со следующей за найденной
while pos < fileSize(f) - 1 do begin
pos:=pos + 1;
seek(f, pos);
read(f, rf);
seek(f, pos-1);
write(f, rf);
end;
// Обрезаем последнюю запись
seek(f, fileSize(f) - 1);
truncate(f);
end;
7.1.54Процедуры реализации пунктов меню sortMenu Реализация пункта меню «Сортировка файла по фамилиям»
Наличие описанной выше процедуры сортировки файла позволяет достаточно просто реализовать эту функцию меню.
//Вызов сортировки по фамилиям
procedure TfrmAtt.mnuSortFamClick(Sender: TObject);
var f:TAttFile;
begin
openAttFile(f);
sortAttFile(f);
showFileInGrid(f, StringGrid3);
CloseFile(f);
end;