![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() есть структура
Код:
unit Unit_Def; interface type Sportsmen = record Surname:ShortString; Name:ShortString; //Date_of_birth:ShortString; Day_of_Birth:integer; Month_of_Birth:integer; Year_of_Birth:integer; Weight:byte; Height:byte; Sex:ShortString; end; Mass = array of Sportsmen; Код:
Massiv:Mass; придумал такое : Код:
procedure Puzyrek(var Massiv:Mass;k:integer);// k - размер массива var i,j,m,n:integer; Temp:Mass;//временная переменная для перемещения begin setlength(Temp,1); for j:=0 to k-1 do begin with Massiv[j] do m:=Weight; for i:=0 to k-2 do begin with Massiv[i+1] do n:=Weight; if m>n then begin Temp[0]:=Massiv[j]; Massiv[j]:=Massiv[i+1]; Massiv[i+1]:=Temp[0]; end; end; end; end; и сортировать..Есть какой нибудь ещё способ сортировки в таком случае?И из того что я начал делать что нибудь придумать можно? |