Выбор языка программирования
Моя работа была создана на языке программирования FreePascal . Он был выбран, потому что создание и корректировка процедур и основной части программы довольно просты. Этот язык отличается простотой понимания, стройностью и структурностью алгоритмов, быстротой компилятора и удобными средствами создания и откладки программ.
Достойностью языка Паскаль являются
1. Простой синтаксис языка. Небольшое число базовых понятий. Программы на Паскале легко читаемы.
2. Достаточно низкие аппаратные требования как самого компилятора, так и программ, написанных на Паскале.
3. Универсальность языка. Паскаль применим для решения практически всех задач программирования.
ОСНОВНАЯ ЧАСТЬ
Описание типов
type
el=^baz;
baz=record
Nazvanie:string[30];
God:string[30];
Trener:string[30];
Stadion:string[30];
Mesto:string[30];
UEFA:string[30];
Strana:string[30];
next:el;
end;
Первое поле Nazvanie описывает название вводимой/выводимой футбольной команды. Типом данного поля выбран строковый тип string. Он занимает 256 байт памяти, но мне достаточно только 30-символов, поэтому я ограничил размер занимаемой памяти. Типы остальных информационных полей совпадают с типом этого поля. Второе поле God – показывает когда была основана та или иная команда, показанная в данной справочной системе. Поле Trener называет имя главного тренера команды. Stadion – стадион на котором команда проводит все свои домашние матчи. Пятое поле называется Mesto – оно показывает вместительность стадиона. Поля UEFA и Strana показывают последний год победы какой либо команды в кубке UEFA и в чемпионате страны соответственно.
Fbaz,f2:fileofbaz – типизированные файлы типа baz, содержат в себе информацию о всех записях базы данных.
Описание ввода и вывода записей
Процедура ввода записей
Листинг процедуры ввода записей. См приложение 1
Описание процедуры:
В начале процедура связывает переменную файла fbaz с физическим файлом UEFA.txt, находящимся в той же директории, что и сама программа. Затем процедура открывает файл на запись командой reset(fbaz) и ставит курсор в конец файла процедурой seek(fbaz,filesize(fbaz)). Команда clrscr очищает экран, для этого в блок основной программы включен соответствующий модуль работы с экраном crt. Затем процедура требует заполнить поля. Вся информация вкладывается в соответствующие информационные поля, описанные мной выше. Затем вся запись целиком записывается в файл.
Последним этапом происходит закрытие файла. Так же мной была задействована функция ‘textcolor’, которая изменяет цвет текста в программе, тем самым добавляет немного красок в скучный интерфейс программы.
Процедура вывода записей
Листинг процедуры вывода записей. См приложение 2
Описание переменных:
tab: baz – переменная записи ссылается на информационное поле, при чтении информации из файла. k:integer – переменная содержащая количество записей. fbaz:fileofbaz – переменная типизированного файла.
Описание процедуры:
В начале переменной k присваиваем значение 0. Впоследствии эта переменная будет выводить порядковый номер записи. Дальше процедура связывает переменную файла fbaz с физическим файлом UEFA.txt, находящимся в той же директории, что и сама программа. Затем процедура открывает файл на чтение командой reset(fbaz). Команда clrscr очищает экран, для этого в блок основной программы включен соответствующий модуль работы с экраном crt. После этого на экран выводится название базы данных. Дальше идет цикл для вывода записей на экран, он будет истинным пока не достигнут конец файла. Записи, считываемые из файла командой read, выводятся на экран. Для удобства пользователя, организована небольшая таблица, организующая лучшее визуализированное представление информации. Записи выводятся по очереди, составляющие которой, выводятся из соответствующих информационных полей, описанных выше. Так же для удобства пользователя, произведен мгновенный вывод только одной записи. Это достигается командой read. После идет закрытие файла и окончание процедуры.