Курсовая: Разработка информационно-справочной системы "Зарплата по НИР" - текст курсовой. Скачать бесплатно.
Банк рефератов, курсовых и дипломных работ. Много и бесплатно. # | Правила оформления работ | Добавить в избранное
 
 
   
Меню Меню Меню Меню Меню
   
Napishem.com Napishem.com Napishem.com

Курсовая

Разработка информационно-справочной системы "Зарплата по НИР"

Банк рефератов / Программирование

Рубрики  Рубрики реферат банка

закрыть
Категория: Курсовая работа
Язык курсовой: Русский
Дата добавления:   
 
Скачать
Архив Zip, 26 kb, скачать бесплатно
Обойти Антиплагиат
Повысьте уникальность файла до 80-100% здесь.
Промокод referatbank - cкидка 20%!

Узнайте стоимость написания уникальной работы







Задание N П-1



На курсовое проектирование по дисциплине "Логическое прог-

раммирование". Студенту Синельникову А.Г. гр. ИЖ-1-95.


1. Тема исследований:

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


2. Исходные данные:

из базы В1 с записями вида

-----------------------------------------------------------------

Зарплата по НИР

-----------------------------------------------------------------

ФИО | |Зарплата|выдано по кварталам| |

---------------|Каф.|по |-------------------|всего|остаток

Фамилия|Имя|Отч| |НИР |I |II |III |IV | |

-----------------------------------------------------------------

создать базу В2 с признаками, задаваемыми с дисплея. Для базы В1

предусмотреть режимы: сохранения, просмотра-добавления, загрузки,

корректировки; для В2 - режимы: просмотра и сохранения.

Язык программирования Пролог.


3. Перечень вопросов, подлежащих разработке:

3.1 Разработка меню, обеспечивающее взаимодействие пользовате-

ля с системой, в соответствии с заданием, предусмотрев ре-

жимы:

- корректировки данных,

- удаления данных,

- просмотра базы,

- загрузки базы,

- сохранения базы,

- создания новой базы,

- ввода новых данных.

3.2 Разработка процедур:

- корректировки данных,

- удаления данных,

- просмотра базы,

- загрузки базы,

- сохранения базы,

- создания новой базы,

- ввода новых данных.


4. Перечень графических материалов:

4.1 структурная схема меню

4.2 структурная схема программы.


5. Календарный план-график работы над курсовой работой:

1. Получение задания

4.10.96

2. Анализ задания, постановка задачи, подбор и изучение лите-

ратуры

18.10.96

3. Разработка меню и структуры программы

25.10.96

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

15.11.96

5. Отладка программы

29.11.96

6. Оформление пояснительной записки и сдача работы на проверку

13.12.96

7. Защита курсовой работы

20.12.96





Руководитель /Холкин И.И./

Студент /Синельников А.Г., ИЖ-1-95/
















































_AСодержание

_@стр.

Введение .................................. 4

1. Понятие об информационных системах и их

программной реализации ................. 5

2. БД и способы ее представления .......... 5

3. Разработка системного меню ............. 6

4. Разработка структуры программы ......... 7

5. Разработка процедур:

5.1 Управления основным меню ........... 8

5.2 Загрузки базы ...................... 8

5.3 Корректировки базы ................. 9

5.4 Удаления данных ....................10

5.5 Ввода новых данных .................10

5.6 Просмотра базы .....................10

5.7 Создания новой базы ................10

6. Текст программы ........................12

7. Отладка программы ......................18

8. Инструкция пользователя и решение

контрольных примеров: ..................18

8.1 Заполнение БД ......................20

8.2 Сохранение БД ......................20

8.3 Создание новой БД ..................20

8.4 Загрузка БД ........................20

Заключение ................................21

Список литературы .........................22



















_@Введение


Сегодня, в век высоких технологий, особое внимание уделяет-

ся информации и ее обработке.

С появлением компьютерной техники появилась возможность ве-

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

раскрываются принципы создания и ведения баз данных.

Курсовая работа состоит из нескольких частей: общие принци-

пы информационных систем, разработка информационных систем (на

примере системы "Зарплата по НИР") и инструкции по использованию

системы "Зарплата по НИР".

В первой части курсовой (главы 1 и 2) раскрываются общие

принципы информационных систем и Баз Данных (БД), рассказывается о

программной реализации систем и БД. В этой же части будет расска-

зано о способах построения БД.

Во второй части (главы 3-7) рассказывается об принципах соз-

дания программ для обработки БД: создания интерфейса пользовате-

ля, сохранения БД и т.д. Так же будет рассказано об отладке прог-

раммы. В конце второй части приведен текст программы "Зарплата по

НИР". Текст программы приведен для Turbo-Prolog v2.0.

