ТОМСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
СИСТЕМ УПРАВЛЕНИЯ И РАДИОЭЛЕКТРОНИКИ (ТУСУР)
дистанционная форма обучения
Кафедра автоматизированных систем управления (АСУ)
Программирование
Курсовой проект
«телефонный справочник»
Дата выполнения работы ___________________
Дата проверки ___________________
Оценка ___________________
И.О.Фамилия преподавателя ___________________
Подпись преподавателя ___________________
Содержание:
Содержание
Введение
Постановка задачи
Используемые методы
Описание алгоритма программы
Заключение
Список литературы
Приложение 1. Листинг программы
Введение:
Целью курсовой работы является углубление знаний и расширение навыков по разработке алгоритмов и их реализации на персональном компьютере.
Постановка задачи:
Необходимо написать программу, которая будет работать с базой телефонных номеров. При этом программа должна уметь добавлять, изменять, удалять, искать записи. Также, для упрощения работы с программой, необходимо создать интуитивно понятный интерфейс.
1. Используемые методы:
В программе используется следующий алгоритм работы с данными: все данные хранятся в файле phone.dat и загружаются в программу при вызове той или иной процедуры. При удалении или изменении записи создается временный файл с именем temp.dat, в него записываются все данные из файла phone.dat кроме тех которые были удалены или записываются уже измененные данные, затем файл phone.dat удаляется, а файл temp.dat переименовывается в phone.dat.
2. Описание алгоритма программы.
Создадим запись Phone, в этой записи создадим четыре поля с именами:
· SurnameS – строкового типа длинной 15 символов, данное поле будет содержать фамилию;
· NameS – строкового типа длинной 15 символов, данное поле будет содержать имя;
· PhoneS – строкового типа длинной 15 символов, данное поле будет содержать номер телефон.
· AddressS – строкового типа длинной 50 символов, данное поле будет содержать адрес.
Создадим переменные:
· PhoneF – файлового типа, для работы с файлами данных;
· PhoneR – произвольного типа (Phone), для работы с данными.
· а – массив от 1 до 600 типа Phone, данный массив будет необходим для организации сортировки записей.
Процедура WritePhone – данная процедура выводит все записи из файла phone.dat на экран. При помощи оператора Assign устанавливается связь между файлом и переменной файлового типа PhoneF. С помощью команды Reset открываем файл для чтения и переводим указатель в первую позицию. Далее создаем цикл размером от первой позиции в файле до последней, в этом цикле выводим на экран значение полей: фамилия, имя, номер телефона при помощи оператора Writeln. Закрываем файл при помощи оператора Close, это необходимо для того, чтобы другие процедуры могли с ним работать.
procedure WritePhone;
begin
Assign(PhoneF,'Phone\phone.dat');
Reset(PhoneF);
ClrScr;
writeln('Все записи:');
writeln;
while not Eof(PhoneF) do
begin
PhoneR.SurnameS:='';
PhoneR.NameS:='';
PhoneR.PhoneS:='';
PhoneR.AddressS:='';
read(PhoneF,PhoneR);
writeln;
write(PhoneR.SurnameS);
write(' ',PhoneR.NameS);
write('',PhoneR.PhoneS);
write('',PhoneR.AddressS);
end;
Close(PhoneF);
writeln;
writeln;
write('Нажмите любую клавишу...');
ReadKey;
end;
Процедура AddPhone – данная процедура добавляет запись. ............
