Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Курсовая работа

Разработка информационно-справочной системы «Регистратура»

Содержание

• Введение
• 1. Постановка задачи
• 2. Анализ предметной области
• 2.1 Описание входных переменных
• 2.2 Описание логической структуры программы
• 3. Описание подпрограмм
• 4. Описание программы
• 5. Вывод и загрузка программы
• 6. Описание выходных данных
• Выводы
• Список использованной литературы
• Додаток A. Листинг программы
• Введение
• Цель моей курсовой работы разработать информационно-справочную систему Регистратура.
• Данный курсовой проект посвящен разработке информационно-справочной подсистемы.
• Информационная система (ИС) в целом - автоматизированная система, предназначенная для организации, хранения, пополнения, поддержки и представления пользователям информации в соответствии с их запросами. Информация, выдаваемая информационной системой потребителю, является одним из ресурсов, позволяющих повысить производительность труда и эффективность его деятельности. Важнейшим аспектом взаимоотношений потребителя и информационной системы является по возможности наиболее полное и рациональное удовлетворение информационной потребности пользователя, другими словами, обеспечение эффективного использования информационных ресурсов. Это, в свою очередь, предполагает доведение информации до потребителя в требуемом объеме, в заданные сроки и удобной для восприятия форме. Именно использование информационных ресурсов таким образом позволяет минимизировать расход всех других видов ресурсов (материальных, трудовых, финансовых, вычислительных) при информационном обеспечении потребителей.
• Системы (или подсистемы) информационного обеспечения входят в состав любой автоматизированной управляющей системы и являются ее важнейшими компонентами.
• Информационно-справочная система создает информационную среду, обеспечивающую формирование высокой информационной культуры в университетском сообществе и вне его, и создающую основу для информационно-технологического обеспечения образовательно-научной и административно-управленческой деятельности.
• Основные задачи курсовой работы:
• 1. Разработка информационно-справочной системы Регистратура
• 2. Реализация следующих возможностей таких как:

- Вывод самого болеющего ребенка;

- Вывод кто больше болеет - мальчики или девочки;

- Вывод списка детей, проживающих на заданной улице.

3. Реализация следующих процедур таких как:

- Ввод данных с файла и чтение в файл

- Обработка данных (добавление и удаление записей)

- Поиск информации

- Вывод упорядоченной информации (вывод результатов)

- Выход из программы

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

Составить программу согласно варианту задания с разработкой процедур(функций). В программе должно быть предусмотрено главное меню со следующими пунктами (примерный перечень)

1. Ввод данных (ввод данных с клавиатуры, чтения данных с файла [предусмотреть запись данных в файл, чтение данных из файла]).

2. Обработка данных (добавление и удаление записей)

3. Поиск информации

4. Вывод упорядоченной информации (вывод результатов)

5. Выход из программы

Регистратура

Структура элемента массива ребенок: фамилия, место жительства - город, улица, дом, квартира, пол, количество дней посещения. Определить:

самого болеющего ребенка;

кто больше болеет - мальчики или девочки;

список детей, проживающих на заданной улице.

2. Анализ предметной области

2.1 Описание входных переменных

В курсовой работе я использовал структурированный комбинированный тип данных запись

Входные переменные:

TLocation - запись о местонахождении ребенка

TChild - запись о ребенка

Ftown - город

FStreat - улица

Loc - переменная записи TLocation в записи TChild

Fhouse - дом

Fflat - квартира

FSurname - фамилие ребенка

Gender - пол ребенка

KDP - количество дней посещения

Vibor - перемення для выбора пункта меню

F - файловая переменная для записи и считывании информации

Child - имя массива записей

Zap - переменная записи записей

Fami - переменная для поиска записи

N - количество записей в массиве

t - переменная целого типа отвечающая за поиск

2.2 Описание логической структуры программы

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

3. Описание подпрограмм

1.Процедура ввода записей в файл

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

2. Процедура чтение записи из файла

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

3. Процедура добавление записей

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

4. Процедура удаление записи

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

5. Процедура поиска информации

6.Процедура вывода результатов

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

4. Описание программы

В курсовой работе разработаны такие процедуры как:

1) vvod

2) chten

3) dobav

4) delete

5) poisk

6) ill_child

7) disease

8) streat

Процедура vvod осуществляет ввод записи с клавиатуры в типизированный файл

Процедура chten осуществляет чтение с типизированного файла записей

Процедура dobav осуществляет добавление записи в типизированный файл

