Главная Коллекция "Otherreferats" Программирование, компьютеры и кибернетика Разработка программы по учету уголовных дел и правонарушений

Разработка программы по учету уголовных дел и правонарушений

Обзор элементов языка программирования. Система программирования Turbo Pascal. Разработка информационно-поисковой системы "Справочник следователя" для хранения информации о преступниках. Описание программы и инструкция пользователю по работе с ней.

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

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

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

Страница:

Vivvod('Base_Ybistv.klm');

end;

3: begin

Vivvod('Base_Razboev.klm');

end;

4: begin

Vivvod('Base_Moshenichestv.klm');

end;

5: begin

Vivvod('Base_Drugoe.klm');

end;

end;

end;

Procedure Vibor_Categorii_Izmenenia;

Var

I,N:integer;

A:ARRAY[1..10] of string;

key:Char;

label start;

Begin

key:=#0;

n:=1;

A[1]:='КРАЖА';

A[2]:='УБИЙСТВО';

A[3]:='РАЗБОЙ';

A[4]:='МОШЕННИЧЕСТВО';

A[5]:='ДРУГОЕ';

A[6]:='ОТМЕНА';

while key<>#13 do begin

textcolor(white);

clrscr;

gotoxy(2,wherey);

writeln('ВЫБЕРИТЕ КАТЕГОРИЮ:');

For i:=1 to 6 do begin

Gotoxy(10,wherey);

if i=n then begin

Writeln('',a[i]);

end else begin

Writeln(' ',a[i]);

end;

end;

GotoXY(11,n+1);

Key:=Readkey;

if key=#72 then begin

if n>1 then begin

n:=n-1;

end;

end;

if key=#80 then begin

if n<6 then begin

n:=n+1;

end;

end;

end;

case n of

1: begin

Okno(10,7,70,20,'*ИЗМЕНЕНИЕ ИНФОРМАЦИИ О ПРЕСТУПЛЕНИИ*');

Izmenit('Base_Krazh.klm');

end;

2: begin

Okno(10,7,70,20,'*ИЗМЕНЕНИЕ ИНФОРМАЦИИ О ПРЕСТУПЛЕНИИ*');

Izmenit('Base_Ybistv.klm');

end;

3: begin

Okno(10,7,70,20,'*ИЗМЕНЕНИЕ ИНФОРМАЦИИ О ПРЕСТУПЛЕНИИ*');

Izmenit('Base_Razboev.klm');

end;

4: begin

Okno(10,7,70,20,'*ИЗМЕНЕНИЕ ИНФОРМАЦИИ О ПРЕСТУПЛЕНИИ*');

Izmenit('Base_Moshenichestv.klm');

end;

5: begin

Okno(10,7,70,20,'*ИЗМЕНЕНИЕ ИНФОРМАЦИИ О ПРЕСТУПЛЕНИИ*');

Izmenit('Base_Drugoe.klm');

end;

end;

end;

Procedure Vibor_Categorii_Ydalenia;

Var

I,N:integer;

A:ARRAY[1..10] of string;

key:Char;

label start;

Begin

key:=#0;

n:=1;

A[1]:='КРАЖА';

A[2]:='УБИЙСТВО';

A[3]:='РАЗБОЙ';

A[4]:='МОШЕННИЧЕСТВО';

A[5]:='ДРУГОЕ';

A[6]:='ОТМЕНА';

while key<>#13 do begin

textcolor(white);

clrscr;

gotoxy(2,wherey);

writeln('ВЫБЕРИТЕ КАТЕГОРИЮ:');

For i:=1 to 6 do begin

Gotoxy(10,wherey);

if i=n then begin

Writeln('',a[i]);

end else begin

Writeln(' ',a[i]);

end;

end;

GotoXY(11,n+1);

Key:=Readkey;

if key=#72 then begin

if n>1 then begin

n:=n-1;

end;

end;

if key=#80 then begin

if n<6 then begin

n:=n+1;

end;

end;

end;

case n of

1: begin

Ydalit('Base_Krazh.klm');

end;

2: begin

Ydalit('Base_Ybistv.klm');

end;

3: begin

Ydalit('Base_Razboev.klm');

end;

4: begin

Ydalit('Base_Moshenichestv.klm');

end;

