База водителей автобусов

Необходимо  заметить, что многие недостатки языка  не проявляются или даже становятся достоинствами при обучении программированию. Кроме того, по сравнению с основным языком программирования в академической среде 1970-х (которым был Фортран, обладавший гораздо более существенными недостатками), Паскаль представлял собой значительный шаг вперёд. В начале 1980-х годов в СССР для обучения школьников основам информатики и вычислительной техники академик А. П. Ершов разработал алголо-паскалеподобный «алгоритмический язык».

Наиболее известной  реализацией Паскаля, обеспечившая широкое распространение и развитие языка, является Turbo Pascal фирмы Borland, выросшая затем в объектный Паскаль  для DOS (начиная с версии 5.5) и Windows и далее в Delphi, в которой были внедрены значительные расширения языка. Диалекты Паскаля, применяемые в Turbo Pascal для DOS и Delphi для Windows, стали популярны из-за отсутствия других успешных коммерческих реализаций.

Кроме того, в Южном федеральном университете разрабатывается язык и система программирования PascalABC.NET, ориентированная на обучение современному программированию. Язык системы — это Object Pascal для платформы Microsoft .NET, который содержит все основные элементы современных языков программирования: модули, классы, перегрузку операций, интерфейсы, исключения, обобщённые классы, сборку мусора, а также некоторые средства параллельного программирования.

Массив.

Самой распространенной структурой, реализованной практически во всех языках программирования, является массив.

Массивы состоят  из ограниченного числа компонент, причем все компоненты массива имеют  один и тот же тип, называемый базовым. Структура массива всегда однородна. Массив может состоять из элементов  типа integer , real или char , либо других однотипных элементов. Из этого, правда, не следует делать вывод, что компоненты массива могут иметь только скалярный тип.

Другая особенность  массива состоит в том, что  к любой его компоненте можно  обращаться произвольным образом. Что это значит? Программа может сразу получить нужный ей элемент по его порядковому номеру (индексу).

Условные  операторы.

Условный оператор реализует выполнение определённых команд при условии, что некоторое  логическое выражение (условие) принимает значение «истина» true. В большинстве языков программирования условный оператор начинается с ключевого слова if.

 

Цикл с параметром.

Число повторений цикла известно к началу его выполнения. Управление циклом осуществляется с  помощью переменной порядкового  типа, которая в этом циклическом  процессе принимает последовательные значения от заданного начального до заданного конечного значений.

 

Цикл с предусловием While (пока условие истинно)

Цикл работает пока условие истинно (пока True). Цикл завершается, когда условие становится ложным (до False). Цикл может не выполниться  ни разу, если исходное значение условия  при входе в цикл False. Если в теле цикла требуется выполнить более одного оператора, то необходимо использовать составной оператор.

Процедура Assign

Назначает файловой переменной имя внешнего файла.

Объявление:

Procedure Assign(Var F; Name : String);

После обращения к Assign, связь между переменной F и внешним файлом продолжает существовать до тех пор, пока для переменной F не будет сделано еще одно переназначение.

Не может  использоваться для открытых файлов.

Процедура Reset

Открывает существующий файл.

Объявление:

 Procedure Reset(Var F [ : File; Recsize : Word ] );

Параметр F - переменная любого файлового типа, связанная  с внешним файлом, с использованием процедуры Assign. Reset открывает существующий внешний файл с именем, назначенным в переменной F. Происходит ошибка, если внешний файл с данным именем не существует. Если файл F уже открыт, то он сначала закрывается, а затем вновь открывается. Текущая позиция указателя устанавливается на начало файла.

 

 

 

Процедура ReWrite

Создает и открывает  новый файл.

Процедура ReWrite создает новый внешний файл с именем, назначенным в переменной F. Если

внешний файл с  тем же самым именем уже существует, то он удаляется, а на его месте создается новый пустой файл. Если F уже открыт, то он сначала закрывается, а затем вновь создается. Текущая позиция указателя устанавливается на начало пустого файла.