В третьей части показаны инструкции по использованию инфор-

мационной системы "Зарплата по НИР".

































_@ 1. Понятие об информационных системах и

_@их программной реализации


Информационные системы - это системы, которые информируют

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

века. Например: информационная система "Зарплата по НИР", в кото-

рой содержится информация о сотрудниках разных кафедр, которые

ведут научные исследования.

Оболочка информационной системы - это программа, которая

обеспечивает удобное взаимодействие пользователя и системы.

Пользователь, при помощи оболочки, может получить любую интере-

сующую его информацию.

Язык Пролог предостовляет довольно большие возможности для

программной реализации оболочки информационной системы. Он пре-

доставляет такие средства как:

- загрузка базы данных системы с диска (стандартный преди-

кат _@consult__);

- запись базы на диск (предикат _@save__);

- добавление в базу новых данных (предикаты _@asserta__ и

_@assertz__);

- удаление данных из базы (предикат _@retract__) и др.

Сочитание всего этого позволяет создавать довольно мощные

информационные системы.


_@2. База данных и способы ее представления


База Данных (БД) - это информация, представленная в виде

двумерных таблиц. БД содержит множество строк, каждая из которых

соответствует объекту. Для каждого объекта используются опреде-

ленные независимые позиции, которые называются __полями__. Предста-

вим себе такую БД, содержащую строки и столбцы (простейший слу-

чай). Каждая строка, называемая так же __записью__, соответствует оп-

ределенному объекту. Каждый столбец содержит значения соответ-

ствующих данных об объекте. Например - телефонная книжка:

-------------------------------------------

|Фамилия |Имя |Отчество |Телефон |

-------------------------------------------

Иванов Иван Иванович 000-00-00

Петров Петр Петрович 111-11-11

-------------------------------------------

БД может состоять не из одной таблицы, а из двух, трех и бо-

лее. Дополнительную информацию об объекте можно хранить в допол-

нительных таблицах.

Одно из мощных средств БД состоит в том, что информацию мож-

но упорядочивать по тому критерию, который задает пользователь.

В Прологе БД представлется в виде списка термов вида:

_@ имя_предиката_базы(поля_записи)__.

Имена БД описываются в разделе _@DATABASE__. Доступ к записям БД

осуществляется с помощью предиката базы. Пролог предостовляет до-

вольно много средств по работе с такими БД: загрузка, запись, до-

бавление и т.д.




_@3. Разработка системного меню


Системное меню или основное меню должно обеспечивать удоб-

ное взаимодействие пользователя с программой. В меню должны вой-

ти пункты сохранения, просмотра, ввода новых данных и т.д.

Пользователю нужно всего лишь нажать цифру, символизирующую ту

или иную операцию. В меню данной программы присутствует восемь

пунктов:

0 - О пpогpамме... - вывод данных о программе

1 - коррекция данных - режим корректировки данных

2 - удаление данных - режим удаления данных

3 - просмотр базы - режим просмотра базы

4 - загрузка базы - режим загрузки другой базы

5 - сохранение базы - режим сохранения базы

6 - создание новой базы - режим создания новой базы

7 - ввод новых данных - режим ввода данных

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


Некоторые режимы предусматривают варианты выполнения данной

операции. Представим структуру меню на следующей схеме:

?????????????????

? Основное меню ?

?????????????????

? ?????????????

????О программе?

? ?????????????

? ??????????????????

????Коррекция данных?

? ??????????????????

? ?????????????????

????Удаление данных?

? ?????????????????

? ???????????????

????Просмотр базы?

? ???????????????

? ???????????????

????Загрузка базы?

? ???????????????

? ? ????????????????????????????

? ????Загрузка из файла ALEX.DAT?

? ? ????????????????????????????

? ? ??????????????????????????????

? ????Загрузка из указанного файла?

? ??????????????????????????????

? ?????????????????

????Сохранение базы?

? ?????????????????

? ? ????????????????????????

? ????Запись в файл ALEX.DAT?

? ? ????????????????????????

? ? ?????????????????????????

? ????Запись в указанный файл?

? ?????????????????????????

? ?????????????????????

????Создание новой базы?

? ?????????????????????

? ? ????????????????????????????????????

? ????Создание базы по именам и кафедрам?

? ? ????????????????????????????????????

? ? ????????????????????????????????

? ????Создание базы "все о зарплате"?

? ? ????????????????????????????????

? ? ???????????????????????

? ????Выход в основное меню?

? ???????????????????????

? ???????????????????

????Ввод новых данных?

? ???????????????????

? ????????????????????

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

????????????????????




_@4. Разработка структуры программы


Структура программы должна разрабатываться с учетом дальней-

шей ее отладки, т.е. попытать разбить ее на несколько логических

блоков, например:


