Автоматизована реєстрація і облік викрадених автомобілів
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
Міністерство внутрішніх справ України Харківський національний університет внутрішніх справ Навчально-науковий інститут менеджменту, соціальних та інформаційних технологій Кафедра інформаційних систем і технологій в діяльності ОВС
Курсова робота
з дисципліни Основи програмування та алгоритмічні мови
на тему: Автоматизована реєстрація і облік викрадених автомобілів
Харків, 2009
Зміст
Вступ
1. Основна частина
1.1 Неформальна постановка задачі
1.2 Формальна постановка задачі
1.3 Структура зберігаючих даних:
2. Алгоритми
2.1 Алгоритм основної програми
2.2 Алгоритм процедури Vvod
2.3 Алгоритм процедури Red
3. Вихідний код програми
Висновок
Список використаної літератури
Вступ
Швидкий розвиток компютерних технологій надав можливість багатьом одержувати, зберігати та обробляти інформацію в електронному вигляді, але виникла така проблема, що такої інформації стало дуже багато а обробляти її при такій кількості дуже нелегко. Таким чином я вирішив обрати темою своєї курсової роботі саме створення програми для автоматизованої реєстрації і обліку викрадених автомобілів. Ця програма полегшить обробку електронного обігу інформації.
Я вибрав мову програмування Турбо Паскаль, з метою закріплення своїх навиків з програмування.
Вихідним продуктом курсової роботи буду програма під назвою реєстрація і облік викрадених автомобілів.
1. Основна частина
1.1 Неформальна постановка задачі
Розробити програму - реєстрація і облік викрадених автомобілів для автоматизації обробки інформації по викраденим автомобілям.
Введення користувачем відомостей про викрадені автомобілі та збереження їх в типізований файл:
oФІО власника викраденого авто;
oМарка авто;
oКолір автомобіля;
oДата викрадення авто;
oНомер автомобіля.
Можливість редагування даної бази
Можливість видалення відомостей які втратили свою суть
Організація пошуку за критеріями:
oФІО власника;
oДата викрадення автотранспорту;
oМарка авто;
oНомер автомобіля;
Можливість перегляду всіх існуючих відомостей;
Зручний інтерфейс для користувача;
В складних випадках створення підказок для користувача;
Швидкість та простота роботи в даній програмі;
1.2 Формальна постановка задачі
Вихідні дані:
Нехай П={П1,П2,…,Пi}, де ( i=1, 2, ..., N ) - множина викрадених автомобілів.
Gi є Пi - ФІО власника авто яке викрали Fi є Пi - марка викраденого авто Di є Пi - колір викраденого автомобіля Hi є Пi - Дата реєстрації викрадання автомобіля Ji є Пi - Реєстраційний номер автомобіля,
L i є Пi - Прапорець, яки дорівнює одиниці при поверненні авто
Таким чином отримуємо нову сукупність Пij - яка більш розширена в плані інформації про викрадені автомобілі.
Результат:
Множина Рij, яка формуються з вхідних даних а саме множини Пij.
Нову множину O=||Оi||, яка надає статистичні дані обраховуючи множину Пij.
Математична модель:
n
O1=?T1 , де T1 - кількість викрадених автомобілів за рік
j=1
n
O2=?T2 , де T2 - кількість знайдених автомобілів за рік
j=1
O3= O1 - O2 - кількість автомобілів які ще не знайдені в даному році
1.3 Структура зберігаючих даних:
Mah - тип запис для занесення даних про автомобілі
Cv - перемінні строкового типу для зберігання кольору
Nom - перемінні строкового типу для зберігання номеру
md - перемінні строкового типу для зберігання моделі
hz - перемінні строкового типу для зберігання ФІБ власника
vvod - процедура для введення та зберігання відомостей
poisk; - процедура для пошуку певних відомостей за певним критерієм
red - процедура для до записи в існуючу базу
menu - процедура для створення управляючого меню
2. Алгоритми
2.1 Алгоритм основної програми
2.2 Алгоритм процедури Vvod
2.3 Алгоритм процедури Red
3. Вихідний код програми
uses crt,dos;
type mah=record
cv,nom:string[10];
md:string[10];
hz:string[20];
end;
var mas:mah;f:file of mah;c:char;
{.........vvod.............}
procedure vvod;
var i,n:integer; s:PathStr;
begin
assign(f,d:\fil);
rewrite(f);
clrscr;
writeln(vvedi kol-vo avtom);
read(n);
for i:=1 to n do
begin
seek(f,filesize(f));
with mas do
begin
writeln(vvedi nomer avtomobila);
readln;
readln(nom);
writeln(cvet avtomobila);
readln(cv);
writeln(vvedi HIO hozaina avtomobila);
readln(hz);
writeln(vvedi model avtomobila);
readln(md)