Курсовая работа по теме: программирование с использованием записей и файлов

Скачать 479.7 Kb.

Название	Курсовая работа по теме: программирование с использованием записей и файлов
страница	1/4
Дата публикации	02.11.2014
Размер	479.7 Kb.
Тип	Курсовая

100-bal.ru > Математика > Курсовая

1 2 3 4

КУРСОВАЯ РАБОТА ПО ТЕМЕ:

ПРОГРАММИРОВАНИЕ С ИСПОЛЬЗОВАНИЕМ ЗАПИСЕЙ И ФАЙЛОВ

Для студентов заочного отделения ИСТз-31

Преподаватель: Тимовец А.Н.
Цель работы: обобщить знания по управляющим операторам языка Pascal; получить практические навыки работы с файлами, овладеть практическими навыками в организации ввода/вывода значений комбинированных типов данных, получить практические навыки программирования задач с использованием записей и файлов в среде Delphi.

В курсовой работе предусматривается разработка следующих вопросов:

постановка задачи в формализованном виде;
построение алгоритма решения задачи;
реализация алгоритма на ПК путем создания пользовательского программного продукта;
анализ результатов;
использование компьютерной модели для проведения испытаний;
анализ полученных данных и формулировка выводов;
создание пояснительной записки.

КР должна содержать следующие разделы:

- Титульный лист, название курса, название работы, подписи студентов;

(оформляется в соответствии с требованиями, действующими в БарГУ).

- Рецензия (пустой лист) .

- Лист задание.

- РЕФЕРАТ

- ОГЛАВЛЕНИЕ (должно строиться средствами редактора Word).

- ВВЕДЕНИЕ (содержит цель выполняемой работы, описываются средства и среды обработки математической модели и оформления курсовой работы).

- 1. ТЕОРЕТИЧЕСКАЯ ЧАСТЬ, в которую входят подразделы:

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

- 2. ПРАКТИЧЕСКАЯ ЧАСТЬ, в которую входят подразделы:

2.1Описание объектов, свойств, методов.

2.2 Формы и основные модули текста программы.

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

- ЗАКЛЮЧЕНИЕ (содержит краткие выводы по результатам КР и применения теоретических знаний в практическом программировании в рамках КР)

- CПИСОК ЛИТЕРАТУРЫ (должен быть оформлен согласно библиографическим требованиям).

-ПРИЛОЖЕНИЕ (полный текст программы)

- Программа на носителе (диск).

Требования к оформлению

Титульный лист пояснительной записки должен быть оформлен в соответствии с общими требованиями к оформлению курсовых работ, действующими в БарГУ; работа сдается в бумажном и электронном виде (на диске).

Текст курсовой работы (КР) должен содержать нумерацию страниц, разделов, глав и т.д., позволяющую получать оглавление в электронном виде. Рисунки и диаграммы должны быть выполнены стандартными средствами MS Office, Visio, Windows и содержать сквозную нумерацию и подписи.

Требования к программному обеспечению: программы должны быть реализованы стандартными средствами Delphi и сопровождаться соответствующей инструкцией по запуску и проведению вычислительного эксперимента. Программа должна содержать краткую справочную систему и пункт об авторе (About).

Носители - диск. Требования к сдаче работы: бумажная и электронная версия должны быть представлены в период указанный в листе задание к курсовой работе.

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

Требования к теоретической части

В качестве теоретической части КР должен быть рассмотрены основные аспектов обработки записей и файлов средствами Delphi. Студент должен свободно ориентироваться в представленном теоретическом материале.

Требования к практической части

Практическая часть КР должна содержать следующие разделы:

2. ПРАКТИЧЕСКАЯ ЧАСТЬ

Описание объектов, свойств, методов
Формы и основные модули текста программы.
Результаты тестирования программного продукта.

В практической части работы должны быть применены изложенные теоретические аспекты.

Подробно описать в подразделе 2.1. объекты, их свойства и методы, используемые при разработке проекта, демонстрирующего решение поставленных задач. В подразделе 2.2 показать основные формы проекта решения задачи и прокомментировать основные фрагменты модулей программы. В подразделе 2.3 показать результаты тестирования программного продукта с помощью подобранных тестов.

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