5: begin

Ydalit('Base_Drugoe.klm');

end;

end;

end;

Procedure EriseAllDB;

Var

I,N:integer;

A:ARRAY[1..10] of string;

key:Char;

label start;

Begin

key:=#0;

n:=1;

A[1]:='КРАЖА';

A[2]:='УБИЙСТВО';

A[3]:='РАЗБОЙ';

A[4]:='МОШЕННИЧЕСТВО';

A[5]:='ДРУГОЕ';

A[6]:='ОТМЕНА';

while key<>#13 do begin

textcolor(white);

clrscr;

gotoxy(2,wherey);

writeln('ВЫБЕРИТЕ КАТЕГОРИЮ:');

For i:=1 to 6 do begin

Gotoxy(10,wherey);

if i=n then begin

Writeln('',a[i]);

end else begin

Writeln(' ',a[i]);

end;

end;

GotoXY(11,n+1);

Key:=Readkey;

if key=#72 then begin

if n>1 then begin

n:=n-1;

end;

end;

if key=#80 then begin

if n<6 then begin

n:=n+1;

end;

end;

end;

if n<>6 then begin

ClrScr;

Write('Для удаления базы данных нажмите Enter, для отмены Esc');

Key:=ReadKey;

if Key=#27 then begin

exit;

end;end;

case n of

1: begin

ASSIGN(BASE,'Base_Krazh.klm');

Rewrite(BASE);

Close(BASE);

end;

2: begin

ASSIGN(BASE,'Base_Ubistv.klm');

Rewrite(BASE);

Close(BASE);

end;

3: begin

ASSIGN(BASE,'Base_Razboev.klm');

Rewrite(BASE);

Close(BASE);

end;

4: begin

ASSIGN(BASE,'Base_Moshenichestv.klm');

Rewrite(BASE);

Close(BASE);

end;

5: begin

ASSIGN(BASE,'Base_Drugoe.klm');

Rewrite(BASE);

Close(BASE);

end;

end;

if n<>6 then begin

ClrScr;

Write('База данных успешно удалена');

ReadKey;

end;

end;

Procedure menu;

Var

zagolovok:string;

Key:Char;

A:ARRAY[1..10]of string;

i:integer;

Begin

while 1=1 do begin

key:=#0;

a[1]:='ДОБАВЛЕНИЕ ЗАПИСИ';

a[2]:='ПРОСМОТР ЗАПИСЕЙ';

a[3]:='ИЗМЕНЕНИЕ ЗАПИСИ';

a[4]:='ПОИСК ЗАПИСИ';

a[5]:='УДАЛЕНИЕ ЗАПИСИ';

a[6]:='СТЕРЕТЬ БАЗУ ДАННЫХ';

a[7]:='О ПРОГРАММЕ';

a[8]:='ВЫХОД';

textcolor(white);

textbackground(0);

clrscr;

window(1,1,80,1);

textbackground(14);

clrscr;

zagolovok:='* * БАЗА ДАННЫХ СЛЕДОВАТЕЛЯ * *';

gotoxy(40-round(length(zagolovok)/2),1);

write(zagolovok);

window(1,2,80,25);

textbackground(white);

clrscr;

window(3,3,78,24);

textbackground(1);

while key<>#13 do begin

textcolor(white);

clrscr;

gotoxy(2,wherey);

writeln('ВЫБЕРИТЕ ДЕЙСТВИЕ:');

For i:=1 to 8 do begin

Gotoxy(20,wherey);

if i=vibor then begin

Writeln('',a[i]);

end else begin

Writeln(' ',a[i]);

end;

end;

GotoXY(21,Vibor+1);

Key:=Readkey;

if key=#72 then begin

if Vibor>1 then begin

Vibor:=Vibor-1;

end;

end;

if key=#80 then begin

if Vibor<8 then begin

Vibor:=Vibor+1;

end;

end;

end;

if vibor=1 then begin

Okno(10,7,70,20,'*ВЫБОР КАТЕГОРИИ ПРЕСТУПЛЕНИЯ*');

Vibor_Categorii_Vvoda;

end;

if vibor=2 then begin

Okno(10,7,70,20,'*ВЫБОР КАТЕГОРИИ ПРЕСТУПЛЕНИЯ*');

