O - структура для збереження інформації

· No - назва певної області

· U - вбивства

· Y - зґвалтування

· K - крадіжок

· S - зради відчизні

Lis - процедура яка вконує аналіз та виводить його на екран

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

strila - управління курсором для вибору пункту меню

tread - малює рамочку

vx - занесення до файлу відомостей які вніс користувач

st - для видалення файлу

2. Алгоритми

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

uses crt,dos;

type o=record

no:string[10];

u,y,k,s:integer;

end;

var st1,st2,st3,st4:string;

q,v:byte;

z:char;

f:file of o; pe:o;

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

procedure ramo4ka (x1,y1,x2,y2,a,b:byte);

var i:integer;

begin

textbackground(a);

textcolor(b);

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 po4atik(st1,st2,st3,st4:string);

begin

window(1,1,40,25);

textbackground(3);

clrscr;

window (2,10,39,14);

textbackground(4);

clrscr;

gotoxy(1,4);

write(st1,st2,st3,st4);

end;

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

procedure strila(x,y:byte);

begin

gotoxy(x,y);

textbackground(0);

textcolor(14);

write(' | ');

gotoxy(x,y+1);

write('\|/');

gotoxy(x,y+2);

write(' " ')

end;

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

procedure tread (var a:char;var b:byte);

begin

b:=0;

a:=readkey;

if a=#0 then

b:=ord(readkey);

end;

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

var i,c:integer;

begin

textcolor(1);

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 vx;

var i,n:integer;

begin

window(1,1,40,25);

pamka(1,1,39,25);

window(2,2,38,24);

textbackground(2);

clrscr;

textcolor(0);

write('vvedi kol-vo oblastey- ');readln(n);

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

rewrite(f);

for i:=1 to n do

begin

seek(f,filesize(f));

clrscr;

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

write('vvedi nasvanie obl.- '); readln(pe.no);

write('vvedi kol-vo ubiystv- '); readln(pe.u);

write('vvedi kol-vo iznas. - '); readln(pe.y);

write('vvedi kol-vo kraj- '); readln(pe.k);

write('vvedi kol-vo samoybiystv- '); readln(pe.s);

write(f,pe);

end;

close(f);

end;

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

procedure lis;

var s,k,k1,s1,s2,s3,s4,min,s5,max,j,l,i:integer;

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

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

reset(f);

s:=0; s1:=0;s2:=0;s3:=0;s4:=0; min:=9999;max:=-9999;j:=0;l:=0;

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.

Висновок