5.Экспериментальная часть.

5.1.Решение функциональных задач.

Постановка задачи: добавление нового спортсмена.

Метод решения: необходимо заполнить поля записи, после чего добавить запись в массив.

Постановка задачи: вывод спортсмена через memo.

Метод решения: используется цикл, который проходит по всему массиву, выводя каждый элемент.

Постановка задачи: сортировка массива по весу.

Метод решения: сортировка массива методом пузырька.

Постановка задачи: сформировать список спортсменов не старше 22 лет.

Метод решения: с помощью цикла проходим по массиву с выборкой года рождения, если в сравнении разность между текущим годом и годом рождения больше 22, то удаляем запись из массива.

5.3.Руководство пользователя.

Добавление записи в базу.

Для добавления нового спортсмена в базу заполните поля: фамилия, имя, год рождения, вес, рост, пол. После чего нажмите кнопку «ввод записи». Если все сделано правильно, то спортсмен будет занесен в базу, если нет, то будет выведено сообщение об ошибке.

Отображение базы спортсменов.

Для отображения базы спортсменов нажмите кнопку «отобразить базу».

Очистить.

Для очистки окон добавления или окна вывода, необходимо нажать «очистить поля» или «очистить поле» соответственно.

Формирование списка.

Для формирования списка спортсменов не старше 22 лет нажмите «Сформировать список спортсменов старше 22 лет».

Сортировка по весу.

Для сортировки базы спортсменов по весу нажмите кнопку «сортировка по весу». Для того, чтобы увидеть результат, отобразите базу.

Завершение работы с программой.

Для завершения работы программы просто закройте ее как обычное окно Windows.

6.Листинг программы.

6.1.Модуль Lab10

unit Lab10;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Unit_Def, Grids; //Unit_op;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit1: TEdit;

ComboBox1: TComboBox;

Edit2: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label6: TLabel;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Memo1: TMemo;

Label7: TLabel;

procedure Edit1Clear(Sender: TObject);

procedure Edit2Clear(Sender: TObject);

procedure Edit4Clear(Sender: TObject);

procedure Edit3Clear(Sender: TObject);

procedure Edit5Clear(Sender: TObject);

procedure ClearAll(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1; arr:sportarray; t:sportsman; s,Gender:string; i:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

t:sportsman;

begin

t:=sportsman.create;

t.setFam(Edit1.Text);

t.setName(Edit2.Text);

//t.datr.day:=Combobox2.ItemIndex+1;

//t.datr.month:=Combobox3.ItemIndex+1;

t.setBDate(strtoint(Edit4.Text));

t.setWeight(strtoint(Edit5.Text));

t.setHeight(strtoint(Edit3.Text));

if combobox1.ItemIndex=0 then t.setGender(m) else t.setGender(f);

arr.Add_to_Array(t);

end;

procedure TForm1.Button3Click(Sender: TObject);

var

i : integer;

begin

memo1.Clear();

for i := 0 to arr.max do begin

if arr.getItem(i).getGender = m then Gender:='М' else Gender:='Ж';

memo1.Lines.Add('Фамилия: '+arr.getItem(i).getFam+' Имя: '+arr.getItem(i).getName+' Пол: '+Gender+' Возраст: '+inttostr(arr.getItem(i).getvozr)+' Рост: '+inttostr(arr.getItem(i).getHeight)+' Вес: '+inttostr(arr.getItem(i).getWeight));

end;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Memo1.clear;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

arr.sort_by_wei;

memo1.Clear();

for i := 0 to arr.max do begin

if arr.getItem(i).getGender = m then Gender:='М' else Gender:='Ж';

memo1.Lines.Add('Фамилия: '+arr.getItem(i).getFam+' Имя: '+arr.getItem(i).getName+' Пол: '+Gender+' Возраст: '+inttostr(arr.getItem(i).getvozr)+' Рост: '+inttostr(arr.getItem(i).getHeight)+' Вес: '+inttostr(arr.getItem(i).getWeight));

end;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

arr.leave_young;

memo1.Clear();

for i := 0 to arr.max do begin

if arr.getItem(i).getGender=m then Gender:='М' else Gender:='Ж';

memo1.Lines.Add('Фамилия: '+arr.getItem(i).getFam+' Имя: '+arr.getItem(i).getName+' Пол: '+Gender+' Возраст: '+inttostr(arr.getItem(i).getvozr)+' Рост: '+inttostr(arr.getItem(i).getHeight)+' Вес: '+inttostr(arr.getItem(i).getWeight));

end;

end;

procedure TForm1.ClearAll(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.clear;

Edit4.Clear;

edit5.Clear;

combobox1.text:='';

//combobox2.text:='';

//combobox3.Text:='';

end;

procedure TForm1.Edit1Clear(Sender: TObject);

begin

Edit1.Clear;

end;

procedure TForm1.Edit2Clear(Sender: TObject);

begin

Edit2.Clear;

end;

procedure TForm1.Edit3Clear(Sender: TObject);

begin

Edit3.Clear;

end;

procedure TForm1.Edit4Clear(Sender: TObject);

begin

Edit4.Clear;

end;

procedure TForm1.Edit5Clear(Sender: TObject);

begin

Edit5.Clear;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

arr:=sportarray.Create;

end;

end.