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

Астана қаласының  білі

Управлениеобразования г.Астана

 

 

 

 

Экономика – заң колледжі

Экономико-юридический  колледж

 

 

 

 

 

 

 

 

 

 

 

 

Курстық жұмыс

Курсовая работа

               по основам алгоритмизации и  программирования  по предмету 

                                                                                                     пән бойынша

Тақырыбы                        База водителей автобусов                                  _    

Жұмысты орындаған  Кудайбергенов Ерсаин Мухамеджанович           _                                  

Работу выполнил(а)

                                           III курсы ПР-3Б                                                 _

                                                 курса

Мамандығы:        Программное обеспечение ВТ и АС                          _

Специальность

Орындау куні:                                                                                              _

Дата выполнения

Жұмыс бағасы                                                                                             _

Оценка работа

Оқытушы       Агадилова Ш. К.                                                                       _

Преподаватель (тегі,аты,әкесінің аты /фамилия имя отчество)(/подпись)

 

 

 

 

 

 

 

 

г. Астана 2011г


Астана қаласының білім басқармасы

Управление  образования г. Астана

 

Экономика –  заң колледжі

Экономико –  юридический колледж

 

 

Тапсырма

Задание

Курстық жұмыс: по основам алгоритмизации и программирования

Для курсовой работы

Тақырыбы: База водителей автобусов

Тема

Оқушы:        Кудайбергенов Ерсаин Мухамеджанович                               _

Ата – тегі толығымен /Ф. И. О. полностью/

___III___курсы__Пр-3б__мамандығы: Программное обеспечение ВТ и АС

                                         специальность

 

Курстық жұмыстын болжамды жоспары

Примерный план курсовой работы

Введение                                                                                                                   _

Основная  часть                                                                                                         _

Заключение                                                                                                               _

Практическая  часть                                                                                                 _

 

Тақырып  бойынша әдебиет:

Литература по теме:

________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________

 

 

Тапсырма  берген күні:_____________________________________________

Дата выдачи задания

Аяқтау күні:_______________________________________________________

Срок окончания

Преподаватель

Циклдік комиссия төрайым:___ Агадилова Ш. К.________________________

Председатель цикловой комиссии

Дир. ОЖ жөніндегі орынбасары_______________________________________

Зам. Директора по УР

 

 

 


Экономико –  юридический колледж

Экономика – заң колледжі

 

 

Рецензия 

на курсовую работу

 

Ф.И.О. учащ-ся_Кудайбергенов Ерсаин Мухамеджанович________________

Оқушының аты-жөні________________________________________________

Название темы___ База водителей автобусов __________________________

Тақырыптың  атауы__________________________________________________

Группа_______ПР-3Б________________________________________________

Топ_______________________________________________________________

Ф.И.О. рецензента__Агадилова Ш. К.__________________________________

Рецензенттің аты-жөні_______________________________________________

 

 

 

________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________

______________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________

Допущен, недопущен________________________________________________

Зачет, незачет______________________________________________________


Подпись рецензента________________________________________________

СОДЕРЖАНИЕ

Введение…………………………………………………………………………..5

1. Общая часть.

  1. Описание программного обеспечения………………………………...7
  2. Описание языка программирования…………………………………...9

2. Специальная часть.

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

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

  1. Таблица идентификаторов комплекса………………………………..17
  2. Таблица набора данных………………………………………………17

3. Организация производства.

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

для выполнения программы………………………………………………18

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

4. Заключение………………………………………………………………………….19

Приложения………………………………………………………………...…..20-39

Библиография…………………………………………………………………….40

 

 

 

 

 

 

 

 

 

 

 

 

 

ВВЕДЕНИЕ

