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

2.13.2Выходные данные

2.14 Описание процедуры mnuActions

Данная процедура представляет собой меню, созданное для удобства пользователя.

2.14.1 Алгоритм

Данная процедура представляет собой меню, созданное для удобства пользователя.

2.15.1 Алгоритм

3 ИНСТРУКЦИЯ ДЛЯ ПОЛЬЗОВАТЕЛЯ

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

Особой установки программа не требует, важно лишь, чтобы рядом с исполняемым файлом (CuRsoBiK.exe) находился типизированный файл базы данных (Log.Bask). Работу данной программы рассмотрим в следующем параграфе.

3.2 Контрольный пример

После запуска исполняемого файла мы увидим главное меню программы (Рисунок 3.1).

1. Действия с базой - переход на следующий уровень меню, содержащий функции для работы с типизированным файлом;

2. Задания - переход на следующий уровень меню, содержащий функции для вывода информации в удобном для восприятия виде; «3. Выход» - выход из программы.

Рисунок 3.1 - Главное меню

Меню «Действия с базой» (Рисунок 3.2). Рассмотрим подробнее:

1. Создать файл - функция для создания типизированного файла;

2. Добавить игрока - функция для добавления информации о новом игроке в типизированный файл;

3. Назад - вернуться в основное меню.

Рисунок 3.2 - Действия с базой

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

Рисунок 3.3 - Готово

После выбора пункта 2, выдается запрос пользователю о вводе информации о новом игроке (фамилия, номер, количество очков и фолов). После чего вся введенная информация будет записана в типизированный файл и на экран выведется сообщение о завершении ввода (Рисунок 3.4).

Рисунок 3.4 - Добавление новых записей

Теперь я предлагаю рассмотреть подробнее меню «Задания» (Рисунок 3.5):

1. Лучший игрок - вывод на экран сведений о лучшем игроке;

2. Количество фолов - вывод на экран общее количество фолов;

3. Отсортировать игроков - вывод на экран отсортированный список всех игроков;

4. Информация по номеру - вывод информации об игроке с заданным номером;

5. Игрок с наибольшим количеством фолов - вывод на экран сведений об игроке с наибольшим количеством фолов;

6. Назад - перейти в главное меню.

Рисунок 3.5 - Задания

Пункт меню 1: лучший игрок - вывод на экран сведений о лучшем игроке (Рисунок 3.6).

Рисунок 3.6 - Лучший игрок

Пункт меню 2: количество фолов - вывод на экран общего количества фолов (Рисунок 3.7).

Рисунок 3.7 - Количество фолов

Пункт меню 3: отсортировать игроков - вывод на экран отсортированных сведений обо всех игроках (Рисунок 3.8).

Рисунок 3.8 - Отсортировать игроков

Пункт меню 4: информация по номеру - вывод на экран сведений об игроке с заданным номером (Рисунок 3.9).

Рисунок 3.9 - Информация по номеру

Пункт меню 5: игрок с наибольшим количеством фолов - вывод на экран сведений об игроке с наибольшем количеством фолов (Рисунок 3.8).

Рисунок 3.8 - «Игрок с наибольшим количеством фолов»

ЗАКЛЮЧЕНИЕ

С развитием компьютерных технологий появилась возможность автоматизировать некоторые виды деятельности человека. Но компьютер не сможет выполнить бухгалтерский учет или рассчитать зарплату без специальных программ. Для этих целей и была создана Система Управления Базами Данных (СУБД), позволяющая быстро оперировать с данными: хранить их и выдавать пользователю в нужном ему виде. Использование компьютера для выполнения различных задач сейчас применяется повсеместно, и это полностью оправдывает затраты на них, так как экономит рабочие силы, время и деньги. Мир СУБД велик и практически безграничен, поскольку базы данных применяются сегодня везде - от крупной корпорации и сети Интернет до небольшого «домашнего» офиса.

СПИСОК ЛИТЕРАТУРЫ

1. Дмитрий Осипов, «Delphi. Профессиональное программирование», Издательство «Символ-плюс», 2006, 1056 стр.

2. Фаронов В.В., «Delphi. Программирование на языке высокого уровня», Издательство «Питер», 2011, 640стр.

