Автоматизована реєстрація і облік автомобілей
Розробка програми реєстрації автомобілів для збереження та перегляду інформації про модель машини, рік її випуску, об'єм двигуна і витрати палива. Складання алгоритмів розв'язання поставленої задачі та написання тексту програми в середовищі Turbo Pascal.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | украинский |
| Дата добавления | 13.10.2010 |
| Размер файла | 29,7 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Міністерство внутрішніх справ України Харківський національний університет внутрішніх справ Навчально-науковий інститут менеджменту, соціальних та інформаційних технологій Кафедра інформаційних систем і технологій в діяльності ОВС
Курсова робота
з дисципліни "Основи програмування та алгоритмічні мови"
на тему: "Автоматизована реєстрація і облік автомобілей"
Харків
Зміст
- Вступ
- 1. Основна частина
- 1.1 Неформальна постановка задачі
- 1.2 Формальна постановка задачі
- 1.3 Структура зберігаючих даних:
- 2. Алгоритми
- 2.1 Алгоритм основної програми
- 2.2 Алгоритм процедури vvod
- 3. Вихідний код програми
- Висновок
- Список використаної літератури
Вступ
Реєстрація автомобілів для полегшення роботи багатьох служб. Сьогодні це питання не стоїть так гостро як декілька років назад. Розроблено багато програм які полегшують роботу з таким видом інформації як електронний. Але моєю задачею є створити програму яка буду мати невеликі розміри та виконуватиме всі необхідні функції.
Призначення даного продукту полегшити роботу працівникам ОВС, але при цьому мати найпростіший інтерфейс з максимальною працевіддачею.
Я вибрав мову програмування Turbo Pascal бо важаю її найбільш оптимальною для вирішення даної задачі та з метою закріплення своїх навиків з програмування в даному середовищі.
1. Основна частина
1.1 Неформальна постановка задачі
Розробити програму-"реєстрація автомобілів" для збереження та перегляду всієї інформації що стосується автотранспорту.
ь Введення і збереження інформації в типізованому файлі:
o Модель машини
o Рік випуску машини
o Витрати палива на 100 кілометрів;
o Об'єм двигуна.
ь Можливість редагування даної бази
ь Організація пошуку за критеріями:
o Модель машини
o Рік випуску машини
o Витрати палива на 100 кіломитрів;
o Об'єм двигуна.
ь Можливість перегляду всіх існуючих документів
ь Можливість видалення всієї бази.
ь Зручний інтерфейс для користувача
ь Швидкість та простота роботи в даній програмі
ь Введення необхідних підказок для користувача
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 Алгоритм основної програми
2.2 Алгоритм процедури vvod
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 с.: ил.
Подобные документы
Розробка програми реєстрації і автоматизованого створення звіту на рік по викраденим машинам. Математична модель задачі, структура зберігаючих даних. Створення алгоритмів основної програми на мові Turbo Pascal і процедур Vvod і Red. Вихідний код програми.
курсовая работа [25,4 K], добавлен 07.10.2010Розробка програми мовою Turbo Pascal для автоматизації процесу перевірки оцінок та аналізу успішності групи, для збереження і перегляду всієї інформації стосовно навчання. Формальна постановка задачі, створення алгоритму та вихідного коду програми.
курсовая работа [36,0 K], добавлен 13.10.2010Розв’язання нелінійних алгебраїчних рівнянь методом хорд. Опис структури програмного проекту та алгоритмів розв’язання задачі. Розробка та виконання тестового прикладу. Інші математичні способи знаходження коренів рівнянь, та опис виконаної програми.
курсовая работа [4,1 M], добавлен 28.09.2010Розробка програми для вирішення графічної задачі. При вирішенні задачі необхідно cтворювати програму у середовищі програмування Turbo Pascal. Розробка алгоритму функціонування програми і надання блок-схеми алгоритму. Демонстрація роботи програми.
курсовая работа [1,3 M], добавлен 23.06.2010Розробка програми "товарна база", призначеної для збереження та перегляду, а також автоматизованої обробки інформації, що надає користувач. Формальна та неформальна постановка задачі. Структура зберігаючих даних. Вихідний код програми, її апробація.
контрольная работа [13,3 K], добавлен 07.10.2010Розробка програми "Злочин", що призначена для збереження та перегляду, а також автоматичного аналізу всієї інформації про злочинність. Порядок і основні принципи формування структури даних, постановка задачі. Написання та лістинг розробленої програми.
контрольная работа [12,3 K], добавлен 07.10.2010Визначення і розв’язання задачі Коші для звичайних диференціальних рівнянь першого порядку методом Ейлера, алгоритм розв’язання, похибка при вирішенні. Складання блок-схеми. Реалізація алгоритму у середовищі Borland Pascal. Результат роботи програми.
курсовая работа [264,0 K], добавлен 20.08.2010Програма "Приватка" для збереження та перегляду всієї інформації, що стосується пошуку підприємства. Розробка алгоритму та програмування на мові Turbo Pascal. Формальна та неформальна постановка задачі. Структура зберігаючих даних. Вихідний код програми.
курсовая работа [20,9 K], добавлен 07.10.2010Розробка програми "Авто" для введення та збереження інформації про власників та їхні автомобілі. Побудова математичної моделі. Критерії вибору та пошуку даних. Структура введених та збережених у файлах програми даних. Алгоритм основної програми та її код.
курсовая работа [20,3 K], добавлен 07.10.2010Вибір засобу виконання поставленої задачі. Функції переривання INT 21h MS DOS, що використані при роботі програм. Функції роботи із DTA та інші функції переривання INT 21h. Функція завершення програми. Розробка програми на Pascal. Допоміжні процедури.
дипломная работа [89,0 K], добавлен 20.01.2009