_AСтруктура программы ALEX - "Зарплата по НИР"


?????????????????????????????

? Процедура загрузки базы и ?

? управления основным меню ?

?????????????????????????????

?

?????????????????????????????

? Процедуры выполнения ре- ?

? жимов, представленных в ?

? основном меню ?

?????????????????????????????

?

?????????????????????????????

? Процедуры создания новой ?

? базы ?

?????????????????????????????

?

?????????????????????????????

? Процедура просмотра новой ?

? базы ?

?????????????????????????????

?

?????????????????????????????

? Процедура REPEAT ?

?????????????????????????????


Подобное разбиение позволит в дальнейшем легко вносить изме-

нение в программу, а также расставлять контрольные точки для от-

ладки. Отладку мы рассмотрим в п. 7. Так же рекомендуется перед

каждой процедурой ставить комментарии, поясняющие функцию проце-

дуры. Это поможет легко отыскать ту или иную процедуру.



_@5. Разработка процедур


_@5.1 Процедура управления основным меню__ _@(PATH)


Как уже говорилось основное меню должно обеспечивать удоб-

ное взаимодействие пользователя с программой. Для этого необходи-

мо разработать вид основного меню и способ управления им. Был

выбран циферный способ управления меню, т.е. пользователь будет

вводить цифру, символизирующую ту или иную операцию. Надо так же

представить в меню все операции, выполняемые программой, и прис-

воить каждой операции номер (цифру).

Представим вид меню:


????????????????????Зарплата по НИР?????????????????????????

? ?

? ?

? 0 - О пpогpамме... ?

? 1 - коррекция данных ?

? 2 - удаление данных ?

? 3 - просмотр базы ?

? 4 - загрузка базы ?

? 5 - сохранение базы ?

? 6 - создание новой базы ?

? 7 - ввод новых данных ?

? 8 - выход из программы ?

? >_ ?

? ?

? ?

????????????????????????????????????????????????????????????

После вывода в окне меню происходит ввод целочисленной пере-

менной _@Choice__ и если значение переменной попадает в промежуток от

0 до 8, то выполняется процедура _@process(Choice)__. После выполне-

ния процедуры _@process(Choice)__ снова повторяется ввод переменной

_@Choice__.


_@ 5.2 Процедура загрузки базы


В программе ALEX - "Зарплата по НИР" определены процедуры

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

смотрим каждую процедуру в отдельности.


_@ _AПроцедура начальной загрузки базы (LOAD)


С помощью этой процедуры происходит загрузка базы сразу пос-

ле запуска программы.

Сначала происходит поиск файла "alex.dat" с помощью предика-

та _@existfile__ и если он существует, то происходит загрузка этого

файла во внутреннюю базу _@ALEX__ с помощью предиката _@consult__. Если

же файл не найден, то производится вывод сообщения о его отсут-

ствии и программа переходит в режим основного меню.


_AПроцедура загрузки базы с участием пользователя


Эта процедура вызывается из процедуры управления основным

меню с помощью команды _@PROCESS(4). __Она имеет свое меню вида:


????????????????Загрузка????????????????????

? Загрузить из файла ALEX.DAT - 1 ?

? Загрузить из указанного файла - 2 ?

? >_ ?

? ?

? ?

????????????????????????????????????????????,

т.е. пользователю предлагается два варианта загрузки базы.

После вывода в окне этого меню происходит ввод целочислен-

ной переменной _@WHAT __и в зависимости от ее содержания производит-

ся одна из представленных операций.

Первый вид загрузки полностью аналогичен загрузке, описан-

ной в процедуре _@LOAD.

Второй вид предполагает ввод имени. После ввода имени файла

в переменную _@FNAME __происходит поиск файла и если он найден, то

очищается содержимое базы _@ALEX__, с помощью предиката

_@retractall(_,alex)__, и база загружается из указанного файла.


_@5.3 Процедура корректировки базы


Эта процедура должна обеспечивать удобную корректировку за-

писей базы данных. Она вызывается из процедуры управления основ-

ным меню командой _@PROCESS(1)__.

После входа в режим корректировки базы из базы _@ALEX __берется

первая запись с помощью предиката базы данных

_@alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST) __и происходит вы-

вод на экран всех полей записи, после чего выводится запрос о

корректировке текущей записи и ожидается ввод переменной _@WHAT__,_@ __и

в зависимости от ее содержания (1 или 0) производится корректи-

ровка записи (1) или переход к следующей записи (0). Представим

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


??????????????????Коррекция данных???????????????????????

? Фамилия:Иванов (FIO) ?

? Имя:Иван (NAME) ?

? Отчество:Иванович (OT) ?

? Название кафедры:история (KAF) ?

? Зарплатa по НИР:300 (NIR) ?