Изучить способы описания типа запись и файл на языке программирования Object Pascal в среде Delphi.
Разработать алгоритм решения в соответствии с заданием.
Составить программу решения задачи.
Подготовить тест для проверки программы.

Задание 1.

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

Методические указания
Так как по условию задания 2, предусматривается ввод года издания, то тип для этого поля лучше определить как целочисленный, это позволит сэкономить ресурсы компьютера, так как не потребуется лишних преобразований. Все остальные поля записей файла целесообразно определить как поля символьного типа. Идентификаторы и длины полей приведены в таблице 1.

Таблица1 – Описание идентификаторов и длины полей

Описание поля	Имя переменной	Тип данных	Пример
Автор	BookAuthor	String[30]	Пушкин
Название	NameBook	String[30]	Сон в летнюю ночь
Издательство	BookPublishers	String[30]	РУП «Издательство «Беларусь»
Рег. Номер	Number	String[10]	14
Дата публикации	YearPublish	Integer	2008
Количество страниц	CountPages	String[4]	96

Программа разработана в среде Delphi 7, поэтому разбита на события.

После объявления необходимых переменных( переменная типа файла должна быть типизированной и указывать на тип нашей записи) и самой структуры записи, начать следует с события создания формы. Здесь мы должны связать файл с переменной. Если в текущей категории не существует файла, то создать, если существует, то открыть функцией reset(f). Далее пользователю предоставить возможность добавления и просмотра записей.

Добавление:

Через пользовательский интерфейс заполняем поля, и по событию кнопки, заполняем введенными данными нашу запись, переводим текущую позицию в файле на конец функцией Seek(F, FileSize(F)) и записываем в файл при помощи функции write();

Просмотр:

При просмотре устанавливаем указатель файла в самое начало и цикле до конца файла считываем записи, которые затем выводим в интерфейсе программы.

По событию закрытия формы мы закрываем файл функцией close(F).

Программа создания файла в Delphi с именем database.dat имеют вид:

type

Tplayer = record

BookAuthor: string[100];

NameBook: string[30];

BookPublishers: string[30];

Number: Integer;

YearPublish: Integer;

CountPages: Integer; //рост

end;

var

Form1: TForm1;

F:file of Tplayer;

ArrayBook : array[0..countRecord] of Tplayer;

countI:Integer;

procedure TForm1.FormCreate(Sender: TObject);

begin

AssignFile(F,'database.dat');

{$I-}

if FileExists('database.dat') then

Reset(F)

else Rewrite(f);

Seek(F, FileSize(F));

{$I+}

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

CloseFile(F);

end;

procedure TForm1.btn1Click(Sender: TObject);

var

AddBook: Tplayer;

i:integer;

begin

AddBook.NameBook:= edt1.Text;

AddBook.BookPublishers:= edt2.Text;

AddBook.BookAuthor:= edt3.Text;

AddBook.Number:= StrToInt(edt4.Text);

AddBook.YearPublish:= StrToInt(edt5.Text);

AddBook.CountPages:= StrToInt(edt6.Text);

write(F, AddBook);

end;
procedure TForm1.pgc1Change(Sender: TObject);

var

ViewBook:Tplayer;

i,j:Integer;

begin

mmo1.Lines.Clear();

Seek(F, 0);

i:=0;

while not (Eof(F)) do

begin

Read(F,ArrayBook[i]);

//ArrayBook[i]:= ViewBook;

mmo1.Lines.Add(lbl3.Caption+': '+ArrayBook[i].BookAuthor);

mmo1.Lines.Add(lbl2.Caption+': '+ArrayBook[i].BookPublishers);

mmo1.Lines.Add(lbl1.Caption+': '+ArrayBook[i].NameBook);

mmo1.Lines.Add(lbl4.Caption+': '+IntToStr(ArrayBook[i].Number));

mmo1.Lines.Add(lbl5.Caption+': '+IntToStr(ArrayBook[i].YearPublish));

