Использование массива данных о сотрудниках небольшой фирмы для создания программы. Введение информации, ее хранение в файле workers.dat. Процедуры и функции программы, дополнительные файлы, описание предметной области и алгоритма задачи, листинг.
Волжский университет имени В.Н.Татищева Кафедра “Информатика и системы управления” КУРСОВАЯ РАБОТА по дисциплине : “Алгоритмизация и языки программирования” Тема: База данных “Сотрудники” Выполнил: студент гр. ИС-104 Григорьев А. В. Преподаватель: Матвеева Н.В. Тольятти 2006 Оглавление 1. Задание, на основе которого выполняется курсовая работа Сотрудники ОПИСАНИЕ Программа должна использовать массив данных о сотрудниках небольшой фирмы (до 10 сотрудников). Программа содержит следующие процедуры и функции: • Новый сотрудник (предназначена для ввода данных о новом сотруднике и сохранении её в файле workers.dat); • Уволить (удаляет информацию об уволенном сотруднике из массива данных); • Просмотреть (позволяет просмотреть информацию о сотрудниках в алфавитном порядке); • Упорядочить (упорядочивает список сотрудников в порядке убывания величины оклада); • Найти (выводит на экран список сотрудников, работающих в указанной должности, например инженером). Описание предметной области В настоящее время появляется много новых маленьких и больших фирм и предприятий для регистрации и хранения данных о служащих фирмы или предприятия необходимо иметь специальную программу для того, чтобы упростить работу отдела кадров данного предприятия или фирмы. Приложение 1 Листинг программы program kursovaia; uses crt; const norm=$74; {цвет не выделенного пункта} norm1=$8; sel=$31; {цвет выделенного пункта} sel1=$15; type {-------------------описание записи----------------} Worker = ^base; base=record rnom:integer; {РЕГИСТРАЦИОННЫЙ НОМЕР} fam:string[20]; {ФАМИЛИЯ} name:string[20]; {ИМЯ} otch:string[20]; {ОТЧЕСТВО} date:string[20]; {ДАТА РОЖДЕНИЯ} pol:string[20]; {ПОЛ} stag:integer; {СТАЖ РАБОТЫ} adress:string[30]; {ДОМАШНИЙ АДРЕС} tel:integer; {ТЕЛЕФОН} dolg:string[20]; {ДОЛЖНОСТЬ} oklad:integer; {ОКЛАД} link:worker; {--------------------------------------------------} end; var Top,Cur,Next,Prev:Worker; menu:array[1 .. 11] of string[50]; {Меню} punkt:integer; {} ch,cc:char; {Введенный символ} sotrud:file of base; buf,buf1:base; {Два буфер обмена} k,m:char; p,n,x,y,i:integer; {} Procedure FileToDin; {Из файла в динам. память} begin top:=nil; Assign(sotrud,sotrudn.dat); {$I-} Reset(sotrud); If IOResult
Вы можете ЗАГРУЗИТЬ и ПОВЫСИТЬ уникальность своей работы