3. Осипов Д.Л., «Базы данных и Delphi. Теория и практика», Издательство «BHV», 2011, 752стр.

4. Флёнов М.В., «Программирование в Delphi глазами хакера», Издательство «BHV», 2003, 368стр.

5. http://codingrus.ru/infusions/

Приложение 1

Программный код

Program CuRsoBiK;

{$APPTYPE CONSOLE}

Uses

Windows,

SysUtils;

Type Ved = Record

Famil : String [30];

Nomer : Integer;

Score : Integer;

Fols : Integer;

End;

Var

Arr : Array [1..30] of String;

Fail : File of Ved;

P : Ved;

i, t, f : Integer;

Otv : String;

ConHandle : THandle;

Coord : TCoord;

CCI : TConsoleScreenBufferInfo;

//---------------------------------------------------CATO------------------------------

Function CATO(Const s: String): String;

Begin

SetLength(Result, Length(s));

AnsiToOEM(PChar(s), Pointer(Result));

End;

//--------------------------------------------------------Cls-------------------------------

Procedure Cls;

Begin

For i := 0 to CCI.dwSize.Y do

Writeln;

Coord.X := 0;

Coord.Y := 0;

SetConsoleCursorPosition (ConHandle, Coord);

End;

//----------------------------------------------------AddMan----------------------------

Procedure AddMan;

Begin

Cls;

Reset (Fail);

Seek (Fail, FileSize (Fail));

Repeat

Writeln (Arr[1]);

Readln (p.Famil);

Writeln (Arr[2]);

Readln (p.Nomer);

Writeln (Arr[3]);

Readln (p.Score);

Writeln (Arr[4]);

Readln (p.Fols);

Write (Fail, p);

Writeln (Arr[5], CATO('? [Да]'));

Readln (Otv);

Until (Otv = CATO('Да')) or (Otv = CATO('да'));

Close (Fail);

End;

//----------------------------------------------------BestMan---------------------------

Procedure BestMan;

Var max, maxN: Integer;

Begin

Cls;

max := -1; maxN := 0;

Reset (Fail);

While Not EOF (Fail) Do Begin

Read (Fail, p);

If p.Score > max Then

Begin

max := p.Score;

maxN := p.Nomer;

End;

End; Seek (Fail, 0);

Writeln ('========================================================');

Writeln (Arr[1]:20,Arr[2]:10,Arr[3]:20,Arr[4]:20);

Writeln ('========================================================');

While Not EOF (Fail) Do Begin

Read (Fail, p);

If p.Nomer = maxN Then

Writeln (p.Famil:20, p.Nomer:10, p.Score:20, p.Fols:20);

End;

Writeln ('========================================================');

Close (Fail);

Readln

End;

//------------------------------------------------------Fols------------------------------

Procedure Fols;

Var total: Integer;

Begin

Cls;

Total := 0;

Reset (Fail);

While Not EOF (Fail) Do Begin

Read (Fail, p);

total := total + p.Fols

End;

Writeln (Arr[7],': ', total);

Close (Fail);

Readln

End;

//-----------------------------------------------------InfoMan---------------------------

Procedure InfoMan;

Var number: Integer;

Begin

Cls;

Writeln (Arr[8]);

Readln (number);

Reset (Fail);

Writeln ('========================================================');

Writeln (Arr[1]:20,Arr[2]:10,Arr[3]:20,Arr[4]:20);

Writeln ('========================================================');

While Not EOF (Fail) Do Begin

Read (Fail, p);

If p.Nomer = number Then

Writeln (p.Famil:20, p.Nomer:10, p.Score:20, p.Fols:20);

End;

Writeln ('=======================================================');

Close (Fail);

Readln

End;

//------------------------------------------------------Looser----------------------------

Procedure Looser;

Var max, maxN: Integer;

Begin

Cls;

max := -1; maxN := 0;

Reset (Fail);

While Not EOF (Fail) Do Begin

Read (Fail, p);

If p.Fols > max Then

Begin

max := p.Fols;

maxN := p.Nomer;

End;

End; Seek (Fail, 0);

Writeln ('=======================================================');

Writeln (Arr[1]:20,Arr[2]:10,Arr[3]:20,Arr[4]:20);