mmo1.Lines.Add(lbl6.Caption+': '+IntToStr(ArrayBook[i].CountPages));

mmo1.Lines.Add('--------');

i:=i+1;

end;

countI := i;

end;

Тестовый вариант исходных данных для создания файла

Пушкин. «Дантэ» Мск. 12 1806 199

Лермонтов. «Ни дать ни взять» Спб. 32 1855 343

Некрасов. «Лесорубка» Спб. 45 1899 454

Толстов «Горе от ума» Птр. 55 1906 345

Грибоедов. «Охотчичьи записки» ПТК. 56 1950 453

Задание 2.

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

Методические указания

Для выполнения задания 2 необходима корректно работающая программа с задания 1 и :

1) ввести в специальное поле автора X, для которого выводится список книг , для этого нужно организовать в цикле чтение текущей записи файла, проверять совпадение значения поля «автор» со значением переменной X. Если значения не совпадают, то переходить к чтению следующей записи файла.

Если значения совпадают, то в текстовую область выводим название книги. Обработка происходит по событию нажатию на кнопку.

2) ввести в другое специальное поле год Y, после значения которого выводится список книг с фамилиями авторов в алфавитном порядке, изданных после заданного года, для этого нужно организовать в цикле чтение текущей записи файла, проверять совпадение значения поля «год» со значением переменной Y. Если введенное значение не больше чем в записи, то переходить к чтению следующей записи файла. Если нужное нам условие выполняется, то выводим соответствующую информацию о книге. Обработка происходит по событию нажатию на кнопку.

Программа берется из задания 1, лишь дополняется событиями:

procedure TForm1.btn2Click(Sender: TObject);

var

ViewBook:Tplayer;

i,j:Integer;

t: TStringList;

begin

mmo2.Lines.Clear();

for i:=0 to countI-2 do

for j:=i+1 to countI-1 do

if (ArrayBook[i].BookAuthor>ArrayBook[j].BookAuthor) then

begin

ViewBook:=ArrayBook[i];

ArrayBook[i]:=ArrayBook[j];

ArrayBook[j]:=ViewBook;

end;
t:=TStringList.Create;

t.Sort();

// ShowMessage(edt8.Text);

for i:=0 to countI-1 do begin

// ShowMessage(ArrayBook[i].BookPublishers);

if ArrayBook[i].YearPublish>StrToInt(edt8.Text) then begin

mmo2.Lines.Add(ArrayBook[i].BookAuthor+';'+ArrayBook[i].NameBook+';'+IntToStr(ArrayBook[i].CountPages)+'стр.');

end;

end;

t.AddStrings(mmo2.lines);

mmo2.Clear;

mmo2.Lines.AddStrings(t);

end;
procedure TForm1.btn3Click(Sender: TObject);

var

ViewBook:Tplayer;

i,j:Integer;

begin

mmo3.Lines.Clear();

for i:=0 to countI-1 do begin

if ArrayBook[i].BookAuthor=edt7.Text then begin

mmo3.Lines.Add(ArrayBook[i].NameBook+';'+IntToStr(ArrayBook[i].CountPages)+'стр.');

end;

end;

end;

Варианты задания курсовой работы:

