Структура программного комплекса. Ввод информации из заданного файла. Создание набора данных. Добавление элементов в конец набора данных. Просмотр всех элементов набора данных. Копирование информации из НД в заданный файл. Сортировка массива по номерам.
Краткое сожержание материала:

Размещено на

Размещено на

Введение

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

1 Создание набора данных (МД).

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

3 Просмотр всех элементов МД.

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

5 Переход к работе с другим МД.

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

6 Вставка нового элемента перед текущим элементом.

7 Сохранение всех элементов в другом МД.

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

1 средняя продолжительность жизни (longint).

2 рост (integer).

3 название (string).

4 тип: служебная, декоративная, охотничья, другая (перечислимый тип).

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

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

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

3 Глобальные данные использовать нельзя.

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

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

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

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

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

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

Главная программа подключает следующие модули: crt, menu, zaprosi.

В основной программе реализован вывод массива меню действий и выбор с помощью оператора case.

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

uses menu, zaprosi,crt;

var

mas:f;

s:char;

KolvoElm,poz:integer;

Begin

New(mas);

{vvod parametrov ekrana}

Repeat

{vivod menu}

case poz of

1:Sozdanie(mas,KolvoElm);

2:DobavVkon(mas,KolvoElm);

3:Porsmotr(mas,KolvoElm);

4:Poisk(mas,KolvoElm);

5:Perehod(mas,KolvoElm);

6:VstavkaPered(mas,KolvoElm);

7:VivodVfail(mas,KolvoElm);

8:halt;

end;

until {izmenilsya el-t};

if {izmenilsya} then

{vivod vseh el-v}

end.

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

В модуле menu.tpu описана одна процедура glavn.

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

unit menu;

interface

uses crt,zaprosi;

procedure glavn(var poz:integer);

implementation

В menu.tpu осуществляется вывод меню интерфейса. Процедурой glavn (var poz:integer), обрабатывается нажатие клавиш, в зависимости от переданного параметра выполняется определённое действие, т.е пункт меню. Формальным параметром передаётся выбранный пункт в меню (poz).

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

var

i,k:integer;

vibor:char;

MasMenu:array [1..10] of string [40];

Begin

MasMenu[1]:= Sozdanie MD ';

..

{вывод остальных пунктов меню}

{Назначение параметров окна}

{Назначение цвета текста и фона}

for i:=1 to 8 do

{Вывод пунктов меню}

{end for i:=1..}

{Назначение цвета текста и фона текущей строки}

{Вывод текущего пункта меню}

Repeat

{Считывание нажатой клавиши}

vibor:=readkey;

{Назначение цвета текста и фона остальных строк}

for i:=1 to 8 do

{Вывод пунктов меню}

{end for i:=1..}

case vibor of

#72{vverh}: begin

{Prisvoenie stroke znach menshe na 1}

poz:=poz-1;

{Proverka na vihod za granicy menu}

end;

#80{vniz}: begin

{Prisvoenie stroke znach bolshe na 1}

poz:=poz+1;

{Proverka na vihod za granicy menu}

end;

#13 {Enter}: i:=poz;

#27: halt;

end;

{end case vibor of}

{Назначение цвета текста и фона текущей строки}

{Вывод текущего пункта меню}

until i=poz;

end;

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

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

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

unit Zaprosi;

interface

uses crt;

Type

Vid=(Dekorat,Slugeb,Ohotnichaya);

Sobaka=record

Nazvanie: string[20];

Life: longint;

Rost:integer;

Tip: Vid;

end;

F=array[1..30] of sobaka;

procedure Sozdanie(var mas:F;var KolvoElm:integer);

procedure DobavVkon(var mas:F;var KolvoElm:integer);

procedure Porsmotr(mas:F; KolvoElm:integer);

procedure Poisk(mas:F; KolvoElm:integer);

procedure Perehod(var mas:F;var KolvoElm:integer);

procedure VstavkaPered(var mas:F;var KolvoElm:integer);

procedure VivodVfail(mas:F; KolvoElm:integer);

implementation

Процедура Sozdanie (var mas:F;var KolvoElm:integer) создаёт новый массив данных. Формальными параметрами этой процедуры являются массив с данными (mas) типом (F), описанным в разделе типов и количеством элементов в массиве (KolvoElm).

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

var

i:integer;

s:char;

begin

{Назначение цвета текста и фона}

KolvoElm:=0;

i:=1;

while i=1 do

begin

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

{Ввод нового элемента}

{Запрос на ввод ещё элемента};

end;

end;

Процедура DobavVkon(var mas:F;var KolvoElm:integer) добавляет записи в конец массива, количество записей корректирует пользователь. Формальными параметрами этой процедуры являются массив с данными (mas) типом (F), описанным в разделе типов и количеством элементов в массиве (KolvoElm).

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

var

i:integer;

begin

{Назначение цвета текста и фона}

repeat

{приращение счётчика количества элементов}

{Ввод Названия предмета}

{Ввод номера курса}

{Ввод чавсов в год}

{Запрос на ввод ещё одного предмета}

readln (i);

until i=2;

end;

Процедура Porsmotr(mas:F; KolvoElm:integer) выводит массив записей в виде таблицы. Формальными параметрами этой процедуры являются массив с данными (mas) типом (F), описанным в разделе типов и количеством элементов в массиве (KolvoElm).

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

var

i,k,j:integer;

z,x:longint;

s:char;

begin

{Назначение цвета текста и фона}

{вывод шапки таблицы}

For i:=1 to KolvoElm do

begin

{Вывод первого столбика}

{дополнение пробелами}

{Вывод второго столбика }

{Подсчёт количества символов в числе}

repeat

inc(k);

z:=x div 10;

x:=z;

if (x<10) and (x<>0) then

begin

inc(...