Процедура delete осуществляет удаление записи

Процедура poisk осуществляет поиск записи по конкретному ключевому полю

Процедура ill_child выводит информацию о самом больном ребенке

Процедура disease выводит информацию о том, кто больше болеет - мальчики или девочки

Процедура streat выводит список детей, которые проживают на заданной улице

5. Вывод и загрузка программы

В курсовой работе для разработки приложения я использовал среду PascalABC.Net. Чтоб эта программа работала, нужна дополнительная программа Microsoft NetFramework. Для работы с этой программой нужно выбрать в меню Файл -> Новый. И потом после этого можете написать код в зависимости от поставленной задачи. Чтоб запустить написанный Вами код надо нажать на кнопку выполнить.

6. Описание выходных данных

При первом запуске программы требуется выбрать пункт 1 чтоб ввести количество записей в файле, и потом можно работать со следующими пунктами.

Чтение записей из типизированного файла

Добавление записи в файл:

информация запись справочный

Удаление 4 записи

Поиск записи из файла

Вывод результатов:

1) Самый больной ребенок

2) Кто больше болеет - мальчики или девочки

3) Список детей, проживающих на заданной улице

Выход с приложения

Выводы

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

Список использованной литературы

1) Турбо Паскаль 7.0. Для пользователя: Учебное пособие К.: BHV, 2000

2) Учебное пособие Турбо Паскаль. Начальный курс. М.: Нолидж, 1999

3) Фаронов В.В. Турбо Паскаль. Практика программирования: Учебное пособие М.: Нолидж, 2000

Интернет ресурсы:

http://progopedia.ru/language/pascal/ - Pascal Энциклопедия языков програмирования

http://itteach.ru/pascal/pascal-zapis-record - Паскаль - Запись(record)

http://www.cyberguru.ru/pascal/turbopascal-encyclopaedia.html - Энциклопедия Паскаль

Додаток A. Листинг программы

program Registratura;

uses

crt;

type

Tlocation =record

Ftown:string[15];

FStreat:string[20];

Fhouse:byte;

Fflat:byte;

end;

type

TChild = record

FSurname: string[15];

Loc:Tlocation;

gender:char;

KDP:word;

end;

var

Child: array[1..100] of TChild;

Zap: TChild;

f: file of TChild;

vibor: byte;

fami: string[30];

n, t: integer;

{----------------------------------------------------------------------------}

procedure vvod;

var

i: integer;

begin

clrscr;

Assign(f, 'rebenok.dat');

rewrite(f);

Write('Введите количество детей: ');

readln(n);

for i := 1 to n do

begin

writeln('Введите', ' ', i, ' ', 'ребенка ');

with Zap do

begin

write('|Введите фамилию ребенка................|- '); readln(Fsurname);

write('|Введите город...........................|- '); readln(Loc.Ftown);

write('|Введите название улицы.................|- '); readln(Loc.FStreat);

write('|Введите номер дома......................|- '); readln(Loc.Fhouse);

write('|Введите номер квартиры..................|- '); readln(Loc.Fflat);

write('|Введите пол ребенка(м/ж)................|- '); readln(gender);

write('|Введите количество дней посещения...|- '); readln(KDP);

writeln;

write(f, Zap);

end;

end;

close(f);

end;

{---------------------------------------------------------------}

procedure chten;

var

i: integer;

begin

clrscr;

assign(f, 'rebenok.dat');

reset(f);

i := 1;

while not (eof(f)) do

begin

read(f, Child[i]);

writeln('______________________________________________________');

writeln(i,Child[i].FSurname:15,'|',Child[i].Loc.Ftown:8,'|',Child[i].Loc.FStreat:8,'|',Child[i].Loc.Fhouse:12,'|',Child[i].Loc.Fflat:10,'|',Child[i].gender:5,'|',Child[i].KDP:3,'|');

i := i + 1;

end;

close(f);

n := i - 1;

end;

{----------------------------------------------------------------}

procedure dobav;

var

i: integer;

begin

clrscr;

rewrite(f);

for i := 1 to n do

write(f, Child[i]); //Записываем в массив записей

Writeln('Введите ', ' ', n + 1, ' ', 'ребенка');

with Zap do

begin

write('|Введите фамилию ребенка................|- '); readln(Fsurname);

write('|Введите город...........................|- '); readln(Loc.Ftown);

write('|Введите название улицы.................|- '); readln(loc.FStreat);

