6.2.Модуль Unit_Def
unit Unit_Def;
interface
type
Tpol = (m,f);
sportsman = class
private
Fam : string;
Name : string;
bDate : integer;
Weight : integer;
Height : integer;
Gender : Tpol;
public
function getFam() : string;
function getName() : string;
function getBDate() : integer;
function getWeight() : integer;
function getHeight() : integer;
function getGender() : Tpol;
function getVozr() : integer;
procedure setFam(str : string);
procedure setName(str : string);
procedure setBDate(i : integer);
procedure setWeight(i : integer);
procedure setHeight(i : integer);
procedure setGender(t : tpol);
end;
tArr = array of sportsman;
sportarray = class
private
arr:Tarr;
public
procedure sort_by_wei();
procedure Add_to_Array(r:sportsman);
procedure leave_young();
function max() : integer;
function getItem(i:integer) : sportsman;
end;
implementation
function sportsman.getFam() : string;
begin
getFam := fam;
end;
function sportsman.getName() : string;
begin
getName := name;
end;
function sportsman.getBDate() : integer;
begin
getBDate := bDate;
end;
function sportsman.getWeight() : integer;
begin
getWeight := weight;
end;
function sportsman.getHeight() : integer;
begin
getHeight := height;
end;
function sportsman.getGender() : tpol;
begin
getGender := gender;
end;
procedure sportsman.setFam(str : string);
begin
fam := str;
end;
procedure sportsman.setName(str : string);
begin
name := str;
end;
procedure sportsman.setBDate(i : integer);
begin
bDate := i;
end;
procedure sportsman.setWeight(i : integer);
begin
weight := i;
end;
procedure sportsman.setHeight(i : integer);
begin
height := i;
end;
procedure sportsman.setGender(t : tpol);
begin
gender := t;
end;
function sportsman.getvozr():integer;
begin
result:=2012-bDate;
end;
procedure sportarray.sort_by_wei();
var i,j:integer; r,x:sportsman;
begin
for i:=0 to high(arr)-1 do
FOR J:=I DOWNTO 0 DO
IF arr[J].getWeight > arr[J+1].getWeight THEN
BEGIN
X:=arr[J];
arr[J]:=arr[J+1];
arr[J+1]:=X
END;
end;
procedure sportarray.Add_to_Array(r:sportsman);
var
i:integer;
begin
i:=high(arr);
setlength(arr,i+2);
arr[i+1]:=r;
end;
procedure sportarray.leave_young();
var
i:integer;
begin
i:=0;
while i<=high(arr) do
if arr[i].getVozr>22 then begin
arr[i]:=arr[high(arr)];
Setlength(arr,high(arr));
end else
inc(i);
end;
function sportarray.max():integer;
begin
result:=high(arr);
end;
function sportarray.getItem(i:integer) : sportsman;
begin
result:=arr[i];
end;
end.
7.Скриншот программы.
Содержание:
1.Реферат.
1.1. Общее число страниц, количество таблиц, рисунков, количество разделов.
1.2. Краткий обзор содержания основных разделов расчетно-пояснительной записки.
2.Введение.
3.Теоретическая часть.
4.Проектная часть.
4.1. Постановка задачи.
4.2.Выбор метода решения.
4.3.Модульная структура программного комплекса.
4.4.Описание интерфейса программы.
5.Экспериментальная часть.
5.1.Решение функциональных задач.
5.3.Руководство пользователя.
6.Листинг программы.
6.1.Модуль Lab10
6.2.Модуль Unit_Def
7.Скриншот программы.