Описание программного комплекса, его структура и общая характеристика составных модулей. Механизм создания набора данных, поиск элементов по номеру. Методика просмотра элементов и вычисление среднего, минимума и максимума из заданного диапазона.
Краткое сожержание материала:

Размещено на

Размещено на

Введение

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

Создание набора данных.

Добавление новых элементов в конец набора данных.

Просмотр всех элементов набора данных.

Поиск элемента по номеру.

Переход к работе с другим набором данных.

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

1 Удаление, элементов начиная от текущего

2 Просмотр элементов и вычисление среднего, минимума и максимума из заданного диапазона

Множество данных должно представлять собой информацию об абонентах АТС:

фамилия (string);

оплата в месяц (longint);

номер АТС (integer);

дополнительные средства связи: факс-модем, модем, факс, отсутствуют (перечислимый тип).

Условия и ограничения, которые должны быть соблюдены при написании данного программного комплекса:

1 Главную процедуру программы с реализацией простейшего меню следует определить в отдельном модуле.

2 Процедуры, реализующие запросы, должны быть размещены в одном или более модулях.

3 Глобальные данные: Спецификация файла. Никаких других глобальных переменных использовать нельзя.

4 Вместе с меню на экране должно быть отображено:

номер текущего элемента;

содержимое текущего элемента.

5 На экран выводить элементы в виде таблицы (один элемент - одна строка таблицы).

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

7 Тестами к заданиям служат 2 НД с правдоподобной информацией.

1. Описание программного комплекса

1.1 Структура программного комплекса

Программный комплекс состоит из семи модулей, которые содержат процедуры, реализующие запросы, модуля, содержащего главную процедуру и исполняемой программы, вызывающей главную процедуру.

Главная программа подключает следующие модули: crt, menu, sozd, perehod, vivod, poisk, dobavlenie, udalenie, sredmaxmin

Псевдокод программы kursach:

Program kursach;

uses crt, menu, sozd, perehod, vivod, poisk, dobavlenie, udalenie{, sredmaxmin};

const kolvo=8; x=1; y=1;

type dopsredstva = (faxmodem, modem, fax, nety);

zapis = record

nom:byte;

familiya:string;

oplata:longint;

nomerATS:integer;

sredstva:dopsredstva;

end;

var mass:mymenu;

long:integer;

name:string;

zap:zapis;

{процедура прорисовки меню}

procedure vertmenu (mas:mymenu; x, y, kol:integer; var long:integer);

var max, i, j:integer; l:byte; key:char;

begin

{нахождение максимальной строки}

{дополнение всех строк до максимальной}

{прорисовка рабочего окна}

for i:=1 to kol do

{вывод полей меню}

{end for i:=1 to kol do}

{инициализация long}

{подсветка первого поля меню}

repeat

{инициализация l}

{определение кода нажатой клавиши}

{реакция на нажатие командных клавиш}

{прорисовка поля меню в исходный цвет}

{подсветка следующего выбранного поля меню}

until false

{end repeat}

end;

{процедура отключения курсора}

procedure cursor_off;

{процедура включения курсора}

procedure cursor_on;

{процедура очистки экрана}

procedure stir;

begin

{прорисовка рабочего окна}

{инициализация полей меню}

{вызов процедуры отключения курсора}

repeat

{вывод меню}

case long of

{вызов процедур в соответствии с выбранным пунктом меню}

1:begin

{очистка экрана и включение курсора}

{вызов процедуры создания нд}

{очистка экрана и отключение курсора}

{вывод меню}

end;

2:begin

{очистка экрана и включение курсора}

{вызов процедуры добавления элементов в конец нд}

{очистка экрана и отключение курсора}

{вывод меню}

end;

3:begin

{очистка экрана}

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

{очистка экрана}

{вывод меню}

end;

4:begin

{включение курсора}

{вызов процедуры поиска элемента}

{отключение курсора}

end;

5:begin

{очистка экрана и включение курсора}

{вызов процедуры перехода к работе с другим нд}

{очистка экрана и отключение курсора}

{вывод меню}

end;

6:begin

{очистка экрана и включение курсора}

{вызов процедуры создания нд по ключевому полю}

{очистка экрана и отключение курсора}

{вывод меню}

end;

7:begin

{очистка экрана и включение курсора}

{вызов процедуры добавления всех эл-тов в другой нд}

{очистка экрана и отключение курсора}

{вывод меню}

end;

end;

until long=kolvo;

{end repeat}

end;

end.

1.2 Описание модуля sozd.tpu

программный модуль данные файл

В модуле sozd.tpu описана процедура sozdanienab и типы создаваемого множества данных.

Описательная часть модуля:

unit sozd;

interface

type dopsredstva = (faxmodem, modem, fax, nety);

zapis = record

nom:byte;

familiya:string;

oplata:longint;

nomerATS:integer;

sredstva:dopsredstva;

end;

procedure sozdanie_nd;

implementation

Процедура sozdanienab создает новый набор данных.

Псевдокод процедуры sozdanienab:

procedure sozdanienab;

var fail:file of zapis;

zap:zapis;

i, n, tg:integer;

name:string;

begin

{ввод имени создаваемого файла}

{связывание переменной fail с набором данных}

{открытие файла fail для записи}

{ввод количества элементов n}

for i:=1 to n do

begin

{ввод данных}

{запись данных в файл}

end;

{end for i:=1 to n}

{закрытие файла}

end;

1.3 Описание модуля dobavlenie.tpu

В модуле dobavlenie.tpu описана процедура dobavleniek и типы, необходимые для работы с множеством данных.

Описательная часть модуля:

unit dobavlenie;

interface

uses vivod;

type dopsredstva = (faxmodem, modem, fax, nety);

zapis = record

nom:byte;

familiya:string;

oplata:longint;

nomerATS:integer;

sredstva:dopsredstva;

end;

procedure dobavleniek (name:string);

implementation

Процедура dobavleniek добавляет элементы в конец набора данных. В эту процедуру передается переменная name (имя файла).

Псевдокод процедуры dobavleniek:

procedure dobavleniek;

var fail:file of zapis;

zap:zapis;

i, n, tg, max:integer;

sredstvastr, oplatastr:string;

begin

{связывание переменной fail с набором да...