Картотека Интерпола

Этапы, методы, алгоритмы построения программы, которая должна создавать базу зарегистрированных преступников. Информация о преступнике вводится в диалоге по запросам программы. Можно вывести список клиентов Интерпола в отсортированном по алфавиту порядке.

Рубрика Программирование, компьютеры и кибернетика
Вид курсовая работа
Язык русский
Дата добавления 29.11.2009
Размер файла 29,8 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Волжский университет имени В.Н.Татищева

Кафедра “Информатика и системы управления”

КУРСОВАЯ РАБОТА

по дисциплине: “Алгоритмизация и языки программирования”

Тема: “ Картотека Интерпола”

Выполнил: студент гр. ИС-311

Михеев С.А.

Преподователь: Ахмедханлы Д.М.

Тольятти 2002-03

Содержание

1. Задание

2. Описание предметной области

3. Описание алгоритма задачи

Список используемой литературы

Приложения

1. Задание

ОПИСАНИЕ

Программа должна создавать базу по каждому зарегистрированному преступнику. Информация о каждом преступнике вводится в диалоге по запросам программы. Можно вывести список всех клиентов Интерпола в отсортированном по алфавиту порядке.

Информация о каждом преступнике состоит из следующих полей:

регистрационный номер ;

фамилия, имя, отчество;

кличка;

дата рождения;

место рождения;

рост;

цвет глаз;

цвет волос;

преступная профессия;

особые приметы;

место нахождения.

Сведения о преступниках сохраняются в файле с именем interpol.dat.

Программа содержит следующие процедуры и функции:

Зарегистрировать (регистрирует нового преступника);

Вывести (выводит в алфавитном порядке весь список преступников);

Подбор кандидатуры (по введенным признакам выводит список клиентов, подходящих под указанные признаки);

Удалить (только после смерти удаляет информацию о преступнике из базы Интерпола или переносит сведения о «завязавших» в архив interpol_arhif.dat);

Анализ(выдает список «завязавших» клиентов Интерпола);

Конец (завершает программу).

Указанные функции и процедуры выбираются из меню.

Ввод данных по каждому новому клиенту выполняется отдельно в диалоге, инициатором которого является программа.

При выводе списка клиентов в каждой строке выводятся Ф.И.О. и возраст клиента. Список отсортирован по алфавиту.

Ввод неверной команды из меню вызывает вывод сообщения НЕВЕРНАЯ КОМАНДА.

2. Описание предметной области