? Выдано за I квартал:50 (K1) ?

? Выдано за II квартал:40 (K2) ?

? Выдано за III квартал:50 (K3) ?

? Выдали за IV квартал:60 (K4) ?

? Всего выдано:200 (TOTAL) ?

? Остаток:100 (OST) ?

? ?

? Будете корректировать ? (1-да 0-нет) ?

. .

. .

?????????????????????????????????????????????????????????

При вводе единицы происходит ввод каждого поля записи и пос-

ле ввода текущая запись удаляется, и в базу добавляется откоррек-

тированный вариант записи.

При вводе нуля осуществляется переход к следующей записи ба-

зы.


_@5.4 Процедура удаления данных


Эта процедура вызывается из процедуры управления основным

меню командой _@PROCESS(2). __Она полность аналогична процедуре кор-

ректировки данных, но работает на удаление записи из базы.


_@5.5 Процедура ввода новых данных


Эта процедура должна предоставлять удобный ввод новой запи-

си базы _@ALEX.

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

_@PROCESS(7).

После входа в режим ввода данных происходит запрос на ввод

каждого поля записи базы _@ALEX__. И после ввода новая запись добав-

ляется в конец базы с помощью стандартного предиката

_@assertz(alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST)).


_@5.6 Процедура просмотра базы


В программе ALEX - "Зарплата по НИР" определены процедуры

просмотра основной базы _@ALEX __и просмота созданной базы. Процеду-

ра создания новой базы рассмотрена в п.5.7.

Обе этих процедуры полностью аналогичны поэтому рассмотрим

их общие свойства.


Эта процедура должна обеспечивать удобный просмотр базы дан-

ных. Она вызывается из процедуры управления основным меню коман-

дой _@PROCESS(3).

После входа в режим просмотра базы происходит вывод шапки

таблицы (вид таблицы взят из задания) и далее с помощью предика-

та _@alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST) __происходит

взятие первой записи базы _@ALEX __и распечатка каждого поля записи в

виде таблицы. Для этого курсор пермещается к началу вывода каж-

дой записи с помощью предиката _@CURSOR. __Процедура выполняется до

тех пор пока не кончатся все записи в базе.

При просмотре созданной базы происходит работа с записями

базы _@ALEX1__. Процедура просмотра созданной базы - _@viewbase__.


_@5.7 Процедура создания новой базы


Эта процедура должна обеспечивать удобное создание новой ба-

зы из основной с заданными признаками. Она вызывается из процеду-

ры упрвления основным меню командой _@PROCESS(6)__.

Процедура имеет свое меню вида:


??????????????Создание новой базы??????????????????

? Создать базу по именам и кафедрам - 1 ?

? Создать базу 'все о зарплате' - 2 ?

? Выход в меню - 3 ?

? >_ ?

? ?

? ?

???????????????????????????????????????????????????,

т.е. пользователю предлагается выбор создания одной из двух баз,

а так же выход из режима.

После вывода в окне этого меню происходит ввод целочислен-

ной переменной _@WHAT __и в зависимости от ее содержания производит-

ся одна из представленных операций.


_A Создание базы по именам и кафедрам


Из основной базы _@ALEX __берется каждая запись и добавляется во

вторую базу _@ALEX1 __с удалением из нее полей, содержащих информа-

цию о зарплате. Процесс создания этой базы обеспечивает процеду-

ра _@newbase(1)__, которая вызывается из процедуры создания базы. За-

тем_@ __следует просмотр созданной базы с помощью процедуры _@viewbase__.


_AСоздание базы 'все о зарплате'


Из основной базы _@ALEX __берется каждая запись и добавляется во

вторую базу _@ALEX1 __с удалением из нее полей, содержащих информа-

цию об имени и кафедре. Процесс создания этой базы обеспечивает

процедура _@newbase(2)__, которая вызывается из процедуры создания

базы. Затем_@ __следует просмотр созданной базы с помощью процедуры

_@viewbase__.


После создания каждой базы происходит запись созданной базы

на диск под именем "ALEX1.DAT".






















_@6. Текст программы


DOMAINS

i=integer

s=symbol


DATABASE-alex

alex(s,s,s,s,i,i,i,i,i,i,i)


DATABASE-alex1

alex1(s,s,s,s,i,i,i,i,i,i,i)


PREDICATES

start

load

path

process(i)

newbase(i)

repeat

viewbase


GOAL

start.


CLAUSES


/* процедура создания основного меню и загрузки базы данных */

start:-

makewindow(1,2,7,"ЗАРПЛАТА ПО НИР",0,0,25,80),

clearwindow,

load,

path.


/* процедура поиска и загрузки файла содержащего базу данных */

load:-

existfile("alex.dat"),

consult("alex.dat",alex),