Функция Eof

Возвращает  состояние конца файла.

Eof(F) возвращает  значение True, если указатель текущей  позиции файла находится вне  последнего символа файла или  если файл вообще не содержит компонентов, иначе, Eof(F) возвращает False.

Функция Eoln

Возвращает  состояние конца строки текстового файла.

Eoln(F) возвращает  значение True, если указатель текущей  позиции файла находится на  маркере конца строки или если Eof(F) равно True, иначе, Eoln(F) возвращает False;

Процедура Close

Закрывает ранее  открытый файл.

Параметр F - файловая переменная любого типа, связанная  с предварительно открытым процедурами Reset, ReWrite или Append файлом. Внешний файл, связанный с F полностью обрабатывается, а затем закрывается, при этом освобождается дескриптор файла DOS для последующих обращений к нему.

Функция Pos

Pos ищет первое  вхождение строки Substr в строку S и  возвращает целочисленное значение, которое является индексом первого  символа Substr внутри S. Если строка Substr не найдена, то Pos возвращает нуль.

 

Функция Length

Возвращает  динамическую длину строки.

 

Процедура Rename

Переменовывает  внешний файл.

Функция Copy

Возвращает  подстроку строки.

Процедура Delete

Procedure Delete(Var S : String; Index : Integer; Count : Integer);

Удаляет подстроку  из строки.

Delete удаляет  Count символов из строки S, начиная  с позиции Index. Если значение Index больше, чем длина S, то никакие  символы не удаляются. Если Count определяет большее количество  символов, чем остается в строке с позиции Index до конца строки, то удаляется остаток строки.

Процедура Erase

Procedure Erase(Var F);

Стирает внешний  файл с диска.

Параметр F - файловая переменная любого файлового типа. Внешний файл, связанный с переменной F удаляется.

 

Ввод  и вывод данных

Ввод данных с клавиатуры производится с помощью  стандартной процедуры read(<список ввода>) или ее разновидности readln(<список ввода>). Элементы списка ввода - идентификаторы (имена) переменных.

Вывод данных на экран производится с помощью стандартной процедуры write(<список вывода>) или ее разновидности writeln(<список вывода>). Список вывода может содержать константы, переменные, выражения, формат вывода.

 

 

2. СПЕЦИАЛЬНАЯ ЧАСТЬ

2.1. Постановка  задачи.

Условие задачи. Программа должна выполнять следующие условия:

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

 

2.2. Описание программы.

- Base_of_Voditele.pas

- Base_of_Voditele.pas (19.0 кб)

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

- После того  как файл Base_of_Voditele.pas компилируется и запустится программа все выполняется в следующем порядке, сначала отчищается экран потом выполняется процедура ReadInformationFromDataBaseFile позже запускается меню с выбором редактирования, изменения и сохранения базы водителей, после того как выбрали любой пункт меню происходят соответствующие процедуры выбранных вами пунктов меню, после того как вы закончили работу с базой вам предложат сохранить ее в файл, и при сохранении базы данных в файл используется процедура WriteInformationToDataBaseFile.

- функция MyVal.

Функция преобразовывает  строковое значение в его числовое представление. Если ошибки в преобразовании не было, то MV:=0,после MyVal:=MV.

- функция MyStr.

Функция преобразовывает  число в строку и записывает результат  в MyStr.

 

- процедура OpenDataBaseFileForRead.

Открывается файл с базой  данных, если файл не найден, то создается  новая база данных.

- процедура OpenDataBaseFileForWrite.

Создает пустую базу данных.

- процедура CloseDataBaseFile.

Закрывает базу данных.

- функция EndOfDataBaseFile.

Эта функция будет содержать  значение типа Boolean. В которой присваевается значение конца базы данных.

- процедура WriteNumberToPointersArray.

Эта процедура вызывает встроенный ассемблер.

- процедура ReadNumberFromPointersArray.

Данная процедура вызывает встроенный ассемблер.

