Создание типизированного файла – содержащего сведения о телефонах абонентов

Федеральное агентство по образованию

Государственное образовательное учреждение высшего профессионального образования

“Московский государственный университет приборостроения и информатики”

Филиал    Сергиев Посад      специальность  230101

Кафедра   ИТ4  “Персональные компьютеры и сети”

Дисциплина        Информатика

Пояснительная записка

к курсовому проекту на тему:

   “Создание типизированного файла –  содержащего сведения о телефонах абонентов”

 Студент                                                                                  

Группа                    ИТ4-2006-01Д                шифр             06022

Обозначение курсового проекта   КП – 2068752 – 230101 – ИТ4 – 05 – 07

Проект защищён на оценку             

Руководитель проекта(работы)                                             

Члены комиссии

 

Сергиев Посад 2007
Cодержание:

Постановка задачи. 2

Структура программы. 2

Описание алгоритмов процедур и функций. 2

Описание алгоритмов процедур и функций. 2

Описание алгоритмов процедур и функций. 2

Описание интерфейсной части программы. 2

Листинг программы. 2

Тестирование на допустимые и недопустимые входные данные. 2

Постановка задачи.

Создать файл содержащий сведения о телефонах абонентов(фамилия имя и отчество абонента, его телефон и адрес).

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

Структура программы.

procedure TForm1.Button1Click(Sender: TObject); 

да                              нет

 

                     

procedure TForm1.Button2Click(Sender: TObject);

 

                                        

procedure TForm1.Button3Click(Sender: TObject);

 

0:                                                                    1:                                                              2:

 

да                                              да                                                             да

read(f,spisok)

read(f,spisok)

                          

нет                                                              да

 

procedure TForm1.Button4Click(Sender: TObject)

 

                                                                     

 

                                                  

 

            да

 

 

procedure TForm1.FormActivate(Sender: TObject)

 

да                                             нет

                                       

 

                                       

 

 

procedure TForm1.Button6Click(Sender: TObject)

 

                                                                     

 

да

 нет
procedure TForm1.Button8Click(Sender: TObject)

 

                                                                  

 

да

нет

 

да                                                                                                          нет

 

да

 

              нет

                                       

                                                                   

да                          нет

closefile(f);rewrite(f);