cursor(1,2),

write("База загружена").

load:-

cursor(1,2),

write("Нет базы на диске").


path:-

repeat,

cursor(7,0),

write(" 0 - О пpогpамме... "),nl,

write(" 1 - коррекция данных"),nl,

write(" 2 - удаление данных"),nl,

write(" 3 - просмотр базы"),nl,

write(" 4 - загрузка базы"),nl,

write(" 5 - сохранение базы"),nl,

write(" 6 - создание новой базы"),nl,

write(" 7 - ввод новых данных"),nl,

write(" 8 - выход из программы"),nl,

write(" >"),

readint(Choice),

Choice >= 0,

Choice < 9,

clearwindow,

process(Choice),

clearwindow,

Choice = 9,

retractall(_),

removewindow.


/* О программе */

process(0):-

makewindow(1,7,4,"О пpогpамме...",10,10,10,60),nl,

write(" Инфоpмационно-спpавочная система"),nl,

write(" Зарплaта по НИР "),nl,

write(" Язык TURBO-PROLOG версия 2.0 "),nl,

write(" автоp:Синельников А.Г. "),nl,

write(" МИРЭА, гp.ИЖ-1-95 (C) 1996 г. "),nl,nl,

write(" Нажмите на любую клавишу"),

readchar(_),

removewindow.


/* процедура удаления данных */

process(2):-

makewindow(2,7,2,"Удаление данных",0,0,25,80),

alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST),

clearwindow,

write("Фамилия:",FIO),nl,

write("Имя:",NAME),nl,

write("Отчество:",OT),nl,

write("Название кафедры:",KAF),nl,

write("Зарплатa по НИР:",NIR),nl,

write("Выдано за I квартал:",K1),nl,

write("Выдано за II квартал:",K2),nl,

write("Выдано за III квартал:",K3),nl,

write("Выдали за IV квартал:",K4),nl,

write("Всего выдано:",TOTAL),nl,

write("Остаток:",OST),nl,nl,

attribute(4),

write("Удалить ? (1-да 0-нет) >"),attribute(7),

readint(WHAT),

WHAT=1,

nl,

retract(alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST)),

clearwindow;

WHAT=0,removewindow.


/* процедура просмотра содержимого базы данных */

process(3):-

makewindow(2,2,7,"Просмотp базы 'Зарплата по НИР'",0,0,25,80),

write("------------------------------------------------------------"),nl,

write(" ФИО | |Зарплата|выдано по кварталам| |"),nl,

write("------------|Каф.|по |-------------------|всего|остаток"),nl,

write("Фам.|Имя|Отч| |НИР |I |II |III |IV | |"),nl,

write("------------------------------------------------------------"),nl,

alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST),

cursor(Z,_),

cursor(Z,0),write(FIO),

cursor(Z,8),write(NAME),

cursor(Z,17),write(OT),

cursor(Z,26),write(KAF),

cursor(Z,34),write(NIR),

cursor(Z,43),write(K1),

cursor(Z,48),write(K2),

cursor(Z,53),write(K3),

cursor(Z,58),write(K4),

cursor(Z,63),write(TOTAL),

cursor(Z,69),write(OST),nl,

fail.

process(3):-

write("------------------------------------------------------------"),

nl,attribute(4),

write(" Нажмите на любую клавишу"),

attribute(2),

readchar(_),

removewindow.


/* процедура загрузки базы */

process(4):-

makewindow(2,15,4,"Загрузка",10,10,10,60),

write("Загрузить из файла ALEX.DAT - 1"),nl,

write("Загрузить из указанного файла - 2"),nl,

write(">"),

readint(WHAT),

WHAT=1,

retractall(_,alex),

consult("alex.dat",alex),

write("База загружена ..."),nl,

write(" Нажмите любую клавишу"),

readchar(_),!,removewindow;

WHAT=2,

write("Введите имя файла >"),readln(FNAME),

existfile(FNAME),

retractall(_,alex),

consult(FNAME,alex),

write("База загружена ..."),nl,

write(" Нажмите любую клавишу"),

readchar(_),!,removewindow;

nl,attribute(4),

write(" Файл не найден !!!"),attribute(7),

readchar(_),

removewindow.



/* процедура сохранения данных */

process(5):-

makewindow(2,15,4,"Запись",10,10,10,60),

write("Записать в файл ALEX.DAT - 1"),nl,

write("Записать в указанный файл - 2"),nl,

write(">"),

readint(WHAT),

WHAT=1,

save("alex.dat",alex),

write("База записана ..."),nl,

write(" Нажмите любую клавишу"),

readchar(_),!,removewindow;

WHAT=2,

write("Введите имя файла >"),readln(FNAME),

save(FNAME,alex),

