Курсовая работа : Автоматизована реєстрація і облік автомобілей 


Полнотекстовый поиск по базе:

Главная >> Курсовая работа >> Информатика, программирование


Автоматизована реєстрація і облік автомобілей




Міністерство внутрішніх справ України Харківський національний університет внутрішніх справ Навчально-науковий інститут менеджменту, соціальних та інформаційних технологій Кафедра інформаційних систем і технологій в діяльності ОВС

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

з дисципліни "Основи програмування та алгоритмічні мови"

на тему: "Автоматизована реєстрація і облік автомобілей"

Харків

Зміст

Вступ

1. Основна частина

1.1 Неформальна постановка задачі

1.2 Формальна постановка задачі

1.3 Структура зберігаючих даних:

2. Алгоритми

2.1 Алгоритм основної програми

2.2 Алгоритм процедури vvod

3. Вихідний код програми

Висновок

Список використаної літератури

Вступ

Реєстрація автомобілів для полегшення роботи багатьох служб. Сьогодні це питання не стоїть так гостро як декілька років назад. Розроблено багато програм які полегшують роботу з таким видом інформації як електронний. Але моєю задачею є створити програму яка буду мати невеликі розміри та виконуватиме всі необхідні функції.

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

Я вибрав мову програмування Turbo Pascal бо важаю її найбільш оптимальною для вирішення даної задачі та з метою закріплення своїх навиків з програмування в даному середовищі.

1. Основна частина

1.1 Неформальна постановка задачі

Розробити програму-"реєстрація автомобілів" для збереження та перегляду всієї інформації що стосується автотранспорту.

  • Введення і збереження інформації в типізованому файлі:

    • Модель машини

    • Рік випуску машини

    • Витрати палива на 100 кілометрів;

    • Об’єм двигуна.

  • Можливість редагування даної бази

  • Організація пошуку за критеріями:

    • Модель машини

    • Рік випуску машини

    • Витрати палива на 100 кіломитрів;

    • Об’єм двигуна.

  • Можливість перегляду всіх існуючих документів

  • Можливість видалення всієї бази.

  • Зручний інтерфейс для користувача

  • Швидкість та простота роботи в даній програмі

  • Введення необхідних підказок для користувача

1.2 Формальна постановка задачі

Вихідні дані:

Нехай Х- власників авто, тоді H=||Hi|| - множина автомобілей, де і=1..n

Результат:

Якщо Oi – це критерій вибору по будь якому з визначених критеріїв, Bi буди належати Oi і буде її підмножиною.

Математична модель:

Bi – критерій який використовується для пошуку, де i- номер критерія з зазначених . Таким чином отримуємо множину Bi Oi

1.3 Структура зберігаючих даних

Lk – структурований запис для введення та зберігання інформації

  • Ml – поле строкового типу для запису моделі автотранспорту

  • Gv – поле строкового типу для запису року випуску машини

  • tp - поле строкового типу для запису запису витрати палива

  • odv - поле строкового типу для запису об’єму двигуна

f – типізований файл для зберігання автотранспорту

menu_pickto - процедура яка прорисовує головне меню

menu_text - процедура виведення пунктів меню

menu_vibor – процедура для управляння головним меню

pamka - процедура яка малює рамку

tabl - процедура яка виводить на екран таблицю

vvod – процедура введення інформації, та занесення її до файлу

viv - процедура пошуку за певними критеріями

2. Алгоритми

2.1 Алгоритм основної програми

