Справочник работника ГИБДД (база данных)
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?кие типыПользовательские типыAvtoопределяется пользовательский тип записи Inv: integerMka: stringClr: stringGosn: stringDya: stringMonth: stringYear: stringSer: stringNum: stringГлавная программаi,j,r,god,mar: integerпеременная для определенияtПеременная для связывания с текстовым файломfтекстовый файлzМассив состоящий из пользовательских типов записи
.4 Описание алгоритма
Немного об алгоритмах. При решении задачи мы, как правило, стараемся определить, к какому классу задач следует ее отнести. После этого мы либо применяем известные механизмы решения, либо разрабатываем новый алгоритм решения задач именно этого класса. Под алгоритмом понимается конечный набор правил, позволяющий механически решать любую конкретную задачу из некоторого класса однотипных задач. При этом исходные данные для каждого алгоритма находятся в определенных смысловых пределах, характерных для класса задач.
Для разработки текста алгоритма используются специальные средства, так называемый алгоритмический язык. Что же понимается под алгоритмическим языком?
В популярной математической литературе под алгоритмическим языком понимаются набор символов и система правил составления и истолкования языковых конструкций из этих символов, используемых для записи алгоритмов. [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