Delphi_part2
.pdfНиже приведен пример процедуры обработки записей, каждая из которых содержит фамилию студента и оценки на пяти экзаменах.
Предполагается, что данные в текстовом файле расположены таким образом.
Борщ К.Е. 3 4 5 1 2
Бублик К.П. 1 2 3 4 5
Вареник Г.Т. 3 4 5 5 5
Нетудикидайченко Н.К. 1 2 1 2 1
Процедура обработки выглядит так.
//Обработка записей
procedure TForm1.btnRecordClick(Sender: TObject); type
Trec = record fio:string[10];
marks: array[1..5] of integer;
end;
var a:array[1..100] of TRec; count, i, j:integer; begin
Reset(f1);
//Считывание массива записей count := 0;
while not eof(f1) do begin count:=count + 1; readln(f1,a[count].fio);
for j:= 1 to 5 do read(f1,a[count].marks[j]); readln(f1);
end;
closeFile(f1);
//Вывод массива записей в текстовый файл
Rewrite(f2);
for i:=1 to count do begin
111
write(f2, a[i].fio:10);
for j:=1 to 5 do write(f2, a[i].marks[j]:2); writeln(f2);
end;
closeFile(f2);
end;
Результаты работы программы будут такими.
Борщ К.Е. 3 4 5 1 2 Туз К.П. 1 2 3 4 5
Вареник Г. 3 4 5 5 5 Нетудикида 1 2 1 2 1
12.4 ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ
В качестве заданий для самостоятельной работы студент должен выполнить задания из ранее выполненных работ, используя в качестве источника исходных данных текстовый файл и выводя результаты тоже в текстовый файл.
Для удобства просмотра исходных данных и результатов обработки следует использовать компоненты TMemo.
Образцом для выполнения задания может служить проект из папки kid\pub\subject\1_kurs\ projectToLection\.To_lection_20.
Следует решить такие задачи в соответствии со своими вариантами:
–Табулирование значений функции аналогично работе №6.
–Получение нового массива по варианту работы №7.
–Сортировку массива по варианту работы №8.
–Задачи на перестановку элементов матрицы по варианту работы №9.
–Выборка записей по варианту работы №10
12.5 СОДЕРЖАНИЕ ОТЧЕТА
–Наименование работы.
–Цель работы.
–Краткая характеристика текстовых файлов.
–Основные процедуры и функции, обеспечивающие работу с текстовым файлом.
–Интерфейс созданного проекта.
–Текст модуля проекта с пояснениями в виде комментариев.
–Результаты тестирования проекта в виде копий формы с результатами.
–Выводы.
112
КОНТРОЛЬНЫЕ ВОПРОСЫ
–Характеристики текстовых файлов.
–Процедуры, используемые при открытии файла.
–Анализ исключительных ситуаций, возникающих при открытии файла.
–Процедуры, используемые для чтения и записи данных в файл.
–Закрытие и удаление файла.
–Особенности чтения чисел из текстовых файлов.
–Особенности вывода чисел в текстовые файлы.
–Особенности чтения строк из текстовых файлов.
–Особенности вывода строк в текстовые файлы.
–Особенности хранения записей в текстовых файлах
–Ввод массивов из текстовых файлов.
–Ввод матриц из текстовых файлов.
–Объяснение текстов подпрограмм модуля и связей их с событиями и другими подпрограммами.
–Написать процедуру для реализации запроса к файлу по указанию преподавателя.
–Написать процедуру для реализации выбора некоторых данных из исходного файла в новый файл, по заданию преподавателя.
РЕКОМЕНДОВАННАЯ ЛИТЕРАТУРА
1.Культин Н. Delphi 6. Программирование на Object Pascal. – СПб.:БХВПетербург,2002.
2.Ставровский А.Б. Турбо Pascal 7.0/ Учебник. – К.: BHV, 2000.
113