Данная программа `Картотека Интерпола' представляет собой DOS-сеанс и графическое меню программы, где выполняются все процедуры. Выборка того или иного раздела осуществляется с помощью курсора клавиш и клавиши ввода. Программа запрашивает данные, которые необходимо ввести, а далее сам пользователь манипулирует ими. Программа также контролирует пользователя о его действиях, индицируя и сигнализируя те или иные ошибки.

Программа используется в специальных службах и предназначена для автоматизации учета и хранения данных в ЭВМ о преступниках.

Программа также предусмотрена возможность выборочного поиска преступников, по всем основным характеристикам. Также программа отображает на экране всю интересующую информацию о преступнике, и позволяет определить занимается ли преступник на данный момент криминальной деятельностью.

3. Описание алгоритма задачи

При загрузке программы она загружает в память компьютера три файла, содержащих базы данных со сведениями преступниках. Эти файлы должны находится в одной директории с программой. Если это первый запуск программы или данные файлы, по какой либо причине отсутствуют, то программа их создает заново.

Сохранение данных в файл производится во время выхода из программы.

Для начала работы с программой необходимо запустить файл bank.exe. После чего загрузится основное окно программы. Скорость загрузки программы зависит от быстродействия компьютера и объема базы данных. Верхнюю часть экрана занимает меню. Навигация по которому, происходит при помощи следующих клавиш:

Стрелка влево - перемещение по меню в лево.

Стрелка вправо - перемещение по меню вправо.

Enter - выбор подменю.

стрелка вверх - перемещение по подменю вверх.

стрелка вниз - перемещение по подменю вниз.

Escape - выход из подменю.

Далее описаны действия, которые выполняет каждый пункт меню.

Зарегистрировать (регистрирует нового преступника);

Вывести (выводит в алфавитном порядке весь список преступников);

Подбор кандидатуры (по введенным признакам выводит список клиентов, подходящих под указанные признаки);

Удалить (только после смерти удаляет информацию о преступнике из базы Интерпола или переносит сведения о «завязавших» в архив interpol_arhif.dat);

Анализ (выдает список «завязавших» клиентов Интерпола);

Конец (завершает программу).

Указанные функции и процедуры выбираются из меню.

Дополнение Ввод данных по каждому новому клиенту выполняется отдельно в диалоге, инициатором которого является программа.

При выводе списка клиентов в каждой строке выводятся Ф.И.О. и возраст клиента. Список отсортирован по алфавиту.

Ввод неверной команды из меню вызывает вывод сообщения НЕВЕРНАЯ КОМАНДА.

Программа содержит следующие процедуры :

Procedure Ramka ;
Процедура рисует графическую, так называемую универсальную оболочку, которую можно изменять соответствующим образом.
Данная процедура хороша тем, что её стиль, цвет, название оболочки устанавливается в скобках названия процедуры.
Procedure Registration;
Процедура регистрирует преступника, занося его в базу Interpol.dat. Если при вводе преступника данные повторяются, процедура выдаёт ошибку.
Procedure arxiv;
Производит чтение данных из файла Interpol.dat, где хранится информация о преступниках и по введённым данным переносит его в базу данных Arxiv_in, удаляя при этом данные из базы Interpol.dat. При вводе несуществующего преступника процедура выдаёт ошибку. При правильном вводе данных процедура оповещает о завершении операции.
Procedure Delete;
Процедура удаляет данные, находящиеся в базе Interpol.dat. Причём сначало выдаётся сообщение, какую выполнить операцию: удаление или перенос в архив.
Procedure main;
Рисует кнопку. Задаются верхние левые координаты кнопки и надпись.
Procedure Podbor_Kandidaturi;
Процедура просматривает свою базу данных с введённым значением, которые предлагаются в программе и затем выводит список, где встретились одинаковые поля.
Spisok_Zav;
Программа записывает данные из базы в созданный (временной) список и выдаёт данные в отсортированном порядке.
Список используемой литературы
1. П. И. Рудаков, М. А. Федотов. “ Основы языка Pascal “ . Учебный курс. Москва “ Радио и связь “ “ Горячая линия - телеком “. 2000 г.
2. Е. А. Зуев “ Turbo Pascal “ Практическое руководство. Москва - “ СТРИКС “ . 1997 г.
3. В. В. Фаронов. Программирование в среде Turbo Pascal. М.: МГТУ, 1990.
4. Д. Прайс. Программирование на языке Паскаль: Практическое руководство. Пер с англ. - М., Мир, 1987 г.
5. П. Грогоно. Программирование на языке Паскаль: Пер. с англ. - М.: Мир, 1982 г.
6. К. Боон. ПАСКАЛЬ для всех: Пер. с гол. - М.: Энергоиздат,1988 г.
Приложения
Приложение 1. Листинг программы.

uses crt;

type

ps=^info;

info=record

rn:word;

FIO:string;

KL:string[20];

DR:string[10];

MR:string[20];

rost:byte;

CG:string[10];

CV:string[10];

PP:string[20];

OP:string[50];

MN:String[30];

l,r:ps;

end;

var

F,f1,fa:file of info;

Buf,b2:info;

t,top,s,n,k,pa,p:ps;

gmenu,vmenu,i,zz,

q,j,m,flag,nrn,nom,sch:integer;

key,h,v:char;

menu:array[0..16] of string;

procedure ramka (xx,yy,g,w,c,cs,d,p:integer; cv,pr:string);

var a,j,x,y:integer;

Begin

x:=xx+2; y:=yy+2;

gotoxy(x,y); textcolor(15); write(PR);

a:=length(cv);

if cv='' then a:=0;

textcolor(c);

gotoxy(xx,yy);

if d=1 then

write('+') else write('+');

for j:=1 to trunc((g/2)-(a/2)) do if d=1 then

write('-') else write('-');

textcolor(cs); write(cv);

textcolor(c);

for i:=1 to trunc((g/2)-(a/2)) do if d=1 then

write('-') else write('-');

if d=1 then

write('+') else write('+');

for i:=1 to w do begin

gotoxy(xx,yy+i);

textcolor(c);

if d=1 then

write('¦') else write('¦');

gotoxy((g+xx+1),yy+i);

if d=1 then

write('¦') else write('¦');

end;

gotoxy(xx,w+yy);

if d=1 then

write('+') else write('+');

for j:=1 to (trunc((g/2)-(a/2))*2+a) do if d=1 then

write('-') else write('-');

if d=1 then

write('+') else write('+'); gotoxy(80,1);

if p=1 then readln;

end;

procedure arxiv;

begin

clrscr;

{rewrite(fa);}

ramka(3,1,73,14,12,14,1,0,' АРХИВ ','');

gotoxy(10,3);textcolor(11);

write('Введите регитсрационный номер "завязавшего" №= ');

readln(nom);

rewrite(f1); reset(fa); reset(f); flag:=0;

if filesize(fa)<>0 then seek(fa,filesize(fa));

repeat

read(f,b2);

if (b2.rn<>nom) then write(f1,b2)

else begin

write(fa,b2);

Flag:=1;

end;

until eof(f);

if flag=0 then

begin

sound (600);

delay (2222);

nosound;

textbackground(4);

ramka (26,7,32,4,14,9,1,1,' ОШИБКА', 'НЕВОЗМОЖНО ВЫПОЛНИТЬ ОПЕРАЦИЮ');

textbackground(0);

end

else

begin

sound (3100);

delay (2222);

nosound;

textbackground(1);

ramka(28,8,32,4,14,9,1,1,' DELETE' , 'ПРЕСТУПНИК ПЕРЕМЕЩЁН В АРХИВ');

textbackground(0);

end;

CLRSCR;

close(f); close(f1); close(fa);

if flag=1 then

begin

erase(f);

assign(f,'interp1.dat');

rename(f,'interp.dat');

end;

clrscr;

end;

procedure main (x,y:integer; s:string; select:integer);

var

colorbg:integer;

begin

gotoxy (x,y);

if select=1 then colorbg:=7

else colorbg:=15;

if select=2 then colorbg:=11;

if select=3 then colorbg:=7;

if select=4 then colorbg:=1;

textcolor (colorbg);

textbackground (0);

writeln (s);

end;

procedure podbor_kandidaturi(wer:integer);

begin

ramka(3,1,74,16,11,15,1,0,' ПОДБОР КАНДИДАТУРЫ ','');

reset(f);

if wer=1 then begin gotoxy(7,2); write('Введите ФИО - '); readln(b2.FIO); end;

if wer=2 then begin gotoxy(7,2); write('Введите кличку - '); readln(b2.KL); end;

if wer=3 then begin gotoxy(7,2); write('Введите дату рождения - '); readln(b2.DR); end;

if wer=4 then begin gotoxy(7,2); write('Введите рост - '); readln(b2.rost); end;

if wer=5 then begin gotoxy(7,2); write('Введите цвет волос - '); readln(b2.CV); end;

textcolor(14);

repeat

read(f,buf);

if ((b2.FIO=buf.FIO) or (b2.KL=buf.KL) or

(b2.DR=buf.DR) or (b2.rost=buf.rost) or (b2.CV=buf.CV)) then

begin

gotoxy(7,3);

writeln('Подходящая кандидатура'); gotoxy(5,5);

write('Регистрационный номер - ',buf.rn); gotoxy(5,6);

write('ФИО - ',buf.FIO); gotoxy(5,7);

write('Кличка - ',buf.KL); gotoxy(5,8);

write('Дата рождения - ',buf.DR); gotoxy(5,9);

write('Место рождения - ',buf.MR); gotoxy(5,10);

write('Рост - ',buf.rost); gotoxy(5,11);

write('Цвет глаз - ',buf.CG); gotoxy(5,12);

write('Цвет волос - ',buf.CV); gotoxy(5,13);

write('Преступная профессия - ',buf.PP); gotoxy(5,14);

write('Особые приметы - ',buf.OP); gotoxy(5,15);

write('Место нахождение - ',buf.MN);

end;

until eof(f);

readln;

close(f);

clrscr;

END;

procedure Spisok_Zav;

begin

reset(fa);

ramka(3,1,73,16,9,15,1,0,' СПИСОК ЗАВЯЗАВШИХ ','');

textcolor(14);

repeat

read(fa,buf);

gotoxy(5,4);

write('Регистрационный номер - ',buf.rn); gotoxy(5,5);

write('ФИО - ',buf.FIO); gotoxy(5,6);

write('Кличка - ',buf.KL); gotoxy(5,7);

write('Дата рождения - ',buf.DR); gotoxy(5,8);

write('Место рождения - ',buf.MR); gotoxy(5,9);

write('Рост - ',buf.rost); gotoxy(5,10);

write('Цвет глаз - ',buf.CG); gotoxy(5,11);

write('Цвет волос - ',buf.CV); gotoxy(5,12);

write('Преступная профессия - ',buf.PP); gotoxy(5,13);

write('Особые приметы - ',buf.OP); gotoxy(5,14);

write('Место нахождение - ',buf.MN);

gotoxy(80,1);

readln;

until eof(fa);

close(fa);

clrscr;

end;

procedure REGISTRATION;

begin

{ rewrite(f); }

reset(f);

repeat

ramka(3,1,73,19,9,14,1,0,' РЕГИСТРАЦИЯ ','');

textcolor(7);

gotoxy(5,2);

write(' Зарегистрировать нового преступника, Да-d; Нет-n / ');

readln (h);

textcolor(12);

if filesize(f)<>0 then seek(f,filesize(f));

if (h='d') or (h='D') then begin

gotoxy(5,4);

write('Введите регистрационный номер - '); readln(buf.rn); gotoxy(5,5);

write('Введите ФИО - '); readln(buf.FIO); gotoxy(5,6);

write('Введите кличку - '); readln(buf.KL); gotoxy(5,7);

write('Введите дату рождения - '); readln(buf.DR); gotoxy(5,8);

write('Введите место рождения - '); readln(buf.MR); gotoxy(5,9);

write('Введите рост - '); readln(buf.rost); gotoxy(5,10);

write('Введите цвет глаз - '); readln(buf.CG); gotoxy(5,11);

write('Введите цвет волос - '); readln(buf.CV); gotoxy(5,12);

write('Введите преступную профессию - '); readln(buf.PP); gotoxy(5,13);

write('Введите особые приметы - '); readln(buf.OP); gotoxy(5,14);

write('Введите место нахождения - '); readln(buf.MN);

end;

zz:=0;

if (filesize(f)<>0) and ((h='d') or (h='D')) then

begin

reset(f);

repeat

read(f,b2);

if (b2.rn=buf.rn) and (b2.FIO=buf.FIO) then zz:=1;

until eof(f);

if zz=1 then

begin

sound (600);

delay (2222);

nosound;

textbackground(4);

ramka (41,7,28,4,15,14,2,1, 'ОШИБКА', 'ПРЕСТУПНИК УЖЕ СУЩЕСТВУЕТ');

textbackground(0);

end else write(f,buf);

end;

until (h<>'d') or (h<>'D');

clrscr;

close(F);

end;

procedure PROSMOTR;

begin

ramka(3,1,74,16,11,15,1,0,' ПРОСМОТР ','');

reset(f);

top:=nil;

while not eof(f) do

begin

new(n);

read(f,buf);

n^.l:=nil;

n^.r:=top;

if t<>nil then t^.l:=n;

n^.rn:=buf.rn; n^.FIO:=buf.FIO; n^.KL:=buf.KL;

n^.DR:=buf.DR; n^.MR:=buf.MR; n^.rost:=buf.rost;

n^.CG:=buf.CG; n^.CV:=buf.CV; n^.PP:=buf.PP;

n^.OP:=buf.OP; n^.MN:=buf.MN;

t:=top;

top:=n;

end;

t:=top;

p:=nil;

while t<>nil do

begin

if p<>nil then

begin

if p^.rn>t^.rn then

begin

p^.r:=t^.r;

pa:=t^.r;

pa^.l:=p;

t^.r:=top;

t^.l:=nil;

top^.l:=t;

top:=t;

end;

end;

p:=t;

t:=t^.r;

end;

t:=top; flag:=0; sch:=6;

while t<>nil do

begin

textcolor(14);

if flag=0 then begin

gotoxy(5,4);

writeln(' Ф И О ',' Дата рождения ');

writeln(' |---------------------------------|');

end;

gotoxy(10,sch);

write(t^.FIO,' ',t^.DR); {gotoxy(5,6); }

t:=t^.r; sch:=sch+1; flag:=1;

end;

readln;

clrscr;

END;

procedure DELETE;

begin

clrscr;

ramka(13,10,52,4,12,13,1,0,' Выбирите ','');

gotoxy(15,11); textcolor(11);

writeln('Если преступник "Завязал" нажмите клавишу:пробел ');

gotoxy(15,12); textcolor(11);

writeln('Если преступник "откинул капыта" нажмите :ENTER ');

gotoxy(15,13); write('|=');

readln(v);

if ord(v)=32 then arxiv else

begin

clrscr;

ramka(3,1,73,19,9,14,1,0,' УДАЛЕНИЕ ','');

gotoxy(20,3); textcolor(12);

write('Введите регистрационный номер преступника:'); {gotoxy(15,2); }

readln(nrn);

reset(f); rewrite(f1);flag:=0;

repeat

read(f,b2);

if (b2.rn<>nrn) then write(f1,b2)

else flag:=1;

until eof(f);

if flag=0 then

begin

sound (600);

delay (2222);

nosound;

textbackground(4);

ramka(28,7,24,4,15,14,1,1, 'ОШИБКА', 'ПРЕСТУПНИК ОТСУТСТВУЕТ');

textbackground(0);

end

else

begin

sound (3100);

delay (2222);

nosound;

textbackground(1);

ramka(28,8,20,4,15,14,1,1, 'DELETE' , 'ПРЕСТУПНИК УДАЛЁН');

textbackground(0);

end;

CLRSCR;

close(f);

erase(f);

close(f1);

assign(f,'interp1.dat');

rename(f,'interp.dat');

end;

clrscr;

end;

procedure screen (c:integer);

begin

textbackground (c);

clrscr;

end;

begin

assign (f,'interp.dat');

assign (f1,'interp1.dat');

assign(fa,'arxiv_interpol.dat');

screen (0);

menu[0]:=' ';

menu[1]:=' ПРЕСТУПНИКИ ';

menu[2]:=' ПОИСК ';

menu[3]:=' ПОДБОР КАНДИДАТУРЫ ';

menu[4]:=' Регистрация ';

menu[5]:=' Удалить ';

menu[6]:=' Выход ';

menu[7]:=' Вывод всей базы ';

menu[8]:=' Архив ';

menu[9]:= ' По ФИО ';

menu[10]:=' По кличке ';

menu[11]:=' По росту ';

menu[12]:=' По дате рождения ';

menu[13]:=' По цвету волос ';

menu[14]:=' ';

menu[15]:=' ';

gmenu:=1;

repeat

gotoxy(1,1);

textcolor(0);

textbackground(0); {textattr:=79;}

ramka(3,1,74,1,9,14,1,0,' КАРТОТЕКА ИНТЕРПОЛА ','');

repeat

if gmenu=1 then begin

main (7,2,menu[1],0);

main (35,2,menu[2],1);

main (54,2,menu[3],1);

gotoxy(80,2);

end;

if gmenu=2 then begin

main (7,2,menu[1],1);

main (35,2,menu[2],0);

main (54,2,menu[3],1);

Gotoxy(80,2);

end;

if gmenu=3 then begin

main (7,2,menu[1],1);

main (35,2,menu[2],1);

main (54,2,menu[3],0); gotoxy(80,2);

end;

key:=Readkey;

case key of

#77: begin

gmenu:=gmenu+1;

if gmenu>3 then gmenu:=1;

end;

#75: begin

gmenu:=gmenu-1;

if gmenu<1 then gmenu:=3;

end;

end;

until key=#13;

case gmenu of

1 : begin

vmenu:=1;

repeat

if vmenu=1 then

begin

main (8,3,menu[0],4);

main (8,4,menu[4],2);

main (8,5,menu[5],3);

main (8,6,menu[6],3);

main (8,7,menu[0],4);

ramka (7,3,14,4,12,14,2,0,'','');

gotoxy(80,2);

end;

if vmenu=2 then

begin

main (8,4,menu[4],3);

main (8,5,menu[5],2);

main (8,6,menu[6],3); gotoxy(80,2);

end;

if vmenu=3 then

begin

main (8,4,menu[4],3);

main (8,5,menu[5],3);

main (8,6,menu[6],2); gotoxy(80,2);

end;

key:=Readkey;

case key of

#80 :begin vmenu:=vmenu+1;

if vmenu>3 then vmenu:=1;

end;

#72 :begin vmenu:=vmenu-1;

if vmenu<1 then vmenu:=3;

end;

#27:begin screen(0);vmenu:=-1;

end;

#13:begin screen(0);

end;

end;

until (key=#13) or (key=#27);

end;

2: begin

vmenu:=1;

repeat

if vmenu=1 then begin

main (35,3,menu[14],4);

main (35,4,menu[7],2);

main (35,5,menu[8],3);

main (35,6,menu[14],4);

ramka (34,3,22,3,12,14,2,0,'','');

gotoxy(80,2);

end;

if vmenu=2 then

begin

main (35,4,menu[7],3);

main (35,5,menu[8],2); gotoxy(80,2);

end;

key:=Readkey;

case key of

#80 :begin vmenu:=vmenu+1;

if vmenu>2 then vmenu:=1;

end;

#72 :begin vmenu:=vmenu-1;

if vmenu<1 then vmenu:=2;

end;

#27 :begin screen(0); vmenu:=-1;

end;

#13:begin screen(0);

end;

end;

until (key=#13) or (key=#27);

end;

3: begin

vmenu:=1;

repeat

if vmenu=1 then begin

main (55,3,menu[15],4);

main (55,4,menu[9],2);

main (55,5,menu[10],3);

main (55,6,menu[11],3);

main (55,7,menu[12],3);

main (55,8,menu[13],3);

main (55,9,menu[15],4);

ramka (54,3,20,6,12,14,2,0,'','');

gotoxy(80,2);

end;

if vmenu=2 then begin

main (55,4,menu[9],3);

main (55,5,menu[10],2);

main (55,6,menu[11],3);

main (55,7,menu[12],3);

main (55,8,menu[13],3); gotoxy(80,2);

end;

if vmenu=3 then begin

main (55,4,menu[9],3);

main (55,5,menu[10],3);

main (55,6,menu[11],2);

main (55,7,menu[12],3);

main (55,8,menu[13],3); gotoxy(80,2);

end;

if vmenu=4 then begin

main (55,4,menu[9],3);

main (55,5,menu[10],3);

main (55,6,menu[11],3);

main (55,7,menu[12],2);

main (55,8,menu[13],3); gotoxy(80,2);

end;

if vmenu=5 then begin

main (55,4,menu[9], 3);

main (55,5,menu[10],3);

main (55,6,menu[11],3);

main (55,7,menu[12],3);

main (55,8,menu[13],2); gotoxy(80,2);

end;

key:=Readkey;

case key of

#80 :begin vmenu:=vmenu+1;

if vmenu>5 then vmenu:=1;

end;

#72 :begin vmenu:=vmenu-1;

if vmenu<1 then vmenu:=5;

end;

#27 :begin screen(0); vmenu:=-1;

end;

#13:begin screen(0);

end; end;

until (key=#13) or (key=#27);

end; end;

case gmenu of

1: case vmenu of

1: begin REGISTRATION; vmenu:=-1;

end;

2: begin DELETE; vmenu:=-1;

end;

3:vmenu:=1;

end;

2: case vmenu of

1: begin PROSMOTR; vmenu:=-1;

end;

2: begin Spisok_Zav; vmenu:=-1;

end;

end;

3: case vmenu of

1:begin podbor_kandidaturi(1);

vmenu:=-1;

end;

2:begin podbor_kandidaturi(2);

vmenu:=-1;

end;

3:begin podbor_kandidaturi(3);

vmenu:=-1;

end;

4:begin podbor_kandidaturi(4);

vmenu:=-1;

end;

5:begin podbor_kandidaturi(5);

vmenu:=-1;

end;

end;

end;

until vmenu>-1;

end.

Приложение 2. Структура баз данных

База данных:

Регистрац. Номер

Преступника

1

2

3

4

Фамилия Имя Отчество

Иванов Иван Иванович

Петров Пётр Петрович

Дмитриев Дмитрий Дмитриевич

Андреев Андрей Андреевич

Кличка

Ушастый

Рыжий

Горластый

Глазастый

Дата рождения

22.09.80

11.08.77

11.09.78

12.11.66

Место рождения

Н. Новгород

Волгоград

Тольятти

Ростов

Рост

133

166

177

188

Цвет глаз

Синий

Красный

Зеленый

Чёрный

Цвет волос

Чёрный

Белый

Синий

Красный

Преступная профессия

Нарко-барон

Киллер

Вор

Мошенник

Особые приметы

Нет глаза

Нет руки

Нет ноги

Нет глаза

Место нахождение

Неустановл.

Установлен.

Неустановл.

Установл.

Приложение 3. Распечатка решения задачи по данным контрольного примера

Вывод - Полного списка:

Регистрационный номер - 1

Фамилия имя отчество - Иванов Иван Иванов

Кличка - Ушастый

Дата рождения - 22.09.80

Место рождения - Н. Новгород

Рост - 133

Цвет глаз - синий

Цвет волос - чёрный

Особые приметы - Нет глаза

Преступная профессия - Нарко-барон

Место нахождение - Неустановл.

Регистрационный номер - 2

Фамилия имя отчество - Петров Петр Петрович

Кличка - Рыжий

Дата рождения - 11.08.77

Место рождения - Волгоград

Рост - 166

Цвет глаз - Красный

Цвет волос - Белый

Особые приметы - Нет руки

Преступная профессия - Киллер

Место нахождение - Установл.

Регистрационный номер - 3

Фамилия имя отчество - Дмитриев Дмитрий Дмитриевич

Кличка - Горластый

Дата рождения - 11.09.78

Место рождения - Тольятти

Рост - 177

Цвет глаз - Зеленый

Цвет волос - синий

Особые приметы - Нет ноги

Преступная профессия - Вор

Место нахождение - Неустановл.

Регистрационный номер - 4

Фамилия имя отчество - Андреев Андрей Андреевич

Кличка - Глазастый

Дата рождения - 12.11.66

Место рождения - Ростов

Рост - 188

Цвет глаз - чёрный

Цвет волос - Красный

Особые приметы - Нет Глаза

Преступная профессия - Мошенник

Место нахождение - Установл.

Вывод-Удаление

Введите регистрационный номер: -1

Преступник удален.

Вывод-Перемещение в архив

Введите регистрационный номер: -3

Преступник перемещён.

Вывод-Архив

Введите регистрационный номер: -3

Регистрационный номер - 3

Фамилия имя отчество - Дмитриев Дмитрий Дмитриевич

Кличка - Горластый

Дата рождения - 11.09.78

Место рождения - Тольятти

Рост - 177

Цвет глаз - Зеленый

Цвет волос - синий

Особые приметы - Нет ноги

Преступная профессия - Вор

Место нахождение - Неустановл.

Вывод-Подбор Кандидатуры

По кличке

Введите кличку: - глазастый

Регистрационный номер - 4

Фамилия имя отчество - Андреев Андрей Андреевич

Кличка - Глазастый

Дата рождения - 12.11.66

Место рождения - Ростов

Рост - 188

Цвет глаз - чёрный

Цвет волос - Красный

Особые приметы - Нет Глаза

Преступная профессия - Мошенник

Место нахождение - Установл.

Вывод-Подбор Кандидатуры

По рег. Номеру

Введите регистрационный номер: -2

Регистрационный номер - 2

Фамилия имя отчество - Петров Петр Петрович

Кличка - Рыжий

Дата рождения - 11.08.77

Место рождения - Волгоград

Рост - 166

Цвет глаз - Красный

Цвет волос - Белый

Особые приметы - Нет руки

Преступная профессия - Киллер

Место нахождение - Установл.

Изменённые базы данных:

Полный список преступников

Регистрац. Номер Преступника

2

4

Фамилия Имя Отчество

Петров Пётр Петрович

Андреев Андрей Андреевич

Кличка

Рыжий

Глазастый

Дата рождения

11.08.77

12.11.66

Место рождения

Волгоград

Ростов

Рост

166

188

Цвет глаз

Красный

Чёрный

Цвет волос

Белый

Красный

Преступная профессия

Киллер

Мошенник

Особые приметы

Нет руки

Нет глаза

Место нахождение

Установлен.

Установл.

Список Архива

Регистрац. Номер Преступника

3

Фамилия Имя Отчество

Дмитриев Дмитрий Дмитриевич

Кличка

Горластый

Дата рождения

11.09.78

Место рождения

Тольятти

Рост

177

Цвет глаз

Зеленый

Цвет волос

Синий

Преступная профессия

Вор

Особые приметы

Нет ноги

Место нахождение

Неустановл.

Удаление

Регистрац. Номер Преступника

2

3

4

Фамилия Имя Отчество

Петров Пётр Петрович

Дмитриев Дмитрий Дмитриевич

Андреев Андрей Андреевич

Кличка

Рыжий

Горластый

Глазастый

Дата рождения

11.08.77

11.09.78

12.11.66

Место рождения

Волгоград

Тольятти

Ростов

Рост

166

177

188

Цвет глаз

Красный

Зеленый

Чёрный

Цвет волос

Белый

Синий

Красный

Преступная профессия

Киллер

Вор

Мошенник

Особые приметы

Нет руки

Нет ноги

Нет глаза

Место нахождение

Установлен.

Неустановл.

Установл.


Подобные документы

  • Интерпол - международный центр регистрации преступников. Структура, функции и организация деятельности организации. Основные этапы проектирования базы данных с применением запросов для овладения навыками создания электронно-информационных ресурсов.

    дипломная работа [2,6 M], добавлен 19.06.2015

  • Структура, функции и организация деятельности Интерпола. Основные этапы проектирования базы данных картотеки. Назначение и виды запросов. Структура базы данных Интерпола по дисциплине "Основы алгоритмизации и программирования". Главная кнопочная форма.

    дипломная работа [2,6 M], добавлен 10.07.2015

  • Общая характеристика организации Муниципального автономного учреждение "Хоккейная команда Кузбасс". Разработка программы регистрации в системе программирования Delphi. Тестирование разработанной программы. Руководства пользователю и администратору.

    дипломная работа [1,3 M], добавлен 07.06.2012

  • Особенности работы и создания компьютерного вируса - вредоносной программы, которая самостоятельно может создавать свои копии и внедрять их в программы, файлы, документы, загрузочные сектора носителей данных. Признаки заражения ПК вирусом, способы защиты.

    реферат [24,9 K], добавлен 26.03.2010

  • Совместимость и преобразование типов данных. Создание информационно-поисковой системы на языке программирования Паскаль. Описание интерфейса, каждого блока программы "Картотека больных". Рассмотрение результатов работы программы, сортирования данных.

    курсовая работа [368,9 K], добавлен 18.05.2015

  • Современные алгоритмы машинной графики. Алгоритмы построения изображения. Глобальная модель освещения Уиттеда. Выбор и обоснование языка и среды программирования. Вспомогательные классы свойств трехмерных объектов. Условия применения программы.

    курсовая работа [785,7 K], добавлен 24.06.2009

  • Разработка программы, которая создает в отдельном потоке случайный массив целых чисел в заданном диапазоне и выводит на экран эти числа. Описание общего алгоритма, интерфейс программы. Методы решения и алгоритмы задач, реализуемых каждым потоком.

    курсовая работа [372,6 K], добавлен 17.04.2014

  • Разработка программы обработки числовых последовательностей с кодом на языке Pascal, которая должна выполнять функции ввода количества чисел с клавиатуры, перебора всех возможных сочетаний элементов, определения их сумм и вывода информации на экран.

    практическая работа [432,0 K], добавлен 09.04.2010

  • Разработка алгоритма и программы, которая позволяет создавать программное обеспечение для языка программирования Паскаль. Функциональная спецификация программы. Выбор и обоснование комплекса технических средств. Пользовательское меню и интерфейс.

    курсовая работа [1,3 M], добавлен 02.02.2014

  • Выбор алгоритма решения задачи. Разработка программы, обеспечивающую эффективную обработку и хранение информации с использованием линейных списков. Написание программы на псевдокоде и на языке программирования высокого уровня. Результаты работы программы.

    курсовая работа [2,1 M], добавлен 21.04.2012

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.