Vibor_Categorii_Vivoda;

end;

if vibor=3 then begin

Okno(10,7,70,20,'*ВЫБОР КАТЕГОРИИ ПРЕСТУПЛЕНИЯ*');

Vibor_Categorii_Izmenenia;

end;

if vibor=4 then begin

Okno(10,7,70,20,'*ВЫБОР КАТЕГОРИИ ПРЕСТУПЛЕНИЯ ДЛЯ ПОИСКА*');

Vibor_Categorii_Poiska;

end;

if vibor=5 then begin

Okno(10,7,70,20,'*ВЫБОР КАТЕГОРИИ ПРЕСТУПЛЕНИЯ*');

Vibor_Categorii_Ydalenia;

end;

if vibor=6 then begin

Okno(10,7,70,20,'*ВЫБОР КАТЕГОРИИ ПРЕСТУПЛЕНИЯ*');

EriseAllDB;

end;

if vibor=7 then begin

Okno(10,10,70,15,'*О ПРОГРАММЕ*');

About;

end;

if vibor=8 then begin

HALT(0);

end;

end;

end;

begin

clrscr;

Titulka;

loading;

Vibor:=1;

menu;

end.

Размещено на Allbest.ru

Страница:


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

  • Разработка программ на языке программирования С\С++: информационно-поисковый справочник "ж/к индикаторов"

    Рассмотрение особенностей языка программирования С++. Пример составления программы - информационно-поискового справочника. Описание алгоритмов коррекции данных, введённых пользователем. Тестирование полученной программы, предусмотрение ее защиты.

    курсовая работа [20,0 K], добавлен 05.03.2015

  • Разработка справочной системы на Turbo Pascal

    Разработка эскизного и технического проектов программы "Helpopr" (ввод, хранение и вывод данных на дисплей по запросу пользователя). Язык программирования Turbo Pascal. Описание алгоритма программы. Требования к компьютеру и программному обеспечению.

    курсовая работа [198,1 K], добавлен 03.02.2010

  • Разработка программы по обработке числовой информации

    Разработка алгоритма поставленной задачи по обработке числовой информации в среде Turbo Pascal 7.0 с базовым языком программирования Pascal, отладка программы, реализующей разработанный алгоритм. Описание структуры программы, ее вспомогательных процедур.

    курсовая работа [668,0 K], добавлен 25.02.2010

  • Разработка программы создания набора данных с соблюдением всех ограничений и требований

    Описание возможностей языка программирования Turbo Pascal. Написание программы создания файлов с прямым доступом, которая также будет обрабатывать наборы данных с определенными полями и ограничениями. Контрольный пример работы поисковой программы.

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

  • Разработка программы в среде операционной системы Windows XP Professional Service Pack 2

    Характеристика используемой операционной системы, языка программирования. Структура программы на языке Turbo Pascal 7.1. Операторы языка Turbo Pascal. Проведение сортировки записей. Алгоритмы программы и подпрограмм. Причины возникновения ошибок.

    курсовая работа [454,1 K], добавлен 13.06.2014

  • Разработка программ в среде программирования Turbo Pascal 7.0

    Строгая типизация и наличие средств структурного (процедурного) программирования императивного языка Pascal. Структура программы, выражения, строки. Правила и описание типов, процедур и функций, операторов ввода - вывода, модулей и подпрограмм.

    курсовая работа [37,3 K], добавлен 28.06.2008

  • Разработка программы при помощи языка программирования языка Delphi

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

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

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

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

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

  • Написание игры "Змейка" средствами языка Turbo Pascal

    Изучение текстового режима языка программирования Turbo Pascal. Написание игры "Змейка" с помощью средств, процедур и функций языка программирование Turbo Pascal. Структурное и функциональное описание разработки. Листинг и общие примеры работы программы.

    контрольная работа [286,3 K], добавлен 10.04.2011

  • Программирование на языке высокого уровня

    Сущность среды программирования Turbo Pascal. Разработка программы с учетом потребительских свойств. Особенности методов современной технологии программирования (пошаговой детализации, структурный, модульный принцип, метод иерархической декомпозиции).

    курсовая работа [57,1 K], добавлен 03.03.2011

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

© 2000 — 2023, ООО «Олбест» Все права защищены