Программирование и основы алгоритмизации

Министерство науки и образования Российской Федерации

Рязанский государственный радиотехнический университет

Кафедра А.и Т.П.

Курсовая работа по дисциплине

«Программирование и основы алгоритмизации»

Выполнили:

Студенты группы №738

Буханова Е.К.

Фролова И.А.

Проверила:

Кузьмина Екатерина Михайловна

Рязань, 2018г.

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

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

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

1) Включение в список новых записей о сотрудниках с сохранением его упорядоченности;

2) Исключение из списка сотрудников;

3) Печать текущего содержимого;

4) Модификация записей в таблице;

5) Поиск нужных записей таблицы по номеру личного дела;

6) Окончание работы.

При выполнении работы, в качестве структуры данных была выбрана запись. Это связано с тем, что запись позволяет объединить несколько наборов данных под одним общим именем (в данной программе это Tsotrud ). При объявлении записи используют блок Type. В качестве хранилища данных использовался файл — физическая структура данных, предназначенная для хранения информации на внешних запоминающих устройствах (В.З.У). В отличии от массивов и записей, использование файлов в программе позволяет переносить данные с компьютера на компьютер, сохранять данные долговременно и считывать их по мере необходимости. В работе использовался текстовый файл. Код программы состоит из 6 процедур и основной программы.

Основная программа:

Program Kursovaya;

uses crt;

const

nmax = 15;

pr=' ';

type

Tsotrud = record

FIO: string[10];

N: integer;

Dolzh: string[10];

end;

var

A: array [1..nmax] of Tsotrud;

F: file of Tsotrud;

i,n,p: integer;

begin

assign(f, 'inf.txt');

n:=0;

p:=1;

While (p>=1) and (p<=7) do

begin

Writeln(' Выберете пункт меню');

Writeln(' 1 - добавление');

Writeln(' 2 - чтение из файла и печать');

Writeln(' 3 - исключение');

Writeln(' 4 - упорядочивание');

Writeln(' 5 - поиск');

Writeln(' 6 - печать содержимого массива');

Writeln(' 7 - модификация');

readln(p);

case p of

1: add;

2: printf;

3: delete;

4: upor;

5: search;

6: print;

7: corr;

end;

end;

rewrite(f);

for i:=1 to n do

Write (f, A[i]);

close (f);

end.

Основная программа выполняет роль меню, которое реализовано с помощью оператора case. В блоке const объявлено максимальное