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

Содержание

• Введение
• 1. Постановка задачи
• 2. Анализ предметной области
• 2.1 Описание входных переменных
• 2.2 Описание логической структуры программы
• 3. Описание подпрограмм
• 4. Описание программы
• 5. Вывод и загрузка программы
• 6. Описание выходных данных
• Выводы
• Список использованной литературы
• Приложение. Листинг программы

Введение

Цель моей курсовой работы разработать информационно-справочную систему Регистратура.

Данный курсовой проект посвящен разработке информационно-справочной подсистемы.

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

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

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

Основные задачи курсовой работы:

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 Описание логической структуры программы

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

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

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

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

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

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

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



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) Самый больной ребенок

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

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

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

Выводы

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

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

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

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

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

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

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

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

Приложение. Листинг программы

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