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

Страницы работы

26 страниц (Word-файл)

Содержание работы

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

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

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

Филиал    Сергиев Посад      специальность  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);  Блок-схема: решение: N=1

да                              нет

 


Овал: конец                     

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)

 


                                                                  

 


да

нет

 


да                                                                                                          нет

 


да

 


              нет

                                       

Блок-схема: решение: i<=n                                                                   

да                          нет

closefile(f);rewrite(f);

 
                                                                    

Похожие материалы

Информация о работе