write("База записана ..."),nl,

write(" Нажмите любую клавишу"),

readchar(_),!,removewindow.


/* процедура создания новой базы */

process(6):-

makewindow(2,2,7,"Создание новой базы",0,0,25,80),

write("Создать базу по именам и кафедрам - 1"),nl,

write("Создать базу 'все о зарплате' - 2"),nl,

write("Выход в меню - 3"),nl,

write(">"),readint(WHAT),

WHAT>0,WHAT<4>

removewindow,

newbase(WHAT).


/* процедура ввода новых данных */

process(7):-

makewindow(2,2,7,"Ввод новых данных",0,0,25,80),

write("Введите фамилию:"),readln(FIO),

write("Введите имя:"),readln(NAME),

write("Введите отчество:"),readln(OT),

write("Введите название кафедры:"),readln(KAF),

write("Введите зарплату по НИР:"),readint(NIR),

write("Сколько выдали за I квартал:"),readint(K1),

write("Сколько выдали за II квартал:"),readint(K2),

write("Сколько выдали за III квартал:"),readint(K3),

write("Сколько выдали за IV квартал:"),readint(K4),

TOTAL=K1+K2+K3+K4,

OST=NIR-TOTAL,

assertz(alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST)),

removewindow.


/* Процедура коррекции данных */

process(1):-

makewindow(2,7,2,"Коррекция данных",0,0,25,80),

alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST),

clearwindow,

write("Фамилия:",FIO),nl,

write("Имя:",NAME),nl,

write("Отчество:",OT),nl,

write("Название кафедры:",KAF),nl,

write("Зарплатa по НИР:",NIR),nl,

write("Выдано за I квартал:",K1),nl,

write("Выдано за II квартал:",K2),nl,

write("Выдано за III квартал:",K3),nl,

write("Выдали за IV квартал:",K4),nl,

write("Всего выдано:",TOTAL),nl,

write("Остаток:",OST),nl,nl,

attribute(4),

write("Будете корректировать ? (1-да 0-нет) >"),attribute(7),

readint(WHAT),

WHAT=1,

nl,

write("Введите фамилию:"),readln(FIO1),

write("Введите имя:"),readln(NAME1),

write("Введите отчество:"),readln(OT1),

write("Введите название кафедры:"),readln(KAF1),

write("Введите зарплату по НИР:"),readint(NIR1),

write("Сколько выдали за I квартал:"),readint(K11),

write("Сколько выдали за II квартал:"),readint(K21),

write("Сколько выдали за III квартал:"),readint(K31),

write("Сколько выдали за IV квартал:"),readint(K41),

TOTAL1=K11+K21+K31+K41,

OST1=NIR1-TOTAL1,

retract(alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST)),

assertz(alex(FIO1,NAME1,OT1,KAF1,NIR1,K11,K21,K31,K41,TOTAL1,OST1)),

clearwindow;

WHAT=0,removewindow.


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

process(8):-

makewindow(2,7,2,"Выход",10,10,3,60),

write("Вы уверены ? (1-да 0-нет) >"),readint(WHAT),

WHAT=1,exit;

WHAT=0,removewindow.


/* процедура создания новой базы */

newbase(1):-

makewindow(3,7,2,"Создание базы по именам и кафедрам",10,5,4,67),

retractall(_,alex1),

alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST),

FIO1=FIO,NAME1=NAME,OT1=OT,KAF1=KAF,

NIR1=0,K11=0,K21=0,K31=0,K41=0,TOTAL1=0,OST1=0,

assertz(alex1(FIO1,NAME1,OT1,KAF1,NIR1,K11,K21,K31,K41,TOTAL1,OST1)),

fail.


newbase(1):-

save("alex1.dat",alex1),

write("База создана. Нажмите любую клавишу для просмотра созданной базы."),

readchar(_),

viewbase,

removewindow,!.


newbase(2):-

makewindow(3,7,2,"Создание базы 'все о зарплате'",10,5,4,67),

retractall(_,alex1),

alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST),

FIO1="",NAME1="",OT1="",KAF1="",

NIR1=NIR,K11=K1,K21=K2,K31=K3,K41=K4,TOTAL1=TOTAL,OST1=OST,

assertz(alex1(FIO1,NAME1,OT1,KAF1,NIR1,K11,K21,K31,K41,TOTAL1,OST1)),

fail.


newbase(2):-

save("alex1.dat",alex1),

write("База создана. Нажмите любую клавишу для просмотра созданной базы."),

readchar(_),

viewbase,

removewindow,!.


/* процедура просмотра созданной базы */

viewbase:-

makewindow(4,2,7,"Просмотp созданной базы",0,0,25,80),

write("------------------------------------------------------------"),nl,

