О языке программирования Турбо Паскаль

 

Язык Паскаль, утвержденный в качестве стандартного в 1979г., является наиболее совершенным по сравнению с такими универсальными языками программирования, как Алгол, Фортран, Бейсик, Пл. /М и др. Отражая основные концепции структурного программирования, язык Паскаль быстро завоевал популярность среди специалистов. В последнее время широкое распространение получают универсальные языки программирования (Си, Ада и др.), в основу которых положены средства языка Паскаль.

В 1992 г. фирма Borland International выпустила два пакета программирования, основанные на использовании языка Паскаль, Borland Pascal 7.0 и Turbo Pascal 7.0.

Пакет Turbo Pascal обладает ограниченными возможностями и позволяет работать только в обычном режиме MS DOS, он может быть использован практически на любой машине.

Turbo Pascal включает в себя как язык программирования - одно из расширений языка Паскаль для ЭВМ типа IBM, так и среду, предназначенную для написания, отладки и запуска программ.

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

Среда программирования позволяет создавать тексты программ, компилировать их, находить ошибки и оперативно их исправлять, компоновать программы из отдельных частей, включая стандартные модули, отлаживать и выполнять отлаженную программу. Пакет предоставляет пользователю также большой объем справочной информации.

Версия 7.0 так же как и предыдущая версия 6.0, обеспечивает многооконный и многофайловый режим работы, использование манипулятора "мышь" позволяет применять объектно-ориетированное программирование, обладает встроенным ассемблером, имеет иструментальное средство создания интерактивных программ - Turbo Vision - и т.д.

Характерные особенности Turbo Pascal 7.0:

· Выделение цветом различных элементов исходного текста программы - идентификаторов, зарезервированных слов, комментариев, строк, чисел и т.д., что позволяет на стадии ввода исходного текста устранить многие ошибки описки:

· Многофайловая система помощи с возможностью ее перестройки пользователем:

· Наличие локального меню с содержанием, зависящим от текущего состояния среды и вызываемого либо нажатием, либо нажатием правой клавиши мыши либо нажатием комбинации клавиш Alt+F10;

· Ряд дополнительных расширений языка: использование открытых массивов: параметров - констант: типизированного адресного оператора @: и т.д., дающих программисту дополнительные возможности позволяющих совмещать требования накладываемые на программы операционной системой MS DOS и средой Windows, пользоваться некоторыми возможностями которых нет в языке Паскаль и которые, есть в других языках, например в языке СИ;

· Наличие дополнительных стандартных процедур и функций;

· Наличие дополнительных ключей компилятора;

· Расширенные возможности объективно-ориентированного программирования;

база алгоритм программа листинг

· Получение более эффективных кодов программ (использование кодового сегмента для размещения строковых констант и констант типа - множества, удаление пустых строк, проверка переполнения величин целых типов, более быстрый ввод - вывод текстовых файлов и т.д.);

· Усовершенствованные программы Turbo Vision;

· Новая улучшенная компоновка системы меню;

В данной курсовой работе детально рассмотрен модуль Graph, все его процедуры и функции, приведено несколько разобранных примеров, прорешены задачи для самостоятельного решения. [4,5]

Глава II. Практическая часть

 

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

 

Требуется написать Базу Данных "Справочник ГИБДД" по марке, цвету, государственному номеру, дате выпуска и по паспортным данным владельцев автомобилей. Следует сделать запрос транспортных средств по произвольному шаблону, т.е. запрос идет по году выпуска транспортного средства. А также формируется приглашение на технический осмотр в соответствие со сроком.

Блок-схема

 

Описание типов, констант, переменных, процедур и функций

 

ГЛОБАЛЬНЫЕ Пользовательские типы
Пользовательские типы
Avto		определяется пользовательский тип записи
Inv: integer
Mka: string
Clr: string
Gosn: string
Dya: string
Month: string
Year: string
Ser: string
Num: string
Главная программа
i,j,r,god,mar: integer	переменная для определения
t	Переменная для связывания с текстовым файлом
f	текстовый файл
z	Массив состоящий из пользовательских типов записи

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

 

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

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

В популярной математической литературе под алгоритмическим языком понимаются набор символов и система правил составления и истолкования языковых конструкций из этих символов, используемых для записи алгоритмов. [1,6,7]

Глава III. Листинг программы

 

program GIBDD_b;

uses crt;

type

Avto=record

