Сведения о сотрудниках отдела

Пояснительная записка по курсовой работе по дисциплине «Программирование»

Работа допущена Работу выполнил студент

к защите учебной группы 15 -ЗИЭ

____________________ ____________А.А. Алексеев

(подпись и Ф.И.О.

руководителя работы)

____________ 2016 г.

Калининград, 2016

Аннотация

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

СОДЕРЖАНИЕ (страницы указаны в пределах курсовой работы)

Стр.

1. Описание постановки задачи

1.1. Характеристика задачи

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

1.2. Исходные данные

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

Структура элемента файла sved (дисковое имя – ‘sved.dat ’):

Фамилия (строка),

Название отдела (строка),

Год рождения (целое число),

Оклад (вещественное число)

Запрос пользователя представляет собой:

Год рождения (строка)

1.3. Результаты решения

Результатом решения задачи на ПК является таблица "Список сотрудниках отдела" (рис. 1.1), которая содержит:

Порядковый номер (целое число),

Фамилия (строка),

Название отдела (строка),

Оклад (вещественное число)

Данные в таблице располагаются в алфавитной порядке.

Список сотрудников отдела

Самый молодой сотрудник: …………

2. Описание проектных решений

2.1. Функциональная структура задачи, программы

На рис. 2.1 представлена схема иерархии процедур задачи Сведения о сотрудниках отдела, полученная в результате её декомпозиции.

Рис. 2.1 Схема иерархии процедур задачи

На рис. 2.2 представлена функциональная структура программы решения задачи, полученная на основе схемы иерархии ее процедур.

Рис. 2.2 Функциональная структура программы

Помимо основной программы с именем K_RABOTA, программа содержит следующие подпрограммы:

подпрограмму-процедуру zapros (VAR god: integer; VAR f: Boolean), которая обеспечивает ввод запроса – года рождения;

подпрограмму-процедуру proverka (god_zap: string; VAR f: Boolean), которая обеспечивает проверку запроса;

подпрограмму-процедуру obrab (god: integer; VAR rez: mas; VAR n: integer), которая обеспечивает обработку файла sved с целью получения массива фамилий, названий отделов и окладов сотрудников по запросу;

подпрограмму-процедуру sort (VAR rez: mas; n: integer), которая обеспечивает сортировку данных в алфавитном порядке по фамилиям;

подпрограмму-функцию molod (rez: mas; n: integer), которая определяет самого молодого сотрудника;

подпрограмму-процедуру vuvod (rez: mas; n: integer; fammol: string), которая обеспечивает вывод результатов на экран монитора.

2.2. Описание алгоритма задачи

На рис. 2.3. – 2.7 представлены схемы обобщенного алгоритма задачи Сведения о сотрудниках отдела и алгоритмов отдельных её процедур. Смысл используемых в них условных обозначений (имен, идентификаторов) приведен в табл. 2.1. Обобщенный алгоритм описывается в основной программе. Алгоритмы отдельных процедур – в соответствующих подпрограммах (см. 2.1.).

Таблица 2.1.

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

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

При написании программы решения задачи Сведения о сотрудниках отдела использовалась система (язык) программирования Турбо-Паскаль (версия 7.0.)

Функциональная структура программы (состав и взаимосвязь программных единиц исходного текста её – основной программы и подпрограмм) определена в 2.1.

Программа является описанием алгоритма задачи, приведенного в 2.2.

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

Исходный текст программы решения задачи Сведения о сотрудниках отдела (на языке Турбо-Паскаль, версия 7.0) приведен в приложении 1.

Рис. 2.3 Схема обобщенного алгоритма задачи Сведения о сотрудниках отдела

Рис. 2.4 Схема алгоритма выбора данных

Рис. 2.5 Схема алгоритма сортировки

…………………………………..

Рис. 2.6 Схема алгоритма запроса

……………………………………

Рис. 2.7 Схема алгоритма проверки запроса

3.3. Исполнение программы

Для исполнения программы решения задачи Сведения о сотрудниках отдела необходим ПК типа PC с клавиатурой и монитором. Программа предварительно откомпилирована, вызывается для исполнения стандартными средствами.

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

4. Описание результатов испытаний программы

В ходе испытаний (тестирования и контрольных примеров исполнения) программы решения задачи Сведения о сотрудниках отдела использовался тестовый файл, текст которого приведен в приложении 2 (программы создания и печати тестового файла приведен в приложении 3), а также запросы для разных вариантов решения задачи:

4) 1975

5) 2005

6) 1990

7) Авсд

8) …….

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

Приложение 1

Исходный текст программы решения задачи Сведения о сотрудниках отдела

PROGRAM K_RABOTA;

{Курсовая работа по Программированию

студента 15-ЗИЭ Алексеева А.А. Вариант 40}

TYPE zap=record

fam: string[20];