0100090000032a0200000200a20100000000a201000026060f003a03574d46430100000000000100bfe70000000001000000180300000000000018030000010000006c0000000000000000000000350000006f0000000000000000000000401d0000212f000020454d4600000100180300001200000002000000000000000000000000000000c0120000aa1a0000cb00000021010000000000000000000000000000c0190300c7680400160000000c000000180000000a0000001000000000000000000000000900000010000000e6060000220b0000250000000c0000000e000080250000000c0000000e000080120000000c00000001000000520000007001000001000000a4ffffff00000000000000000000000090010000000000cc04400022430061006c006900620072006900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001100584c110010000000bc4f11003c4d1100e4506032bc4f1100b44c110010000000244e1100a04f11008a4f6032bc4f1100b44c11002000000080e02d31b44c1100bc4f110020000000fffffffffc02e000fbe02d31ffffffffffff0180ffff01802fff0180ffffffff0000010000080000000800004300000001000000000000005802000025000000372e9001cc00020f0502020204030204ef0200a07b20004000000000000000009f00000000000000430061006c0069006200720000000000000000007c4d1100334e2f31282e0c32dc501100e84c1100d53227310600000001000000244d1100244d110000762531060000004c4d1100fc02e0006476000800000000250000000c00000001000000250000000c00000001000000250000000c00000001000000180000000c0000000000000254000000540000000000000000000000350000006f0000000100000055558740637b87400000000057000000010000004c000000040000000000000000000000e9060000220b000050000000200036003600000046000000280000001c0000004744494302000000ffffffffffffffffe7060000230b0000000000004600000014000000080000004744494303000000250000000c0000000e000080250000000c0000000e0000800e000000140000000000000010000000140000000400000003010800050000000b0200000000050000000c0206024001040000002e0118001c000000fb020300010000000000bc02000000cc0102022253797374656d0000000000000000000000000000000000000000000000000000040000002d010000040000002d01000004000000020101001c000000fb02efff0000000000009001000000cc0440002243616c6962726900000000000000000000000000000000000000000000000000040000002d010100040000002d010100040000002d010100050000000902000000020d000000320a1000000001000400000000003f010602207b0a00040000002d010000040000002d010000030000000000

0100090000032a0200000200a20100000000a201000026060f003a03574d46430100000000000100bfe70000000001000000180300000000000018030000010000006c0000000000000000000000350000006f0000000000000000000000401d0000212f000020454d4600000100180300001200000002000000000000000000000000000000c0120000aa1a0000cb00000021010000000000000000000000000000c0190300c7680400160000000c000000180000000a0000001000000000000000000000000900000010000000e6060000220b0000250000000c0000000e000080250000000c0000000e000080120000000c00000001000000520000007001000001000000a4ffffff00000000000000000000000090010000000000cc04400022430061006c006900620072006900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001100584c110010000000bc4f11003c4d1100e4506032bc4f1100b44c110010000000244e1100a04f11008a4f6032bc4f1100b44c11002000000080e02d31b44c1100bc4f110020000000fffffffffc02e000fbe02d31ffffffffffff0180ffff01802fff0180ffffffff0000010000080000000800004300000001000000000000005802000025000000372e9001cc00020f0502020204030204ef0200a07b20004000000000000000009f00000000000000430061006c0069006200720000000000000000007c4d1100334e2f31282e0c32dc501100e84c1100d53227310600000001000000244d1100244d110000762531060000004c4d1100fc02e0006476000800000000250000000c00000001000000250000000c00000001000000250000000c00000001000000180000000c0000000000000254000000540000000000000000000000350000006f0000000100000055558740637b87400000000057000000010000004c000000040000000000000000000000e9060000220b000050000000200036003600000046000000280000001c0000004744494302000000ffffffffffffffffe7060000230b0000000000004600000014000000080000004744494303000000250000000c0000000e000080250000000c0000000e0000800e000000140000000000000010000000140000000400000003010800050000000b0200000000050000000c0206024001040000002e0118001c000000fb020300010000000000bc02000000cc0102022253797374656d0000000000000000000000000000000000000000000000000000040000002d010000040000002d01000004000000020101001c000000fb02efff0000000000009001000000cc0440002243616c6962726900000000000000000000000000000000000000000000000000040000002d010100040000002d010100040000002d010100050000000902000000020d000000320a1000000001000400000000003f010602207b0a00040000002d010000040000002d010000030000000000

2.2 Алгоритм процедури vvod

