Автоматизований облік власників автомобілей
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
begin
gotoxy (5+i,25);
write (#196);
end;
gotoxy (35,21);
write (#218);
gotoxy (39,21);
write (#217);
for i: =1 to 3 do
begin
gotoxy (1+i,21);
write (#196);
end;
for i: =1 to 3 do
begin
gotoxy (35+i,21);
write (#196);
end;
for i: =1 to 3 do
begin
gotoxy (5,1+i);
write (#179);
end;
for i: =1 to 3 do
begin
gotoxy (35,1+i);
write (#179);
end;
for i: =1 to 3 do
begin
gotoxy (5,21+i);
write (#179);
end;
for i: =1 to 3 do
begin
gotoxy (35,21+i);
write (#179);
end;
for i: =1 to 15 do
begin
gotoxy (1,5+i);
write (#179);
end;
for i: =1 to 15 do
begin
gotoxy (39,5+i);
write (#179);
end;
end;
{... ... ... ... ... ... ... ... ... }
procedure vvod;
var i,n: integer;
begin
window (1,1,40,25);
textbackground (0);
clrscr;
textcolor (3);
ram;
gotoxy (18,2);
write (VVOD);
window (6,6,34, 20);
textcolor (7);
Write (Vvedi kol-vo vodil-); readln (n);
clrscr;
assign (h,d: \po. po); rewrite (h);
for i: =1 to n do
begin
seek (h,filesize (h));
with b do
begin
clrscr;
writeln (VODITEL-, i);
write (Vvedi model avt. - ); readln (m);
write (Vvedi mesto reg. - ); readln (mg);
write (Vvedi kategor. vod. prav-); readln (kvu);
write (Vvedi staj vogdenia-); readln (st);
write (Vvedi FIO - ); readln (im);
end;
write (h,b);
end;
close (h);
end;
{... ... ... ... ... ... ... ... ... ... ... ... ... ... }
procedure poisk;
var s: string; i: integer;
begin
window (1,1,40,25);
textbackground (0);
clrscr;
textcolor (2);
window (1,1,40,25);
ram;
gotoxy (18,2);
Write (POISK);
textcolor (7);
window (6,6,34, 20);
if fsearch (po. po,d: \) = then
begin
textcolor (132);
gotoxy (8,7);
write (FAIL NE NAYDEN);
end
else
begin
write (Vvedi to,chto ishesh-); readln (s);
assign (h,d: \po. po); reset (h);
for i: =0 to filesize (h) - 1 do
begin
seek (h, i); read (h,b);
with b do
begin
if (s=m) or (s=mg) or (s=kvu) or (s=st) or (s=im) then
begin
writeln (VODITEL-, i+1);
writeln (Model avt. - ,m);
writeln (Mesto reg. - ,mg);
writeln (Kategor. vod. prav-,kvu);
writeln (Stag vogdenia-,st);
writeln ( FIO voditela - , im);
writeln;
end
else
write (Po zaprosu nichego ne naydeno);
end;
end;
close (h);
end;
end;
{... ... ... ... ... ... ... ... ... ... ... ... ... . }
procedure udal;
var xc: char;
begin
window (1,1,40,25);
textbackground (0);
clrscr;
textcolor (4);
ram;
gotoxy (16,2);
write (UDALENIE);
textcolor (7);
window (6,6,34, 20);
if fsearch (po. po,d: \) = then
begin
textcolor (132);
gotoxy (8,7);
write (FAIL NE NAYDEN);
end
else
begin
write (Vi deystvitelno xotite udalit fail,#63);
textcolor (4);
write (y/n ); textcolor (7); readln (xc);
case xc of
y: begin
assign (h,D: \po. po);
erase (h); writeln;
writeln (UDALENO);
end;
n: readln;
end;
end;
end;
{... ... ... ... . }
procedure red;
var i: integer;
begin
window (1,1,40,25);
textbackground (0);
clrscr;
window (1,1,40,25);
textcolor (1);
ram;
gotoxy (13,2);
write (REDAKTIROVANIE);
textcolor (7);
window (6,6,34, 20);
if fsearch (po. po,d: \) = then
begin
textcolor (132);
gotoxy (8,7);
write (FAIL NE NAYDEN);
end
else
begin
assign (h,d: \po. po);
reset (h);
writeln (Vsego voditeley-,filesize (h));
write (Vvedi nomer dlya red. - ); readln (i);
seek (h, i-1);
read (h,b);
with b do
begin
writeln (VODITEL-, i);
writeln (Model avt. - ,m);
writeln (Mesto reg. - ,mg);
writeln (Kategor. vod. prav-,kvu);
writeln (Stag vogdenia-,st);
writeln ( FIO voditela - , im);
writeln;
end;
writeln (Dla red. nagmi "ENTER");
readln;
clrscr;
with b do
begin
clrscr;
writeln (VODITEL-, i);
write (Vvedi model avt. - ); readln (m);
write (Vvedi mesto reg. - ); readln (mg);
write (Vvedi kategor. vod. prav-); readln (kvu);
write (Vvedi stag vogdenia-); readln (st);
write (Vvedi FIO - ); readln (im);
end;
seek (h, i-1); write (h,b);
end;
close (h);
end;
{::::::::::::::::::::::::::: }
var i,r,p: byte;
t: char;
begin
textmode (c40);
repeat
window (1,1,40,25);
textbackground (5);
clrscr;
textcolor (11);
fon;
text;
i: =1;
kursor (i,9);
repeat
newreadkey (t,r);
p: =i;
case r of
72: i: =i-1;
80: i: =i+1;
end;
case i of
0: i: =1;
6: i: =5;
end;
kursor (p,5);
kursor (i,9);
until t=#13;
case i of
1: vvod;
2: red;
3: poisk;
4: udal;
end;
until i=5;
end.
Висновок
В даній курсовій роботі було створено програму для автоматизації та обробки певної інформації. Програма називається "авто та їх власники". В даній програмі був створений максимально простий інтерфейс, максимально спростована робота користувачем. Таким чином програма легка в використанні, в той же час вона набагато спростовує пошук певної необхідної інформації. Для створення даної програми мені знадобилися навички які я здобув під час навчання, та самовдосконалення.
Мовою програмування я обрав Паскаль, в виконував її в середовищі Turbo Pascal
Список використаної літератури
1.Струков В.М. Основи алгоритмизации и програмирования. Часть 2. Учебное пособие. - Харьков: Изд. Нац. ун-та внутр. дел, 2003. - 188 с.
2.Сердюченко В.Я. Розробка алгоритмів та програмування на мові Turbo Pascal. - X., 1995.
3.Немнюгин С.А. Turbo Pascal. - СПб.: Питер, 2002. - 496 с.: ил.