Вариант задания	Условия задачи
1	1. Создать файл, содержащий сведения о месячной зарплате рабочих завода. Каждая запись содержит поля – фамилия рабочего, наименование цеха, размер зарплаты за месяц. Количество записей – произвольное. 2. Вычислить общую сумму выплат за месяц по цеху Х, а также среднемесячный заработок рабочего этого цеха. Напечатать для бухгалтерии ведомость для начисления заработной платы рабочим этого цеха.
2	1. Создать файл, содержащий сведения о количестве изделий, собранных сборщиками цеха за неделю. Каждая запись содержит поля – фамилия сборщика, количество изделий, собранных им ежедневно в течение 6-дневной недели, т.е. раздельно – в понедельник, вторник и т.д. Количество записей – произвольное. 2. Написать программу, выдающую на печать следующую информацию: фамилию сборщика и общее количество деталей, собранное им за неделю; фамилию сборщика, собравшего наибольшее число изделий, и день, когда он достиг наивысшей производительности труда.
3	1. Создать файл, содержащий сведения о количестве изделий категорий А, В, С, собранных рабочим за месяц. Структура записей имеет поля: фамилия сборщика, наименование цеха, количество изделий по категориям, собранных рабочим за месяц. Количество записей – произвольное.
3	2. Cчитая, заданными значения расценок за выполненную работу по сборке единицы изделия категорий А, В, С соответственно, выдать на печать следующую информацию: - общее количество изделий категорий А, В, С, собранных рабочим цеха Х; - ведомость зарплаты рабочих цеха Х; - средний размер зарплаты работников этого цеха
4	1. Создать файл, содержащий сведения о телефонах абонентов. Каждая запись имеет поля: фамилия абонентов, год установки телефона, номер телефона. Количество записей произвольное. 2. Написать программу, выдающую информацию следующего вида: - по вводимой фамилии абонента выдается номер телефона; - определяется количество установленных телефонов с ХХХХ года. Номер года вводится с терминала.
5	1. Создать файл, содержащий сведения об ассортименте игрушек в магазине. Структура записи: название игрушки, цена, количество, возрастные границы, например 2-5, т.е. от 2 до 5 лет. Количество записей произвольно. 2. Написать программу, в результате выполнения которой выдаются следующие сведения: - названия игрушек, которые подходят детям от 1 до 3 лет; - Стоимость самой дорогой игрушки и ее наименование; - название игрушки, которая по стоимости не превышает x рублей и подходит ребенку в возрасте от a до b лет. Значения x, a, b ввести с терминала
6	1. Создайте файл, содержащий сведения о сдаче студентами I курса кафедры «ЭВМ» сессии. Структура записи: индекс группы, фамилия студента, оценка по пяти экзаменам, признак участия в общественной работе: «1» - активное участие, «0» - неучастие. Количество записей – 30. 2. Написать программу зачисления студентов группы Х на стипендию. Студент, получивший все оценки «5» и активно участвующий в общественной работе, зачисляется на повышенную стипендию (доплата 50%), не активно участвует – доплата 25%. Студенты, получившие «4» и «5», зачисляются на обычную стипендию. Студент, получивший одну оценку «3», но активно занимающийся общественной работой, также зачисляется на стипендию, в противном случае зачисление не производится. Индекс группы вводится с терминала.
7	1. Создайте файл, содержащий сведения о сдаче студентами сессии. Структура записи: индекс группы, фамилия студента, оценка по пяти экзаменам и пяти зачетам («з» означает зачет, «н» - незачет). Количество записей – 25. 2. Написать программу, выдающую следующую информацию: - фамилии неуспевающих студентов с указанием индексов групп и количества задолженностей; - средний балл, полученный каждым студентом группы Х, и всей группой в целом.
8	1. Создайте файл, содержащий сведения о личной коллекции книголюба. Структура записи: шифр книги, автор, название, год издания, местоположение (номер стеллажа, шкафа и т.п.). Количество записей произвольное. 2. Написать программу, выдающую следующую информацию: - местонахождение книги автора Х названия У. Значение Х, У ввести с терминала; - список книг автора Z, находящихся в коллекции; - число книг издания ХХ года, имеющееся в библиотеке
9	1. Создать файл, содержащий сведения о наличии билетов и рейсах Аэрофлота. Структура записи: номер рейса, пункт назначения, время вылета, время прибытия, количество свободных мест в салоне. Количество записей произвольное. 2. Написать программу, выдающую информацию следующего вида: - время отправления самолетов в город Х; - наличие свободных мест на рейс в город Х с временем отправления У. Значения Х, У вводятся по запросу с терминала.
10	1. Создайте файл, содержащий сведения об ассортименте обуви в магазине фирмы. Структура записи: артикул, наименование, количество, стоимость одной пары. Количество записей произвольное. Артикул начинается с буквы Д - для дамской обуви, М -для мужской, Д- для детской. 2. Написать программу, выдающую следующую информацию: - о наличии и стоимости обуви артикула Х; - ассортиментный список дамской обуви с указанием наименования и имеющегося в наличии числа пар каждой модели.
11	1. Создайте два файла, содержащих сведения о десяти нападающих хоккейных команд: «Динамо» и «Спартак» соответственно: имена нападающих, число заброшенных ими шайб, сделанных голевых передач, заработанное штрафное время. 2. Написать программу, которая по данным, извлеченным из этих файлов, создает новый третий файл, содержащий имя, команду, сумму очков (голы + передачи) для шести лучших игроков обеих команд. Имена и пользователи результативности хоккеистов вывести на экран.
12	1. Создать файл, содержащий сведения о том, какие из пяти предлагаемых дисциплин по выбору желает слушать студент. Структура записи: фамилия студента, индекс группы, 5 дисциплин, средний балл успеваемости. Выбираемая дисциплина отмечается символом 1, иначе – пробел. Количество записей -25. 2. Написать программу, которая печатает список студентов, желающих прослушать дисциплину Х. Если, число желающих превысит 8 человек, то отобрать студентов, имеющих более высокий средний балл успеваемости.
13	Создать файл, содержащий сведения о студентах группы. Структура записи: фамилия студента, индекс группы, год поступления, средний балл за каждый год обучения. Написать программу, которая печатает упорядоченный список студентов по среднему баллу за все годы обучения с указанием индекса группы и года поступления, а также вывести студентов отличников, у которых средний балл выше 8.
14	Создать файл, содержащий сведения о сданной в ремонт радиоаппаратуре. Структура записи: наименование группы изделий(телевизор, радиоприемник и т. п.),марка изделия, дата приемки в ремонт, состояние готовности заказа (выполнен, не выполнен). Количество записей произвольное. Написать программу, которая выводит: - информацию о состоянии заказов на текущую дату по группам изделий. - отсортированную в алфавитном порядке информацию о марке изделия по введенной группе Х.
15	Создать файл, содержащий сведения о расписании вылета самолетов. Структура записи: номер рейса, тип самолета, пункт назначения, время вылета. Количество записей произвольное. Написать программу, которая выводит : - какие рейсы выполняются на данном типе самолета Х; - все номера рейсов, типы самолетов и времена вылета для заданного пункта назначения в порядке возрастания времени вылета.
16	Создать файл, содержащий сведения об абитуриентов, сдавших вступительные экзамены в университет. Структура записи содержит: Ф.И.О., адрес, оценки по трем предметам. Количество записей произвольное. Написать программу, которая определяет: - количество абитуриентов, проживающих в городе Х; - абитуриентов, сдавших экзамены со средним баллом не ниже 4.5, вывести их фамилии в алфавитном порядке.
17	Создать файл, содержащий сведения о свободных местах в поездах дальнего следования на ближайшую неделю. Структура записи: дата выезда, пункт назначения, время отправления, число свободных мест. Количество записей произвольное. Написать программу, которая позволяет: -вывести информацию о наличии свободных мест на все поезда по введенной дате выезда; - зарезервировать m мест до города N на k-й день недели с временем отправления поезда не позднее t часов вечера. Вывести время отправления или сообщение о невозможности выполнить заказ в полном объеме.
18	Создать файл, содержащий сведения о сотрудниках предприятия. Структура записи содержит: Ф.И.О., номер отдела, должность, дату начала работы. Количество записей произвольное. Написать программу, которая выводит: - фамилии сотрудников и номер отделения согласно введенной должности Х; - списки сотрудников по отделам в порядке убывания стажа.
19	Создать файл, содержащий сведения о выпускаемой продукции различных цехов завода. Структура записи включает: наименование продукции, количество, номер цеха. Количество записей произвольное. Написать программу, которая вычисляет: - общее количество выпущенной продукции А на заводе; -для заданного цеха Х выводит количество выпущенных изделий по каждому наименованию в порядке убывания количества.
20	Создать файл, содержащий сведения о книгах, хранящихся в библиотеке. Структура записи: регистрационный номер книги, автор, название, год издания, издательство, количество страниц. Количество записей произвольное. Написать программу, которая выводит: - список книг данного автора Х; - список книг с фамилиями авторов в алфавитном порядке, изданных после заданного года.
21	Создать файл, содержащий сведения об участниках спортивных соревнований. Структура записи: наименование страны, название команды, Ф.И.О. игрока, игровой номер, возраст, рост, вес. Количество записей произвольное. Написать программу, которая выводит: - информацию о самом молодом игроке и в какой он команде, -список игроков команды Х в порядке убывания их роста.
22	Создать файл, содержащий сведения об участниках спортивных соревнований. Структура записи: наименование страны, название команды, Ф.И.О. игрока, игровой номер, возраст, рост, вес. Количество записей произвольное. Написать программу, которая выводит: - информацию о том, в какой команде самый легкий игрок и его данные, -список игроков команды Х в порядке возрастания их возраста.
23	Создать файл, содержащий сведения о сотрудниках фирмы. Структура записи включает: Ф.И.О., табельный номер, количество проработанных часов за месяц, почасовой тариф. Количество записей произвольное. Написать программу, которая выводит размер заработной платы каждого сотрудника фирмы за вычетом подоходного налога, который составляет 12% от суммы заработка. Рабочее время свыше 144 часов считается сверхурочным и оплачивается в двойном размере.
24	1. Создать файл, содержащий сведения о разговорах на междугородной АТС . Структура записи содержит: дату разговора, код и название города, время разговора, тариф, номер телефона в этом городе и номер телефона абонента. Количество записей произвольное. 2. Написать программу, которая выводит: - стоимость разговоров по данному номеру телефона за указанную дату; - по каждому городу общее время разговоров с ним и сумму.
25	Создать файл, содержащий сведения о расписании движения автобусов. Для каждого рейса указаны его номер, тип автобуса, пункт назначения, время отправления и прибытия. Количество записей произвольное. Написать программу, которая выводит: -список рейсов автобусов, которыми можно добраться до пункта Х; - информацию о рейсах, которыми можно воспользоваться для прибытия в пункт назначения У раньше заданного времени. Х, У- вводятся с клавиатуры.
26	Создать файл, содержащий сведения о студентах для получения места в общежитии. Структура записи включает: Ф.И.О. студента, группу, средний балл, доход на члена семьи. Количество записей произвольное. Написать программу, которая выводит список очередности предоставления мест в общежитии. Общежитие в первую очередь предоставляется тем, у кого доход на члена семьи меньше двух минимальных зарплат, затем остальным в порядке уменьшения среднего балла.
27	Создать файл, содержащий сведения о товарах, имеющихся на складе. Структура записи включает в себя: наименование товара, количество единиц товара, цену единицы и дату поступления товара на склад. Количество записей произвольное. Написать программу, которая выводит: -общую стоимость товаров с наименованием Х; - в алфавитном порядке список товаров, хранящихся больше месяца, стоимость которых превышает 1000000 руб.
28	Создать файл, содержащий сведения о гражданах нуждающихся в улучшении своих жилищных условий. Структура записи: ФИО, количество членов семьи, количество детей, размер занимаемой жилой площади, год становление на учет. Количество записей произвольное. Написать программу, которая выводит: - список многодетных семей; -список граждан ставших на учет до Х года в порядке возрастания занимаемого квадратного метра на члена семьи.
29	Создать файл, содержащий сведения о спортсменах футбольной команды. Структура записи: ФИО, номер игрока, возраст, вес, рост. Количество записей произвольное. Написать программу, которая выводит: - список игроков в порядке убывания их возраста; - список игроков у которых вес превышает норму Х, а рост меньше, чем У. Х, У- вводятся с клавиатуры.
30	Создать файл, содержащий сведения о командах, участвующих в соревнованиях. Структура записи: название команды, страна, количество побед, количество поражений, количество ничьих. Написать программу, которая выводит: - команду, которая имеет больше всех поражений; - табельную таблицу команд, расположив из в порядке убывания набранных очков. За 1 победу – 2 очка, за 1 ничью – 1 очко, за 1 проигрыш -0 очков.