Вычислительная  техника, совокупность технических  и математических средств, методов  и приёмов, используемых для облегчения и ускорения решения трудоёмких задач, связанных с обработкой информации, в частности числовой, путём частичной или полной автоматизации вычислительного процесса; отрасль техники, занимающаяся разработкой, изготовлением и эксплуатацией вычислительных машин. Задачи, связанные с исчислением времени, определением площадей земельных участков, торговыми расчётами и др., относятся к древнейшим периодам человеческой культуры. Первые примитивные устройства для механизации вычислений абак, китайские счёты и математические правила решения простейших вычислительных задач появились за сотни лет до н. э. Вычислительные устройства, такие, например, как шкала Непера, логарифмическая линейка, арифметическая машина французского учёного Б. Паскаля — предшественница арифмометра, были известны уже в 17 в. Промышленная революция 18—19 вв., характеризующаяся бурным для того времени ростом средств производства и его механизацией, дала толчок и развитию Вычислительная техника Это обусловливалось прежде всего необходимостью выполнения сложных расчётов при проектировании и строительстве кораблей, сооружении мостов, топографических работах, усложнением финансовых операций и т.п. При этом сложность и количество задач возросли настолько, что решение их в необходимый срок и без механизации самого вычислительного процесса часто оказывалось невозможным. Тогда на смену примитивным счётным устройствам пришли планиметры Дж. Германа и Дж. Амслера, арифмометр В. Т. Однера и др.  В 1833 английский учёный Ч. Беббидж разработал проект «аналитической машины» — гигантского арифмометра с программным управлением, арифметическим и запоминающим устройствами. Однако полностью осуществить свой проект ему не удалось, главным образом из-за недостаточного развития техники в то время; материалы об этой машине были опубликованы лишь в 1888, уже после смерти автора. Исследования Беббиджа лишь спустя 100 лет привлекли внимание инженеров, но математики отметили их сразу. В 1842 итальянский математик Менабреа опубликовал записи лекций Беббиджа, прочитанных в Турине и посвящённых «аналитической машине». Практическое развитие Вычислительная техника в 19 и в начале 20 вв. связано главным образом с постройкой аналоговых машин, в частности первой машины для решения дифференциальных уравнений академика А. Н. Крылова (1904). В 1944 в США была построена ЦВМ с программным управлением «МАРК-1» на электромагнитных реле; её изготовление стало возможным благодаря накопленному опыту эксплуатации телефонной аппаратуры, счётно-аналитических и счётно-перфорационных машин. Резкий скачок в развитии Вычислительная техника — создание в середине 40-х гг. 20 в. электронных цифровых вычислительных машин (ЭЦВМ) с программным управлением. Применение электронных ЦВМ существенно расширило круг задач; возможными стали такие вычисления, которые ранее были невыполнимы, так как требуемое для этого время превышало продолжительность человеческой жизни. Производство электронных ЦВМ росло чрезвычайно быстро: первая (и единственная) машина «ЭНИАК» была создана в США в 1946, а уже к 1965 мировой парк насчитывал свыше 50 тыс. ЦВМ различного назначения. Столь же быстро совершенствовались технические параметры электронных ЦВМ; в сотни и тысячи раз возросли их быстродействие и объёмы памяти. Первая советская электронная ЦВМ «МЭСМ» (малая электронная счётная машина) была построена в АН УССР в 1950 под руководством академика С. А. Лебедева. Электронные вычислительные и управляющие машины открывают широчайшие возможности в области переработки громадных объёмов информации в кратчайшие сроки.

 

 

 

 

1. ОБЩАЯ ЧАСТЬ

1.1 Описание программного обеспечения.

Windows XP (кодовое  название при разработке —  Whistler; внутренняя версия — Windows NT 5.1) — операционная система семейства  Windows NT корпорации Microsoft. Она была  выпущена 25 октября 2001 года и является  развитием Windows 2000 Professional. Название XP происходит от англ. experience (опыт).

Windows XP выпускалась во многих вариантах: Windows XP Professional Edition, Windows XP Home Edition, Windows XP Tablet PC Edition, Windows XP Media Center Edition, Windows XP Embedded, Windows Embedded for Point of Service, Windows XP Professional x64 Edition, Windows XP 64-bit Edition, Windows XP Edition N, Windows XP Starter Edition, Windows Fundamentals for Legacy PCs.

Графический интерфейс  пользователя.

  • Выделение в Windows Explorer осуществляется прозрачным синим прямоугольником.
  • Падающая тень от ярлыков на рабочем столе
  • Боковая ориентированная на выполнение задач вспомогательная панель в окне проводника («common tasks»).
  • Группирование кнопок одного приложения на панели задач в одну кнопку, при определённом количестве разных запущенных приложений, что позволяет часто избегать необходимости её «прокрутки»
  • Появилась возможность заблокировать панель задач и вспомогательные панели, для избегания их случайного изменения.
  • Цветовое выделения элементов в меню «Пуск», принадлежащих недавно добавленным программам.
  • Меню отбрасывают тени (в Windows 2000 тень отбрасывал указатель мыши, но не элементы меню)

