19

ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

«СИБИРСКИЙ ГОСУДАРСТВЕННЫЙ МЕДИЦИНСКИЙ УНИВЕРСИТЕТ»

МИНИСТЕРСТВА ЗДРАВООХРАНЕНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ

Воробейчикова Ольга Владимировна, Каверина Ирина Сергеевна

Программирование на языке Object Pascal в среде Borland Delphi 7.0

Учебное пособие к практическим занятиям для студентов, обучающихся по специальности медицинская кибернетика.

Часть 1.

Методические указания 2

К теме 12: 2

К теме 13: 2

Теоретическая часть 3

Пример программ обработки числовых файлов 3

Контрольные вопросы 4

Тестовые задания 4

Практические задания 5

Задание 1: работа с готовым файлом данных (контрольное) 5

Задание 2: работа с готовым файлом данных (контрольное) 5

Задание 3: создание и обработка типизированного файла 6

Тема 13. Текстовые файлы 7

Теоретическая часть 7

Примеры работы с текстовыми файлами 7

Контрольные вопросы 10

Тестовые задания 10

Практические задания 10

Задание 1: работа с текстовыми файлами (контрольное) 10

Задание 2: работа с текстовыми файлами (контрольное) 11

Задание 3: обработка текстовых файлов, содержащих одномерные массивы (контрольное) 12

Задание 4: обработка текстовых файлов, содержащих одномерные массивы 12

Задание 5: обработка текстовых файлов, содержащих матрицы (контрольное) 14

Задание 6: обработка текстовых файлов, содержащих матрицы 14

Приложение: Примеры типовых алгоритмов 16

Задание элементов одномерного массива 16

Вывод элементов одномерного массива 16

Обработка элементов одномерного массива 17

Задание элементов двумерного массива 18

Вывод элементов двумерного массива 19

Методические указания

К теме 12:

Исходные файлы чисел находятся на сервере в папке:

\2 курс\ кибернетики\ практики\

Файлы обязательно скопировать в папки своих проектов.

Файл отчета включает:

1) ответы на тестовые вопросы по теме (стр. 4);

2) листинг и скрин-шот экрана с результатом работы программ;

В рейтинг входят все три задания.

К теме 13:

Файл отчета включает:

1) ответы на тестовые вопросы по теме (стр. 10);

2) листинг и скрин-шот экрана с результатом работы программ;

В рейтинг входят первые два задания.

Тема 12. Типизированные файлы

Цель изучения темы: В результате изучения темы студенты должны усвоить понятие «типизированного файла» и приобрести навыки работы с ними.

Теоретическая часть

Типизированным файлом в Object Pascal называется переменная, которую можно рассматривать как бесконечный список однотипных элементов. Для определения конца файла используется стандартная функция EOF, которая является булевской и возвращает ИСТИНУ, когда достигнут конец файла.

Для чтения элементов из файла используется процедура-оператор READ, для записи – WRITE. Каждое чтение элемента из файла вызывает перемещение курсора внутри файла к последующему элементу. Каждая запись элемента в файл вызывает перемещение курсора внутри файла к концу файла.

Пример:

Пусть в файле целых чисел хранится следующий набор значений: 2 4 3 1 0.

Var F: file of integer;

X: integer;

. . .

Reset(f); //перемещение курсора в файле на его начало

Read(f,x); //считываем первый элемент файла x=2

Read(f,x); // считываем второй элемент файла x=4

Reset(f); //перемещение курсора в файле на его начало

For i:=1 to 5 do read(f,x);//считываем первые 5 элементов

//при выходе из цикла в х – 5 элемент: x=0

. . .

Так как по определению, файл – это бесконечный список, то для его обработки чаще всего используются циклы с пред- или с пост-условием, для выхода из цикла используя значений функции EOF.

При работе с файлами следует иметь в виду, что файлы предназначены для хранения информации и дальнейшего использования их содержимого разными программами. Поэтому в примере приводятся два проекта: один содержит программу, которая создает файл целых чисел (имитация сбора информации), второй проект содержит программу, которая использует этот файл, а именно, выводит его содержимое на экран.