inv: integer;: string;: string;: string;: string;: string;: string;: string;: string;;,j,r: integer;: text;: string;: array [1.10] of Avto;

{Процедура Вывода данных}vivod_table;(f,'c: \1. txt');(f);(' Spisok avtomobiles ');;('god vipuska Mapka Tsvet Gosnomer Data texosmotra Pasport ');;not eof (f) do(f,t);(t);;

end;

{Процедура Ввода данных}

procedure vvod;(f,'c: \1. txt');(f);(vvedite kolichestvo avtomobiles: ');(j);i: =1 to j do('Vvedite dannie o ', i,' avtomobile');('vvedite god vipuska: ');(z [i]. inv);('vvedite marky: ');(z [i]. mka);(vvedite tsvet: ');(z [i]. clr);(vvedite gosnomer: ');(z [i]. gosn);(vvedite date texosmotra: ');(z [i]. day,z [i]. month,z [i]. year);('pasportnie dannie vladeltsa');(vvedite seriya: ');(z [i]. ser);(vvedite nomer');(z [i]. nom);;(f,z [i]. inv,z [i]. mka: 15,z [i]. clr: 10,z [i]. gosn: 10,z [i]. day: 17,z [i]. month,z [i]. year,z [i]. ser: 10,z [i]. nom: 10);;

end;

end;

{Процедура Запроса по году выпуска автомобиля}

procedure zapr_marka;: integer;('zapros po gody vipuska');('vvedite god vipuska: ');(mar);;(' Otchet po poisky ');;('god vipuska Mapka Tsvet Gosnomer Data texosmotra Pasport ');;(f, 'c: \1. txt');(f);not eof (f) do(f,z [i]. inv,z [i]. mka,z [i]. clr,z [i]. gosn,z [i]. day,z [i]. month,z [i]. year,z [i]. ser,z [i]. nom);mar=z [i]. inv then(z [i]. inv,z [i]. mka: 10,z [i]. clr: 10,z [i]. gosn: 10,z [i]. day: 10,z [i]. month,z [i]. year: 10,z [i]. ser: 10,z [i]. nom: 10);;

end;

{Процедура формирования приглашения по техосмотру}

procedure prigl;: integer;: string;('priglashenie na texosmotr');('vvedite god texosmotra avto for proverki sroka texosmotra: ');(god);('vvedite marky: ');(marka);;god=2007 then('prihodite na sledyushi god vladelets avtomobile', marka)('Prosim proiti texosmotr vladelets avtomobile ', marka);;

{Главная программа}

begin

clrscr;

write ('1-vvod informatsii');;('2-vivod informatsii');;('3-zapros po gods vipuska');;('4-priglashenie na texosmotr');;('5-exit');;r<>8 do(vvedite god vipuska: ');(r);r of

: begin;(f);;

: begin_table;(f);;

: exit;

: begin_marka;(f);;

: begin;;('­Error');;

end;

readkey;

end.

Заключение

 

В данной курсовой работе представляется электронный вариант, наглядное пособие Базы данных "Справочник ГИБДД". Разработка проекта проводилась на языке TURBO PASCAL. База предназначена для хранения, обработки и использования данных. Данную программу, при некоторых дополнениях можно использовать и в более широком масштабе, например, для создания и развития учреждений, способствующих предупреждению и борьбе с угонами и кражами автомобилей.

Список использованной литературы

 

1. "Лабораторный практикум по программированию на языке Паскаль", Учебное пособие, Под общ. ред. Л.В. Найхановой и Н.Ц. Бильгаевой, 2-е изд., Улан-Удэ, 2000;

2. "Программирование на языке ПАСКАЛЬ", О.Н. Перминов, М., Радио и Связь, 1988;

.   "Турбо Паскаль. Начальный курс" Учебное пособие, В.В. Фаронов, М., Нолидж, 1997;

.   "Турбо Паскаль для IBM", Ян Белецкий, М., Машиностроение, 1991;

.   "Основы программирования на языке Турбо Паскаль", Э.С. Бадмаева, А.А. Тонхоноева. Улан-Удэ, Изд-во БГУ, 2003;

.   "Турбо Паскаль в примерах и задачах", П.П. Васильев М., "Финансы и статистика", 2003;

.   "Турбо Паскаль в примерах и задачах", Н. Культин, С-Пб, "БХВ-Петербург", 2003;

.   Турбо Паскаль, С.А. Немнюгин. СПб., Питер, 2000