Windows XP анализирует  производительность системы с  определёнными визуальными эффектами  и в зависимости от этого активирует их или нет, учитывая возможное падение или рост производительности. Пользователи также могут изменять данные параметры, используя диалоговые окна настройки, при этом можно либо гибко выбрать активность тех или иных визуальных эффектов, либо отдать это на управление системе или же выбрать максимальную производительность или лучший вид графического интерфейса. Некоторые эффекты, такие как полупрозрачность и т. п., требуют наличия производительной графической подсистемы, на старых видеокартах производительность может сильно упасть и Microsoft рекомендует отключить эти возможности в таком случае.

В Windows XP появилась  возможность использовать «Visual Styles»  позволяющие изменить графический  интерфейс пользователя. Luna — новый  стиль графического интерфейса, входящий в поставку XP и являющийся интерфейсом по умолчанию для ПК, имеющих более 64 мегабайт RAM. Возможно использовать и другие «Visual Styles», но они должны быть подписаны цифровой подписью Microsoft (так как имеют важное значение в функционировании системы).

Для обхода этого  ограничения некоторые пользователи используют специальное программное  обеспечение, такое, как TGTSoft’s StyleXP, а  иногда и изменённую версию библиотеки uxtheme.dll.

Также существует стиль «классический», повторяющий стиль интерфейса Windows 2000 (который использует на 4 МБ меньше памяти, чем Luna), а также многочисленные стили, созданные сторонними разработчиками. Для версии Media Center Microsoft разработала «визуальный стиль» «Royale», который включён в эту версию Windows XP и доступен для установки в других версиях XP.

Для Windows XP были созданы более 100 значков компанией The Iconfactory, известной своим набором  бесплатных значков для операционной системы Mac OS X.

Стандартные программы Windows: диспетчер задач, дефрагментация, архивация диска, восстановление системы, таблица символов, калькулятор, блокнот, графический редактор, пакет Paint, WordPad, буфер обмена.

 

1.2 Описание языка программирования.

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

Важным шагом  в развитии языка является появление свободных реализаций языка Паскаль Free Pascal и GNU Pascal, которые не только вобрали в себя черты множества других диалектов языка, но и обеспечили чрезвычайно широкую переносимость написанных на нём программ (например GNU Pascal поддерживает более 20 различных платформ, под более чем 10 различными операционными системами, Free Pascal обеспечивает специальные режимы совместимости с различными распространёнными диалектами языка (Turbo Pascal (полная совместимость), Delphi и другими).

В настоящее время, начиная с Delphi 2003, создана реализация языка для платформы .Net, хотя разработчики продолжают использовать Delphi более ранних версий. О коммерческих разработках на Free Pascal, GNU Pascal и TMT Pascal на данный момент известно мало.

Особенностями языка являются строгая типизация и наличие средств структурного (процедурного) программирования. Паскаль был одним из первых таких языков. По мнению Н. Вирта, язык должен способствовать дисциплинированию программирования, поэтому, наряду со строгой типизацией, в Паскале сведены к минимуму возможные синтаксические неоднозначности, а сам синтаксис автор постарался сделать интуитивно понятным даже при первом знакомстве с языком.

Тем не менее, первоначально  язык имел ряд ограничений: невозможность  передачи функциям массивов переменной длины, отсутствие нормальных средств работы с динамической памятью, ограниченная библиотека ввода-вывода, отсутствие средств для подключения функций написанных на других языках, отсутствие средств раздельной компиляции и т. п. Подробный разбор недостатков языка Паскаль того времени был выполнен Брайаном Керниганом в статье «Почему Паскаль не является моим любимым языком программирования»[7] (эта статья вышла в начале 1980-х, когда уже существовал язык Модула-2, потомок Паскаля, избавленный от большинства его пороков, а также более развитые диалекты Паскаля). Некоторые недостатки Паскаля были исправлены в ISO-стандарте 1982 года, в частности, в языке появились открытые массивы, давшие возможность использовать одни и те же процедуры для обработки одномерных массивов различных размеров.

Необходимо  заметить, что многие недостатки языка  не проявляются или даже становятся достоинствами при обучении программированию. Кроме того, по сравнению с основным языком программирования в академической среде 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;

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