0100090000032a0200000200a20100000000a201000026060f003a03574d46430100000000000100bfe70000000001000000180300000000000018030000010000006c0000000000000000000000350000006f0000000000000000000000401d0000212f000020454d4600000100180300001200000002000000000000000000000000000000c0120000aa1a0000cb00000021010000000000000000000000000000c0190300c7680400160000000c000000180000000a0000001000000000000000000000000900000010000000e6060000220b0000250000000c0000000e000080250000000c0000000e000080120000000c00000001000000520000007001000001000000a4ffffff00000000000000000000000090010000000000cc04400022430061006c006900620072006900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001100584c110010000000bc4f11003c4d1100e4506032bc4f1100b44c110010000000244e1100a04f11008a4f6032bc4f1100b44c11002000000080e02d31b44c1100bc4f110020000000fffffffffc02e000fbe02d31ffffffffffff0180ffff01802fff0180ffffffff0000010000080000000800004300000001000000000000005802000025000000372e9001cc00020f0502020204030204ef0200a07b20004000000000000000009f00000000000000430061006c0069006200720000000000000000007c4d1100334e2f31282e0c32dc501100e84c1100d53227310600000001000000244d1100244d110000762531060000004c4d1100fc02e0006476000800000000250000000c00000001000000250000000c00000001000000250000000c00000001000000180000000c0000000000000254000000540000000000000000000000350000006f0000000100000055558740637b87400000000057000000010000004c000000040000000000000000000000e9060000220b000050000000200036003600000046000000280000001c0000004744494302000000ffffffffffffffffe7060000230b0000000000004600000014000000080000004744494303000000250000000c0000000e000080250000000c0000000e0000800e000000140000000000000010000000140000000400000003010800050000000b0200000000050000000c0206024001040000002e0118001c000000fb020300010000000000bc02000000cc0102022253797374656d0000000000000000000000000000000000000000000000000000040000002d010000040000002d01000004000000020101001c000000fb02efff0000000000009001000000cc0440002243616c6962726900000000000000000000000000000000000000000000000000040000002d010100040000002d010100040000002d010100050000000902000000020d000000320a1000000001000400000000003f010602207b0a00040000002d010000040000002d010000030000000000

3. Вихідний код програми

uses crt,dos;

type lk=record

gv,ml,odv,tp:string[10];

end;

{..................................}

var f:file of lk; ma:lk;

{--------RAMKA-----------}

