Тестирование программы

Ниже приведены результаты выполнения программы на примере различных входных данных.

 

 

 

Приложение 4

ОБРАЗЕЦ РЕШЕНИЯ ЗАДАЧИ

ГРАФИЧЕСКИМ И ПРОГРАММНЫМ СПОСОБАМИ

ПО ТЕМЕ «ФАЙЛЫ»

Тема курсовой работы:

«Разработка в среде Turbo Pascal программы, осуществляющей начальное формирование файла и его корректировку».

 

ПОСТАНОВКА ЗАДАЧИ

 

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

1. Номер УДК

2. Ф.И.О. автора

3. Название

4. Год издания

5. Количество экземпляров

Программа должна обеспечивать следующие функциональные возможности:

1. Начальное формирование данных и книгах в библиотеке

2. Добавление данных о книгах, поступающих в библиотеку

3. Удаление данных о списанных книгах

4. По запросу выдаются сведения о наличии книг в библиотеке, упорядоченные по годам издания.

Укрупненная схема алгоритма

 

 

 

РАЗРАБОТКА ПРОГРАММЫ

НА ЯЗЫКЕ ПРОГРАММИРОВАНИЯ PASCAL

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

program LibraryDB;

К программе подключается модуль Crt, который содержит множество подпрограмм для работы с экраном и клавиатурой.

uses Crt;

Затем объявляется константа MaxBooks, которая обозначает максимальное количество записей о книгах в библиотеке.

Const MaxBooks = 100;

После идет объявление записи BookType, которая содержит информацию о книге в библиотеке. В этой записи содержатся следующие поля:

1. UDK – номер УДК.

2. Author – автор книги

3. Name – название книги

4. Year – год издания

5. Count – количество экземпляров книги в библиотеке

Type

BookType = record

UDK: String[11];

Author: String[50];

Name: String[100];

Year: Integer;

Count: Integer;

end;

 

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

1. Done – переменная логического типа. Определяет, когда пользователь завершит работу с программой

2. Choice – содержит выбор пункта меню пользователя

3. BooksSize – содержит количество книг в базе данных

4. Books – массив записей о книгах

5. BookIndex – индекс книги, которую нужно удалить из массива записей

6. UDK, Author, Name, Year, Count – эти переменные содержат информацию о новой книге, которую пользователь программы хочет сохранить в базе данных

Var

Done: Boolean;

Choice: Integer;

BooksSize: Integer;

Books: array [1..MaxBooks] of BookType;

BookIndex: Integer;

UDK, Author, Name: String;

Year, Count: Integer;