write(" ФИО | |Зарплата|выдано по кварталам| |"),nl,

write("------------|Каф.|по |-------------------|всего|остаток"),nl,

write("Фам.|Имя|Отч| |НИР |I |II |III |IV | |"),nl,

write("------------------------------------------------------------"),nl,

alex1(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST),

cursor(Z,_),

cursor(Z,0),write(FIO),

cursor(Z,8),write(NAME),

cursor(Z,17),write(OT),

cursor(Z,26),write(KAF),

cursor(Z,34),write(NIR),

cursor(Z,43),write(K1),

cursor(Z,48),write(K2),

cursor(Z,53),write(K3),

cursor(Z,58),write(K4),

cursor(Z,63),write(TOTAL),

cursor(Z,69),write(OST),nl,

fail.

viewbase:-

write("------------------------------------------------------------"),

nl,attribute(4),

write(" Нажмите на любую клавишу"),attribute(2),

readchar(_),

removewindow.


repeat.

repeat:- repeat.


/* конец программы */








_@7. Отладка программы


Отладка программы происходила следующим образом: расставля-

лись контрольные точки (с помощью стандартного предиката EXIT) и

происходил запуск программы. После выполнения программы, до кон-

трольной точки, происходил выход из программы и можно было на эк-

ране просмотреть результаты работы той или иной процедуры (на на-

чальном этапе программа разрабатывалась без оконного интерфейса).

Если процедура работала неправильно, то изменялась часть процеду-

ры и производился повторный запуск программы. Некоторые ошибки

"ловил" сам Пролог в процессе выполнения программы.

В основном ошибки попадались в процедурах сохранения баз.

Все ошибки были устранены. Попадались, так же, некоторые "глюки"

в процедуре просмотра базы, в основном из-за того, что не хвата-

ло строки для вывода записи, и поэтому было уменьшено количество

знакомест для каждого поля записи.

В остальных процедурах ошибок не было.


_@8. Инструкция пользователя и решение контрольных примеров


Программа ALEX представляет собой инструмент для ведения ба-

зы данных "Зарплата по НИР", а так же для обработки данных, пред-

ставленных в базе.

Программа позволяет создать базу и затем сохранить ее в ви-

де файла, а также откорректировать данные, удалить данные, ввес-

ти новые данные и создать новую базу данных по именам или зарпла-

там.

Взаимодействие с програмой осуществляется с помощью меню:


0 - О пpогpамме... - вывод данных о программе

1 - коррекция данных - режим корректировки данных

2 - удаление данных - режим удаления данных

3 - просмотр базы - режим просмотра базы

4 - загрузка базы - режим загрузки другой базы

5 - сохранение базы - режим сохранения базы

6 - создание новой базы - режим создания новой базы

7 - ввод новых данных - режим ввода данных

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


Чтобы войти в необходимый режим следует ввести цифру, стоя-

щую напротив названия режима.

Теперь опишем каждый пункт в отдельности.


_@О пpогpамме...


Вывод данных о программе.


_@Коррекция данных


Режим коррекции данных.

После входа в этот режим на экране появится первая запись и

вопрос "Будете корректировать ? (1-Да 0-Нет)". Если Вам надо от-

корректировать выведенную запись, то нажмите 1 и отвечайте на

запросы программы. Если Вам не надо корректировать выведенную за-

пись нажмите 2 и на экране распечатается следующая запись. После

вывода последней записи происходит выход в основное меню.


_@ Удаление данных


Режим удаления данных.

Этот режим полностью аналогичен предыдущему за исключением

того, что появляется вопрос "Удалить ? (1-Да 0-Нет)".


_@Просмотр базы


Режим просмотра базы.

Как только Вы войдете в этот режим на экране появится шапка

таблицы и под этой шапкой будут распечатаны все данные. После

окончания вывода таблицы нажмите любую клавишу для выхода в ос-

новное меню.


_@Загрузка базы


Режим загрузки базы.

После входа в этот режим появится еще одно меню:

Загрузить из файла ALEX.DAT - 1

Загрузить из указанного файла - 2

и Вам следует нажать цифру в зависимости от того, что Вы хотите

сделать. Если Вам надо загрузить базу из основного файла програм-

мы ALEX.DAT, то нажмите 1; если же Вы хотите загрузить базу из

другого файла, то нажмите 2. После загрузки базы происходит вы-

ход в основное меню.


_@Сохранение базы


Режим сохранения базы.

Этот режим полностью аналогичен режиму загрузки базы с од-

ним отличием - работает на сохранение базы в основной файл или

указанный.


_@Создание новой базы


Режим создания новой базы.

В этом режиме так же есть меню:

Создать базу по именам и кафедрам - 1

Создать базу 'все о зарплате' - 2

Выход в меню - 3