write('|Введите номер дома......................|- '); readln(Loc.Fhouse);

write('|Введите номер квартиры..................|- '); readln(Loc.Fflat);

write('|Введите пол ребенка(м/ж)................|- '); readln(gender);

write('|Введите количество дней посещения...|- '); readln(KDP);

writeln;

write(f, Zap);

end;

close(f);

end;

{----------------------------------------------------------------}

procedure delete;

var

i: integer;

begin

clrscr;

i := 1;

assign(f, 'rebenok.dat');

reset(f);

while not eof(f) do

begin

read(f, Child[i]);

i := i + 1

end;

close(f);

write('Выберите номер удаляемой записи которую вы хотите: ');

readln(n);

reset(f);

seek(f, filesize(f) - 1);{ Ставим указатель перед последним компонентом }

read(f, Child[i]);

seek(f, n - 1); { Ставим указатель перед удаляемым файлом }

write(f, Child[i]);{ Записываем конечный компонент вместо удаляемого }

{ убираем последний элемент файла }

seek(f, filesize(f) - 1);{ Ставим указатель перед последним компонентом }

truncate(f);{ Отсекаем последний компонент }

Writeln('Удаление прошло успешно!!!');

end;

{----------------------------------------------------------------}

procedure poisk;

begin

clrscr;

write('Введите фамилию ребенка: ');

readln(fami);

reset(f);

t := 0;

while not eof(f) do

begin

read(f, Zap);

if Zap.FSurname = fami then{если фамилия совпала}

begin

t := 1;{фиксируем}

writeln('Найден ребенок с такой фамилией!!!');

Writeln('Выводим запись');

writeln(Zap.FSurname:10,'|',Zap.Loc.Ftown:8,'|',Zap.Loc.FStreat:8,'|',Zap.Loc.Fhouse:12,'|',Zap.Loc.Fflat:10,'|',Zap.gender:5,'|',Zap.KDP:15,'|');

end;

end;

if t = 0 then writeln('Такого ребенка нету!!!');{если нет совпадений}

close(f);

end;

{--------------------------------------------------------------}

procedure ill_child;

var i:integer;

min_d:integer;

maxid:integer;

begin

ClrScr;

maxid:=1;

min_d:=365;

for i:=2 to n do

begin

if (Child[i].KDP<min_d) then

begin

maxid:=i;

min_d:=Child[i].KDP;

end;

end;

if min_d=365 then writeln('Детей нет')

else

writeln('Самый больной ребенок: '+Child[maxid].FSurname);

end;

//---------------------------------------------------------

procedure disease;//процедура болезнь

var i,s_day_mal,s_day_dev:integer;

begin

ClrScr;

s_day_mal:=0;

s_day_dev:=0;

for i:=1 to n do begin

if Child[i].gender='м' then

s_day_mal:=s_day_mal+Child[i].KDP

else s_day_dev:=s_day_dev+Child[i].KDP;

end;

if s_day_dev<s_day_mal then writeln('Девочки болеют больше');

if s_day_dev>s_day_mal then writeln('Мальчики болеют больше');

if s_day_dev=s_day_mal then writeln('Девочки и мальчики болеют одинаково');

end;

procedure streat;

var str:string[35];

i:integer;

Key:boolean;

begin

ClrScr;

Write('Введите название улицы: ');

Readln(str);

for i:=1 to n do

if Pos(Child[i].Loc.FStreat,str)>0 then

begin

writeln(Child[i].FSurname);

Key:=true;

end;

if Key=false then

begin

writeln('Дети не проживают на этой улице');

end;

end;

begin

ClrScr;

repeat

Writeln('Выбор действия');

Writeln('1-Ввод новых данных');

Writeln('2-Чтение данных');

Writeln('3-Добавление записей');

Writeln('4-Удаление записи');

Writeln('5-Поиск информации');

Writeln('6-Самый больной ребенок');

Writeln('7-Кто больше болеет - мальчики или девочки');

writeln('8-Cписок детей, проживающих на заданной улице');

writeln('9-Выход');

readln(vibor);

case vibor of

1: vvod;

2: chten;

3: dobav;

4: delete;

5: poisk;

6: ill_child;

7:disease;

8:streat;

9:begin

writeln('Нажмите Enter для выхода');

Readln;

exit;

end

else

begin

writeln('Нажмите Enter и повторите ваш ввод');

Readln; end;

end

until (vibor=9);

end.

Размещено на Allbest.ru