procedure ramka (x1,y1,x2,y2{Љ®®а¤Ё­ вл а ¬ЄЁ ўе®¤­лҐ},

{x01,y01{Љ®®а¤Ё­ вл ўлў®¤ ⥪бв ў а ¬ЄҐ}{:integer;

st{’ҐЄбв ўлў®¤Ё¬л© ў а ¬ЄҐ}{:string;}

a{ЏҐаҐ¬Ґ­­ п д®­ а ¬ЄЁ}:byte);

var i:integer;

begin

textbackground(a);

textcolor(red);

window (x1,y1,x2,y2);

write('Ъ');

for i:=1 to (x2-x1)-1 do

begin

write('Д');

end;

write('ї');

for i:=2 to (y2-y1)-1 do

begin

gotoxy(1,i);

write('і');

gotoxy(x2-x1+1,i);

write('і');

end;

write('А');

for i:=1 to (x2-x1)-1 do

begin

write('Д');

end;

write('Щ');

end;

{------------------------}

procedure newreadkey (var a{‘зЁвлў Ґ¬л© Є®¤ бЁ¬ў®" }:char;

var b{ђ §иЁаҐ­л© Є®¤ Є" ўЁиЁ}:byte);

begin

b:=0;

a:=readkey;

if a=#0 then

b:=ord(readkey);

end;

{--------------------}

procedure menu_pickto(n:byte);

var i:byte;

begin

textcolor(14);

for i:=1 to n do

begin

writeln('| | | | | |');

writeln(' \ \ \ / / /');

writeln(' | | | | | |');

writeln(' / / / \ \ \');

end;

end;

{--------------------}

procedure menu_text(x1,y1,c1,c2,c3,c4:byte;s1,s2,s3,s4:string);

begin

gotoxy(x1,y1);

textcolor(c1);

write(s1);

gotoxy(x1,y1+4);

textcolor(c2);

write(s2);

gotoxy(x1,y1+8);

textcolor(c3);

write(s3);

gotoxy(x1,y1+12);

textcolor(c4);

write(s4);

end;

{-------------------}

procedure menu_vibor(x,y,c:byte);

begin

textcolor(c);

gotoxy(x,y);

write('_ _ _ _ _ _ _ _');

{window(x,y,x+15,y+2);

textbackground(5);

clrscr;}

gotoxy(x,y+3);

write('_ _ _ _ _ _ _ _');

end;

procedure pamka (x1,y1,x2,y2:integer);

var i,c:integer;

begin

textcolor(7);

gotoxy(x1,y1);

write(#201);

for i:=1 to x2-x1-1 do

begin

gotoxy(x1+i,y1);

write(#205);

end;

gotoxy(x2,y1);

write(#187);

for i:=1 to y2-y1-1 do

begin

gotoxy(x2,y1+i);

write(#186);

end;

gotoxy(x2,y2);

write(#188);

for i:=1 to x2-x1-1 do

begin

gotoxy(x2-i,y2);

write(#205);

end;

gotoxy(x1,y2);

write(#200);

for i:=1 to y2-y1-1 do

begin

gotoxy(x1,y1+i);

write(#186);

end;

end;

{...............................................}

procedure tabl(st:string);

var i,j,x,y:integer;

begin

for i:=1 to 80 do

begin

gotoxy(0+i,2);

write(#196);

end;

for i:=1 to 80 do

begin

gotoxy(0+i,4);

write(#196);

end;

gotoxy(1,1);

write(#218);

gotoxy(80,1);

write(#191);

for i:=1 to 78 do

begin

gotoxy(1+i,1);

write(#196);

end;

gotoxy(35,1);

textcolor(3);

writeln(st);

textcolor(7);

for i:=1 to 23 do

begin

gotoxy(1,1+i);

write(#179);

end;

gotoxy(1,2);

write(#195);

gotoxy(1,4);

write(#195);

y:=2;

for i:=1 to 10 do

begin

gotoxy(1,4+y);

write(#195);

y:=y+2;

end;

gotoxy(1,24);

write(#192);

for i:=1 to 78 do

begin

gotoxy(1+i,24);

write(#196);

end;

for i:=1 to 23 do

begin

gotoxy(80,1+i);

write(#179);

end;

gotoxy(80,24);

write(#217);

gotoxy(80,2);

write(#180);

y:=2;

for i:=1 to 10 do

begin

gotoxy(80,2+y);

write(#180);

y:=y+2;

end;

y:=2;

for j:=1 to 10 do

begin

y:=y+2;

for i:=1 to 78 do

begin

gotoxy(1+i,y);

write(#196);

end;

end;

x:=20;

for i:=1 to 3 do

begin

gotoxy(0+x,2);

write(#194);

x:=x+20;

end;

x:=20;

for i:=1 to 3 do

begin

gotoxy(0+x,24);

write(#193);

x:=x+20;

end;

x:=0;

for j:=1 to 3 do

begin

x:=x+20;

for i:=1 to 21 do

begin

gotoxy(0+x,2+i);

write(#179);

end;

end;

x:=0;

for j:=1 to 3 do

begin

y:=4;

for i:=1 to 10 do

begin

gotoxy(20+x,y);

write(#197);

y:=y+2;

end;

x:=x+20;

end;

textcolor(3);

gotoxy(5,3);

write('model mahini');

gotoxy(24,3);

write('obem dvigatela');

gotoxy(44,3);

writeln('god vipuska');

gotoxy(61,3);

write('rashod topliva');

end;

{.............................................}

procedure vvod;

var st:string; i,n:integer;

begin

window(1,1,80,25);

clrscr;

assign(f,'d:\tyu');

rewrite(f);

pamka(1,1,80,3);

gotoxy(37,2);

writeln('VVOD');

pamka(1,1,80,24);

gotoxy(1,3);

write(#204);

gotoxy(80,3);

write(#185);

window(2,4,79,23);

write('vvedite kolichestvo avtomobiley- ');

readln(n);

for i:=1 to n do

begin

with ma do

begin

clrscr;

gotoxy(2,4);

writeln('mahina-',i);

write('vvedi model mahini- ');readln(ml);

write('vvedi god vipuska- ');readln(gv);

write('vvedi rasxod topliva- ');readln(tp);

write('vvedi obem dv. ');readln(odv);

writeln;

end;

seek(f,filesize(f));

write(f,ma);

end;

close(f);

end;

procedure viv;

var st:string;i,y:integer;

begin

window(1,1,80,25);

if FSearch('tyu','d:\')='' then

begin

textbackground(0);

clrscr;

textcolor(132);

writeln('FAIL NE NAYDEN');

readln;

end

else

begin

textbackground(0);

clrscr;

st:='baza dannix';

tabl(st);

assign(f,'d:\tyu');

reset(f);

y:=1;

for i:=0 to filesize(f)-1 do

begin

seek(f,i);

read(f,ma);

with ma do

begin

gotoxy(2,4+y);

write(i+1);

gotoxy(3,4+y);

write(#179);

gotoxy(4,4+y);

write(ml);

gotoxy(24,4+y);

write(odv);

gotoxy(44,4+y);

write(gv);

gotoxy(64,4+y);

write(tp);

end;

y:=y+2;

end;

end;

readln;

end;

procedure poi;

var i:integer ; s:string;

begin

window(1,1,80,25);

if FSearch('tyu','d:\')='' then

begin

textbackground(0);

clrscr;

textcolor(132);

writeln('FAIL NE NAYDEN');

readln;

end

else

begin

window(1,1,80,25);

clrscr;

assign(f,'d:\tyu');

reset(f);

pamka(1,1,80,3);

gotoxy(37,2);

writeln('Poisk');

pamka(1,1,80,24);

gotoxy(1,3);

write(#204);

gotoxy(80,3);

write(#185);

window(2,4,79,23);

write('Kluch dla poicka-');

textcolor(4);

readln(s);

textcolor(7);

for i:=0 to filesize(f)-1 do

begin

seek(f,i);

read(f,ma);

with ma do

begin

if (s=ml) or (s=odv) or (s=gv) or (s=tp) then

begin

textcolor(4);

writeln('zapis-',i+1);

write('model mashini- ' ,ml);

write('god vipuska- ',gv);

write(' obem dvigatela- ',odv);

write('rasxod topliva- ',tp);

end;

end;

end;

end;

end;

{:::::::::::::::::::::::::::::::}

var e:char;r,i:byte;

begin

{clrscr;

vvod;

viv;

poi;

readln;}

repeat

clrscr;

window(1,1,80,25);

textbackground(1);

clrscr;

i:=1;

window (6,4,34,22);

menu_pickto(6);

textcolor(14);

menu_text(8,3,12,14,14,14,' Vvod',' Pokasat',' Nayti',' Viyti');

menu_vibor(7,1,14);

repeat

newreadkey(e,r);

if r=72 then

i:=i-1;

if r=80 then

i:=i+1;

if i=0 then

i:=4;

if i=5 then

i:=1;

case i of

1: begin

menu_vibor(7,5,1);

menu_vibor(7,13,1);

menu_text(8,3,12,14,14,14,' Vvod',' Pokasat',' Nayti',' Viyti');

menu_vibor(7,1,14);

end;

2: begin

menu_vibor(7,1,1);

menu_vibor(7,9,1);

menu_text(8,3,14,12,14,14,' Vvod',' Pokasat',' Nayti',' Viyti');

menu_vibor(7,5,14);

end;

3: begin

menu_vibor(7,5,1);

menu_vibor(7,13,1);

menu_text(8,3,14,14,12,14,' Vvod',' Pokasat',' Nayti',' Viyti');

menu_vibor(7,9,14);

end;

4: begin

menu_vibor(7,9,1);

menu_vibor(7,1,1);

menu_text(8,3,14,14,14,12,' Vvod',' Pokasat',' Nayti',' Viyti');

menu_vibor(7,13,14);

end;

end;

until e=#13;

case i of

1:vvod;

2:viv;

3:poi;

end;

until i=4;

end.

Висновок

В даній курсовій роботі були виконане всі поставлені задачі. Було продемонстровано мій рівень програмування в середовищі Турбо Паскаль. Результатом цієї роботи є програмний продукт, який має зручний інтерфейс, простоту в застосуванні та виконує всі покладені в основу функції.

Я обрав мову програмування Паскаль, оскільки вважаю що для даної роботи він підходить найбільш.

Список використаної літератури

  1. Струков В.М. Основи алгоритмизации и програмирования. Часть 2. Учебное пособие. – Харьков: Изд. Нац. ун-та внутр.дел,2003. – 188 с.

  2. Сердюченко В.Я. Розробка алгоритмів та програмування на мові Turbo Pascal. – X.,1995.

  3. Немнюгин С.А. Turbo Pascal. – СПб.: Питер, 2002. – 496 с.: ил.

Похожие работы:

  • Облік створення підприємства

    Курсовая работа >> Бухгалтерский учет и аудит
    ... диний державний реєстр – це автоматизована система збору, накопичення, захисту, обліку ... легкових автомобілів й зареєстровані у Пенсійному фонді, то окремий облік й реєстрація їх ... Для виконання завдань та досягнення цілей, передбачених Статутом, Товариство ма ...
  • Облік та аудиту комерційних банках

    Книга >> Бухгалтерский учет и аудит
    ... реєстрації банківських операцій в обліку. Реалізація зазначених цілей ... ; 3) передача документів для автоматизованої обробки; 4) використання документів ... наслідками огляду_________________________________________________________________ автомобіля, причепа, ...
  • Теоретичні основи обліку та аудиту

    Дипломная работа >> Бухгалтерский учет и аудит
    ... ії залізничну лінію та автомобільні магістралі, ... після первинної реєстрації в облікових реєстрах даних первинного оформлення ... ПКО в залежності від цілей використання коштів, які надходять ... До складу системи автоматизованої обробки завдань обліку грошових кошт ...
  • Облік виробничих запасів

    Дипломная работа >> Бухгалтерский учет и аудит
    ... виробничих запасів для цілей обліку і аналі ... йшли від постачальника автомобільним транспортом, ... обліку передбачає подальшу реєстрацію меморіальних ордерів у реєстрац ... автоматизованої системи обліку (у тому числі первинного). Повністю автоматизована система обл ...
  • Облік активної частини балансу підприємства

    Дипломная работа >> Бухгалтерский учет и аудит
    ... межах відомства - тодішнього автомобільного, тракторного і сільськогосподарського ... обліку основних засобів" використовується для реєстрації ... , технічних цілей та сприяння у ... й операції з реалізації діалогової автоматизованої системи, призначеної для ...
  • Облік виробничих витрат у птахівництві

    Дипломная работа >> Бухгалтерский учет и аудит
    ... ів, лабораторій, бригадних споруд автомобілів ветеринарної медицини; - ... функціонування і філей господарювання підприємства ... нського обліку і відповідно потужної автоматизованої системи ... бухгалтерський облік у господарстві ведеться безперервно з дня реєстрації ...
  • Облік запасів

    Курсовая работа >> Бухгалтерский учет и аудит
    ... обліку (залежно від поставлених цілей). Іншими словами, облікову ... нформації. Діалогово-автоматизована форма бухгалтерського обліку передбачає ... ів, інструментів, а також автомобільних шин у запасі ... Свідоцтво про державну реєстрацію Додаток 2 Довідка ...
  • Облік і аудит основних засобів на вагонній дільниці станції

    Дипломная работа >> Бухгалтерский учет и аудит
    ... система бухгалтерський облік здійснює збирання, реєстрацію їй ... . Для цілей бухгалтерського обліку основні ... цін (видаваних, наприклад, Українською автомобільною корпорацією); - у міському ... ітичного обліку основних засобів ведеться автоматизована інвентарна ...
  • Реалізація функцій менеджменту на підприємствах залізничного транспорту

    Реферат >> Менеджмент
    ... лей (наприклад, орієнтація на уніфікування деталей і вузлів автомоб ... основне виробництво, реалізація продукції! ... статистичний і бухгалтерський облік витрат по кап ... Впроваджена система автоматизованої ідентифікац ... державної адміністрації з питань транспортного ...
  • Облік розрахунків з учасниками (засновниками) підприємства

    Дипломная работа >> Бухгалтерский учет и аудит
    ... зборів і платежів при реєстрації (перереєстрації). 2. Доставці і страхуванню ... Закону про прибуток). Передача автомобіля в статутний фонд підпри ... тичними розрізами для цілей управління. Так, ... ії організації автоматизованої обробки інформації з обліку і аналі ...