Автоматизований аналіз злочинності
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
for i:=0 to filesize(f)-1 do
begin
s5:=0;
seek(f,i);
read(f,pe);
s5:=pe.u+pe.y+pe.k+pe.s;
if 5<min then
begin
min:=s5;j:=i;
end;
if s5>max then
begin
max:=s5;l:=i;
end;
s:=s+pe.u+pe.y+pe.k+pe.s;
s1:=s1+pe.u;
s2:=s2+pe.y;
s3:=s3+pe.k;
s4:=s4+pe.s;
end;
seek(f,j);
read(f,pe);
writeln(oblast-,pe.no, imeet samiy nizkiy ur.prest);
seek(f,l);
read(f,pe);
writeln(oblast-,pe.no, imeet samiy visokiy ur.prest);
writeln(obsh. kol prest - ,s);
writeln(obsh.kol ubiystv- ,s1);
writeln(obsh.kol iznas.- ,s2);
writeln(obsh.kol kraj- ,s3);
writeln(obsh.kol samoub.- ,s4);
close(f);
end;
readln;
end;
{..................}
procedure st;
var v:char;h:byte;
begin
window(1,1,40,25);
pamka(1,1,39,25);
window(2,2,38,24);
textbackground(2);
clrscr;
textcolor(0);
if fsearch(ret,d:\)= then
begin
textcolor(4);
writeln(FAil ne naiden);
end
else
begin
tread(v,h);
if v=#13 then
begin
assign(f,d:\ret);
erase(f);
write(STERTO);
end;
end;
readln;
end;
{==================}
begin
st1:=Informaciya;
st2:= prosmotr;
st3:= udalenie;
st4:= Vihod;
po4atik(st1,st2,st3,st4);
strila(4,1);
q:=1;
repeat
newreadkey(z,v);
case v of
75:q:=q-1;
77:q:=q+1;
end;
case q of
0:q:=4;
5:q:=1;
end;
case q of
1: begin
if z=#13 then
vx;
po4atik(st1,st2,st3,st4);
strila(4,1);
end;
2: begin
if z=#13 then
lis;
po4atik(st1,st2,st3,st4);
strila(14,1);
end;
3: begin
if z=#13 then
st;
po4atik(st1,st2,st3,st4);
strila(24,1);
end;
4: begin
if z=#13 then
halt;
po4atik(st1,st2,st3,st4);
strila(32,1);
end;
end;
until z=#27;
readln;
end.
Висновок
В даній курсовій роботі була створена програма для аналізу злочинності в області. Даний продукт можливо застосовувати на практиці. Цією програмою я показав рівень своїх теоретичних та практичних знань.
Мовою програмування була обрана мова Turbo Pascal, для вдосконалення свої навичок програмування в цьому середовищі та швидкої і максимально ефективної розвязки даної задачі.
Були підключені такі модулі як CRT та DOS.
Список використаної літератури
1.Струков В.М. Основи алгоритмизации и програмирования. Часть 2. Учебное пособие. - Харьков: Изд. Нац. ун-та внутр.дел,2003. - 188 с.
2.Сердюченко В.Я. Розробка алгоритмів та програмування на мові Turbo Pascal. - X.,1995.
3.Немнюгин С.А. Turbo Pascal. - СПб.: Питер, 2002. - 496 с.: ил.