и Вам следует нажать цифру в зависимости от того какую базу Вы

хотите сделать. Если Вам надо создать базу только по именам и ка-

федрам, то нажмите 1; если же Вам надо сделать базу, содержащую

все данные о зарплате, то нажмите 2. Для выхода из режима созда-

ния нажмите 3.

После то как Вы указали какую базы надо сделать последует

просмотр созданной базы (см. режим просмотра базы). Затем нажми-

те любую клавишу для выхода в основное меню.

Созданная база сохраняется в файле ALEX1.DAT.


_@Ввод новых данных


Режим ввода новых данных.

В этом режиме производится ввод новых данных в уже создан-

ную базу или создание новой базы.

Фактически от Вас не требуется никаких действий кроме ввода

ответов на запросы программы.


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


Я думаю тут все понятно.





_@8.1 Заполнение БД


Чтобы заполнить базу в режиме основного меню нажмите цифру

"7" и отвечайте на запросы программы. Повторите эту процедуру

несколько раз для ввода нескольких записей.


_@ 8.2 Сохранение БД


Чтобы сохранить созданную базу в режиме основного меню наж-

мите цифру "5" и укажите в какой файл Вы хотите записать данные.


_@ 8.3 Создание новой БД


Если Вам надо создать новую базу но основе созданной базы -

нажмите клавишу "6" и укажите программе какую именно базу Вы хо-

тите создать.


_@ 8.4 Загрузка БД


Чтобы загрузить для дальнейшей обработки ранее созданную ба-

зу в режиме основного меню нажмите цифру "4" и укажите программе

откуда Вы хотите загрузить базу.



















_@Заключение


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

задачи и обсуждены общие принципы построения информационных сис-

тем и их реализации на языке Пролог.


















































_@Список литературы


И.Братко "Программирование на языке Пролог для

искусственного интеллекта"

Л.Стерлинг,Э.Шапиро "Искусство программирования

на языке Пролог"

Дж.Доорс "Пролог - язык программирования будущего"

1Авиация и космонавтика
2Архитектура и строительство
3Астрономия
 
4Безопасность жизнедеятельности
5Биология
 
6Военная кафедра, гражданская оборона
 
7География, экономическая география
8Геология и геодезия
9Государственное регулирование и налоги
 
10Естествознание
 
11Журналистика
 
12Законодательство и право
13Адвокатура
14Административное право
15Арбитражное процессуальное право
16Банковское право
17Государство и право
18Гражданское право и процесс
19Жилищное право
20Законодательство зарубежных стран
21Земельное право
22Конституционное право
23Конституционное право зарубежных стран
24Международное право
25Муниципальное право
26Налоговое право
27Римское право
28Семейное право
29Таможенное право
30Трудовое право
31Уголовное право и процесс
32Финансовое право
33Хозяйственное право
34Экологическое право
35Юриспруденция
36Иностранные языки
37Информатика, информационные технологии
38Базы данных
39Компьютерные сети
40Программирование
41Искусство и культура
42Краеведение
43Культурология
44Музыка
45История
46Биографии
47Историческая личность
 
48Литература
 
49Маркетинг и реклама
50Математика
51Медицина и здоровье
52Менеджмент
53Антикризисное управление
54Делопроизводство и документооборот
55Логистика
 
56Педагогика
57Политология
58Правоохранительные органы
59Криминалистика и криминология
60Прочее
61Психология
62Юридическая психология
 
63Радиоэлектроника
64Религия
 
65Сельское хозяйство и землепользование
66Социология
67Страхование
 
68Технологии
69Материаловедение
70Машиностроение
71Металлургия
72Транспорт
73Туризм
 
74Физика
75Физкультура и спорт
76Философия
 
77Химия
 
78Экология, охрана природы
79Экономика и финансы
80Анализ хозяйственной деятельности
81Банковское дело и кредитование
82Биржевое дело
83Бухгалтерский учет и аудит
84История экономических учений
85Международные отношения
86Предпринимательство, бизнес, микроэкономика
87Финансы
88Ценные бумаги и фондовый рынок
89Экономика предприятия
90Экономико-математическое моделирование
91Экономическая теория

 Анекдоты - это почти как рефераты, только короткие и смешные Следующий
Челябинский воздух настолько крут, что даже метеорит до земли долететь не сможет...
Anekdot.ru

Узнайте стоимость курсовой, диплома, реферата на заказ.

Обратите внимание, курсовая по программированию "Разработка информационно-справочной системы "Зарплата по НИР"", также как и все другие рефераты, курсовые, дипломные и другие работы вы можете скачать бесплатно.

Смотрите также:


Банк рефератов - РефератБанк.ру
© РефератБанк, 2002 - 2017
Рейтинг@Mail.ru