Практическая обработка множества данных, представляющих собой массив указателей на записи - Курсовая работа

1.Описание программы 1.1 Описание главной программы и перечень модулей 1.2 Модуль menumod.tpu 1.3 Модуль RabotaND.tpu 1.4 Модуль RabotaDR.tpu 2.Проверка работы программы 2.1 Создание нового набора данных 2.2 Добавление новых элементов в конец НД 2.3 Просмотр всех элементов НД 2.4 Поиск элемента по номеру 2.5 Переход к работе с другим НД 2.6 Создание нового НД из всех элементов с заданным значением ключевого поля. 2.7 Сохранение всех элементов в другом НД Заключение Список использованных источников Приложение А Введение Целью данной курсовой работы является практическая обработка множества данных, представляющих собой массив указателей на записи. Поиск элемента по номеру (позиционирование текущего элемента). Множество данных должно представлять собой информацию о марках телевизорах: название (string); размер по диагонали (integer); средняя стоимость (real); тип: цветной, черно-белый, переносной (перечислимый тип). Процедуры, реализующие запросы, должны быть размещены в одном или более модулях. Глобальные данные: Спецификация файла. В начале работы программы мы указываем набор данных, с которым будем работать. В модуле есть одна процедура: procedure My_Meny(Mas:Massiv; var punkt:byte); В процедуру из главной программы передаются массив пунктов меню, состоящий из следующих значений: Mas[1]:=1:Создать новый НД; Mas[2]:=2:Добавить новые элементы в конец НД; Mas[3]:=3:Просмотреть все элементы НД; Mas[4]:=4:Поиск элемента по номеру ; Mas[5]:=5:Перейти к работе с другим НД; Mas[6]:=6:Создание нового НД из всех элементов с заданным значением ключе-вого поля.; Mas[7]:=7:Cохранение всех элементов в другом НД; Из процедуры в главную программу передается значение переменной punkt, в соответсвии с которой выбирается один из пунктов оператора CASE и соответственно происходит выполнение определенных процедур в главной программе. Заголовок и описательная часть данного модуля представлены ниже: unit RabotaND; interface uses menumod; type {Спецификация файла} Tip=(cvet, gherno_bel, perenosn); Televizor=record nazvanie:string; razmer:integer; sr_stoimist:real; TipTelevizor:Tip; end; var File1, Filekl, Filenov: File of Televizor; FileName, Filenamekluch, filenamenov, FilenamenovND: string; TVzap:Televizor; n:integer; otv1, punkt, Otv, tek, numb:byte; otv2, k:string; answ:char; В модуле описана спецификация файла и следующие переменные: File1, Filekl, Filenov - Переменные файлового типа FileName, Filenamekluch, filenamenov, FilenamenovND - Переменные, содержащие имена файлов. Процедура для просмотра содержимого набора данных: procedure Prosmotr_ND; begin {Связывание файловой переменной с НД на диске} assign(File1, Filename); {Открытие файла для чтения} reset(File1); {Вывод имени текущего набора данных} {Вывод шапки таблицы} {Пока не закончится файл -- вывод элементов в таблицу} while not eof(File1) do begin {чтение одной записи из файла} Read(File1,TVzap); {Выбор строки в зависимости от значения перечислимого типа} case TVzap.tipTelevizor of cvet:k:= Цветной; gherno_bel:k:= Черно-белый; perenosn:k:= Переносной; end; {Вывод содержимого записи} write(¦, numb:5,¦); write (TVzap.nazvanie:18,¦); write (TVzap.razmer:8,¦); write (TVzap.sr_stoimist:16:1,¦); writeln (k,¦); {Вывод нижней границы таблицы} {Присвоениею текущему номер последнего показанного элемента} end; {Закрытие файла} close(file1); end; В процедуру из главной программы передается имя набора данных.