otdel: string[30];

god: integer;

oklad: real;

end;

mas = array [1..20] of zap;

VAR

sved: file of zap;

X: zap;

god_z, kol: integer;

fam_rez: mas ;

fam_mol: string [20];

f_z: boolean;

PROCEDURE proverka

(VAR g: integer; god_zap: string; VAR f: Boolean);

{Подпрограмма проверки запроса}

Var code: integer;

BEGIN

f:=false;

Val (god_zap, g, Code) ;

if Code=0 then

if ((g>=1940) and (g<=2000)) then f:=true;

end;

PROCEDURE zapros

(VAR god: integer; VAR f: Boolean);

{Подпрограмма ввода запроса}

VAR god_zap: string;

BEGIN

writeln('Введите год рождения');

readln ( god_zap);

proverka (god, god_zap, f);

end;

PROCEDURE obrab

(god: integer; VAR rez: mas; VAR n: integer);

{Подпрограмма выбора данных}

BEGIN

Assign(sved,'sved.dat');

reset (sved);

n:=0;

while not EOF (sved) do

begin

read(sved,x);

if (god<=x.god) then begin

n:=n+1;

rez[n]:=x;

end;

end;

close(sved);

END;

PROCEDURE SORT (VAR rez: mas; n: integer);

{Подпрограмма сортировки}

VAR

i,k:integer;

c:zap;

BEGIN

for i:=1 to n-1 do

for k:=i+1 to n do

if rez[i].fam<rez[k].fam then begin

c:=rez[i];

rez[i]:= rez[k];

rez[k]:=c;

end;

END;

FUNCTION MOLOD (rez: mas; n: integer): string;

{Подпрограмма определения фамилии самого молодого сотрудника}

Var maxgod: integer;

k,i: integer;

BEGIN

maxgod:=rez[1].god;

k:=1;

for i:=2 to n do

if rez[i].god>= maxgod then begin

maxgod:=rez[i].god;

k:=i;

end;

molod:=rez[k].fam;

END;

PROCEDURE VUVOD (rez: mas; n: integer; fammol: string);

{Подпрограмма вывода результата}

VAR

i: integer;

BEGIN

writeln;

writeln('Список сотрудников ');

writeln;

writeln('------------------------------------');

writeln('!N!Фамилия!Наимен-ние отдела!Оклад!');

writeln('------------------------------------');

for i:=1 to n do

writeln('!',i:2,'!',rez[i].fam:20,'!',

rez[i].otdel:30,'!', rez[i].oklad:10:2,'!');

writeln('------------------------------------');

writeln;

writeln ('Самый молодой сотрудник:', fammol:20);

END;

{ОСНОВНАЯ ПРОГРАММА}

BEGIN

zapros (god_z, f_z);

{Вызов процедуры ввода и проверки запроса}

if f_z=false then

writeln ('Вы ввели год меньше 1940,

или больше 2000, или текст')

Else

BEGIN

obrab (god_z,fam_rez, kol);

{Вызов процедуры выбора данных}

if kol=0 then writeln

(' Нет данных по введенному запросу')

Else

Begin

if kol>1 then SORT (fam_rez, kol);

{Вызов процедуры сортировки}

fam_mol:=molod (fam_rez, kol);

{Вызов функции определения фамилии}

{самого молодого сотрудника}

VUVOD(fam_rez, kol,fam_mol);

{Вызов процедуры вывода результатов}

end;

ЕND;

END.

Приложение 2

Текст тестового файла на магнитном диске

Приложение 3

Текст программ создания и печати тестового файла

program file_newtype;

USES CRT;

zap=record

fam: string[20];

otdel: string[30];

god: integer;

oklad: real;

end;

var

sved :file of zap;

X:zap;

k:integer;

begin

Assign(sved,'sved.dat');

rewrite (sved);

k:=0;

WRITELN ('Для ввода данных нажмите Enter');

WRITELN ('Для окончания работы нажмите *');

WHILE NOT (READKEY='*') DO

begin

writeln('Введите фамилию сотрудника');

readln(x.fam);

writeln('Введите название отдела');

readln(x.otdel);

writeln('Введите год рождения');

readln(x.god);

writeln('Введите оклад');

readln(x.oklad);

K:=k+1;

write(sved,x);

WRITELN ('Для ввода данных нажмите Enter');

WRITELN ('Для окончания работы нажмите *');

end;

writeln('Число записей в файле:',K:2); writeln;

reset(sved);

writeln('Данные файла'); writeln;

while not EOF (sved) do begin

read(sved,x);

writeln(x.fam:22,x.otdel:32,x.god:5,x.oklad:10:2);

end;

close(sved); end.

Приложение 4

Контрольные примеры исполнения программы

Пример 1. Запрос: 1975

Результат:

Список сотрудников

• ⇐ Назад
12