- процедура NewRecord.

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

- процедура WriteRecordIntoMemory.

Выполняется запуск процедуры ReadNumberFromPointersArray после выполняется цикл в теле которого выполняется Mem[Segment: B]:=RecordArray[B].

- процедура InputRecordFromKeyBoard.

В это процедуре  производится ввод данных в базу.

- процедура PrintRecordOnScreen.

Эта процедура  выводит результат ввода последних  данных на экран.

- процедура AddInformation.

Эта процедура  выполняет запуск процедуры InputRecordFromKeyboard после используя тукущую дату компьютера сохраняет время последнего редактирования и запускает процедуры NewRecord и WriteRecordIntoMemory.

- Функция Menu.

Функция будет  иметь тип Byte. Эта функция выполняет вывод на экран меню программы и от выбора пользователя запускается определенная процедура.

 

2.3. Таблица  индефикаторов программы.

Идентификатор	Смысловое содержание	Тип	Разрядность
DataBaseFileName	Нахождение  базы данных	Строковый	120
DataBaseModified	Модификация базы данных	Булевый	60
NumberOfDataBaseRecords	Размер базы данных	Целочисленный	35
PointerToPointers	Указатель на указатели	Указатель	20
PointerToPointersArray	Массив указателей	Целочисленный	20

 

2.4. Таблица  набора данных.

Имя набора данных в программе	Имя набора данных на внешнем носителе	Имя тома	Логическое  устройство	Длина записи набора данных(в байтах)	Тип файла	Метод доступа	Тип записи
DataBaseFile	c:\DataBase.txt	C	C	242	Вводной/Выводной	Последовательный	Постоянный

 

 

 

 

 

 

 

3. ОРГАНИЗАЦИЯ ПРОИЗВОДСТВА

3.1. Комплекс  технических средств, необходимых  для выполнения программы.

Процессор                                                                       233 MHz

Оперативная память                                                       64 Мб RAM

Видеоадаптер  и монитор                                               VGA (640 x 480)

Свободное место на HDD                                              1.5 Мб

Устройства взаимодействия с пользователем             клавиатура

 

3.2. Инструкция  пользователю.

Необходимо поместить  файл DataBase.txt в корневой каталог диска С, если же такой отсудствует то создать его там. Далее запустить паскаль, открыть файл Base_of_Voditele.pas и нажать комбинацию клавиш ctrl+f9. Тут появится меню выбора. Если нажмете клавишу а, то запустится процедура добавления информации в файл, если нажмете клавишу s то произведется поиск в файле по определенным параметрам, если нажать клавишу v то выведется таблица со всем запросами, если нажать клавишу w то все внесенные изменения сохранятся в файл, и клавиша q выход из программы.

 

 

 

 

 

 

 

 

 

 

 

ЗАКЛЮЧЕНИЕ

За время  написания курсовой я ознакомился с текстовыми файлами. Я научился работать с процедурами. И многими функциями.

Всю практику моей курсовой работы я выполнял на языке  программирования- Turbo Pascal.Этот язык очень удобен в написании программ и очень прост в использовании. Я рад, что я научился писать программы на этом языке программирования, потому что я думаю, что он мне в моей будущей работе будет очень необходим.

Н. Вирт сказал – «Язык должен способствовать дисциплинированию  программирования», и я с ним  соглашусь.

Язык Паскаль (англ. Pascal) — высокоуровневый язык программирования общего назначения. Один из наиболее известных языков программирования, широко применяется  в промышленном программировании, обучении программированию в высшей школе, является базой для большого числа других языков.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложение  А

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложение Б

Base_of_logins.pas

Uses CRT, Dos;

Const

NameLen           =15;{20}

SurNameLen        =15;{30}

SecondNameLen     =20;{30}

TelephoneNumberLen=10;{30}

 

Type

Date=Record

  Year   : Word;

  Month  : Byte;

  Day    : Byte;

  Hours  : Byte;

  Minutes: Byte;