Writeln ('========================================================');

While Not EOF (Fail) Do Begin

Read (Fail, p);

If p.Nomer = maxN Then

Writeln (p.Famil:20, p.Nomer:10, p.Score:20, p.Fols:20);

End;

Writeln ('======================================================');

Close (Fail);

Readln

End;

//------------------------------------------------------ResetFile-------------------------

Procedure ResetFile;

Begin

Cls;

ReWrite (Fail);

Close (Fail);

Write(CATO('Готово.'));

Readln;

End;

//-----------------------------------------------------SortMan---------------------------

Procedure SortMan();

Var

buffer : Ved;

l, k, m : Integer;

mas : Array [1..50] of Ved;

Begin

Cls;

Reset (Fail); l := 1;

While Not EOF (Fail) Do

Begin

Read (Fail, p);

mas [l] := p;

l := l + 1;

End;

Close (Fail);

For k := 1 To l - 2 Do

For m := 1 To l - 2 Do

If mas [m].Score < mas [m+1].Score Then

Begin

buffer := mas [m];

mas [m] := mas [m+1];

mas [m+1] := buffer;

End;

Writeln ('========================================================');

Writeln (Arr[1]:20,Arr[2]:10,Arr[3]:20,Arr[4]:20);

Writeln ('========================================================');

For k := 1 To l - 1 Do

Begin

Writeln (mas [k].Famil:20, mas [k].Nomer:10, mas [k].Score:20, mas [k].Fols:20);

End;

Writeln ('========================================================');

Readln

End;

//----------------------------------------------------mnuActions------------------------

Procedure mnuActions;

Begin

Repeat

f := 0;

Cls;

Writeln ('Действия с базой:');

Writeln ('1. ',Arr[9]);

Writeln ('2. ',Arr[10]);

Writeln ('3. ',Arr[16]);

Readln (f);

Case f of

1: ResetFile;

2: AddMan;

End;

Until f = 3;

End;

//---------------------------------------------------mnuShow---------------------------

Procedure mnuShow;

Begin

Repeat

f := 0;

Cls;

Writeln (CATO('Задания:'));

Writeln ('1. ',Arr[11]);

Writeln ('2. ',Arr[12]);

Writeln ('3. ',Arr[13]);

Writeln ('4. ',Arr[14]);

Writeln ('5. ',Arr[15]);

Writeln ('6. ',Arr[16]);

Readln (f);

Case f of

1: BestMan;

2: Fols;

3: SortMan;

4: InfoMan;

5: Looser;

End;

Until f = 6;

End;

//------------------------------------------------BeginTheProgramm------------------

BEGIN

Assign(Fail, 'Log.Bask');

ConHandle := GetStdHandle (STD_OUTPUT_HANDLE);

Coord := GetLargestConsoleWindowSize (ConHandle);

GetConsoleScreenBufferInfo (GetStdHandle (STD_OUTPUT_HANDLE), CCI);

Arr[1]:=CATO('Фамилия');

Arr[2]:=CATO('Номер');

Arr[3]:=CATO('Количество очков');

Arr[4]:=CATO('Количество фолов');

Arr[5]:=CATO('Выйти');

Arr[6]:=CATO('Общее кол. очков');

Arr[7]:=CATO('Общее количество фолов');

Arr[8]:=CATO('Введите номер игрока');

Arr[9]:=CATO('Создать файл');

Arr[10]:=CATO('Добавить игрока');

Arr[11]:=CATO('Лучший игрок');

Arr[12]:=CATO('Количество фолов');

Arr[13]:=CATO('Отсортировать игроков');

Arr[14]:=CATO('Информация по номеру');

Arr[15]:=CATO('Игрок с наибольшим количеством фолов');

Arr[16]:=CATO('Назад');

Arr[17]:=CATO('Действия с базой');

Arr[18]:=CATO('Задания');

Repeat

Cls; t := 0;

Writeln ('Menu:');

Writeln ('1. ',Arr[17]);

Writeln ('2. ',Arr[18]);

Writeln ('3. ',Arr[5]);

Readln (t);

Case t of

1:mnuActions;

2:mnuShow;

End;

Until t = 3;

END.

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