Автоматизований облік власників автотранспорту
Контрольная работа - Компьютеры, программирование
Другие контрольные работы по предмету Компьютеры, программирование
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 red;
var i, j, p:integer;
begin
window (1,1,40,25);
textbackground(0);
clrscr;
textcolor(7);
if FSearch (po, d:\)= then
begin
window (1,1,40,25);
textbackground(0);
clrscr;
pamka (10,10,35,15);
gotoxy (16,11);
textcolor(132);
writeln (BASA NE SOZDANA);
textcolor(7);
end
else
begin
clrscr;
window (1,1,40,25);
textcolor(6);
pamka (1,1,39,25);
gotoxy (5,2);
textcolor(3);
writeln (REDAKTIROVANIE UCHOTA VODITELEY);
window (2,3,38,25);
assign (f, d:\po);
reset(f);
gotoxy (13,1);
textcolor(4);
writeln (VSA BASA:);
window (2,4,38,25);
for i:=0 to filesize(f) - 1 do
begin
seek (f, i);
read (f, bas);
with bas do
begin
clrscr;
textcolor(7);
writeln (voditel-, i+1); writeln;
writeln (F.I.O voditela-, fio); writeln;
write (Avto na kotorom on ezdiet-, av); writeln;
write (Seria i nomer pasporta voditela-, pas); writeln;
write (Adres progivania-, mg); writeln;
for j:=1 to 30 do
delay(9999);
end;
end;
clrscr;
write (Vvedi nomer voditela kotorogo budem redaktiovat - ); readln(p);
seek (f, p-1);
read (f, bas);
with bas do
begin
clrscr;
textcolor(7);
writeln (voditel-, p); writeln;
writeln (F.I.O voditela-, fio); writeln;
write (Avto na kotorom on ezdiet-, av); writeln;
write (Seria i nomer pasporta voditela-, pas); writeln;
write (Adres progivania-, mg); writeln;
end;
writeln;
textcolor(4);
writeln (Dla prestuplenia k redaktirovaniu nagmi ENTER );
readln;
textcolor(7);
with bas do
begin
clrscr;
gotoxy (8,1);
writeln (VODITEL-, p);
write (Vvedi F.I.O voditela - ); readln(fio);
write (Vvedi avto na kotorom on ezdiet - ); readln(av);
write (Vvedi seriu i nimer pasporta voditela - ); readln(pas);
write ( Vvedi adres progivania - ); readln(mg);
seek (f, p-1);
write (f, bas);
end;
close(f);
end;
end;
{…………………………………………………}
procedure udal;
var s:string; i, j:integer;
begin
if FSearch (po, d:\)= then
begin
window (1,1,40,25);
textbackground(0);
clrscr;
pamka (10,10,35,15);
gotoxy (16,11);
textcolor(132);
writeln (BASA NE SOZDANA);
textcolor(7);
end
else
begin
window (1,1,40,25);
textbackground(0);
clrscr;
window (10,10,35,15);
Writeln (Dla udalenia nagmi - ENTER );
if readkey=#13 then
begin
textcolor(4);
s:=UDALENO;
for i:=1 to length(s) do
begin
write (s[i]);
for j:=1 to 5 do
delay(9999);
end;
end
else
end;
end;
{:}
var i:byte;
key:char; k, p:byte;
begin
textmode(c40);
{vv;}
{red;}
{udal;}
repeat
window (1,1,40,25);
textbackground(7);
clrscr;
ris;
menin (11,4,29,5,7);
i:=1;
punkt (11,4,29,5,4, Zapolnit);
repeat
newreadkey (key, k);
case k of
72: begin
if i=1 then
p:=4;
if i>1 then
p:=i-1;
end;
80: begin
if i=4 then
p:=1;
if i<4 then
p:=i+1;
end;
end;
i:=p;
if i=1 then
begin
menin (11,4,29,5,7);
punkt (11,4,29,5,4, Zapolnit);
end;
if i=2 then
begin
menin (11,4,29,5,7);
punkt (11,7,29,8,4, Redaktirovat);
end;
if i=3 then
begin
menin (11,4,29,5,7);
punkt (11,10,29,11,4, Udalit);
end;
if i=4 then
begin
menin (11,4,29,5,7);
punkt (11,13,29,14,4, Vixod);
end;
until key=#13;
case i of
1: vv;
2:red;
3:udal;
end;
until i=4;
end.
Висновок
В даній курсовій роботі буда розроблена програма Водій, де зберігаються всі відомості про власників автомобілів і при необхідності їх можливо легко проглянути та використати для необхідних мір при розкритті злочинів чи ДТП.
Було створене головне поле, де графічно створені пункти вибору певного дійства яке вибрав користувач. Під слофом графіка тут розуміється псевдографіка яка доступна завдяки модулю CRT. Також в Водій використовуються процедури з модулю DOS. Була використані приємна кольорова гама, яка надає розслабленості користувачу, а також концентрує увагу на певних важливих елементах програми.
Список використаної літератури
1.Струков В.М. Основи алгоритмизации и програмирования. Часть 2. Учебное пособие. - Харьков: Изд. Нац. ун-та внутр. дел, 2003. - 188 с.
2.Сердюченко В.Я. Розробка алгоритмів та програмування на мові Turbo Pascal. - X., 1995.
3.Немнюгин С.А. Turbo Pascal. - СПб.: Питер, 2002. - 496 с.: ил.