сортировка методом "пузырька" по возрастанию

[inquis]

помогите пожалуйста решить эту задачу:

есть массив:

Type mass1=array[1..16] of string;
mass2=array[1..16] of real;
mass3=array[1..16] of real;

var
  Form1: TForm1;
  one:mass1=('À6ÃÒØ','À7ÃÒØ','À7ÃÒØ-ÒË','À7Ø','À9ÃÒØ-ÒË','À9Ø','ÇÒÑØ1-172',
'ÇÒÑØ1-195','ÇÒÑØ1-195ÒË','ÇÒÑØ-195','ÇÒÑØ-240','Ò12Ì3Á-195','Ò12Ì3Á-215',
'Ò12Ì3Á-240','Ò12Ì3Å-172','ÒÑ5Å-172');
  two:mass2=(280,265,250,520,230,420,505,400,355,485,420,660,545,660,625,500);
  three:mass3=(900,1600,1600,2300,300,3500,1200,1550,2100,1550,3000,1000,1300,2400,800,100);
  i,j,x:integer;
  n:array[1..16] of integer;

необходимо отсортировать его методом "пузырька" по возрастанию.
результат обработки (3 массива) вывести на форму.

[inquis]

необходимо обработать поочередно данные массивы с помошью процедуры

[RUSt88]

это же простейший алгоритм сравнения двух соседних элементов и их перемещение!

[inquis]

можете помочь?

[Stilet]

Конечно:
http://www.programmersforum.ru/showthread.php?t=450

[RUSt88]

procedure Sort(var A: TMass);
var
	i, j, m: Integer;
begin
	for i := 0 to N - 1 do begin
		for j := 0 to N - 2 do begin
			if A[j] > A[j + 1] then begin
				m := A[j];
				A[j] := A[j + 1];
				A[j + 1] := m;
			end;
		end;
	end;
end;

[inquis]

Type mass1=array[1..16] of string;
mass2=array[1..16] of integer;
mass3=array[1..16] of integer;

var
  Form1: TForm1;
  a:mass1=('À6ÃÒØ','À7ÃÒØ','À7ÃÒØ-ÒË','À7Ø','À9ÃÒØ-ÒË','À9Ø','ÇÒÑØ1-172','ÇÒÑØ1-195',
'ÇÒÑØ1-195ÒË','ÇÒÑØ-195','ÇÒÑØ-240','Ò12Ì3Á-195','Ò12Ì3Á-215','Ò12Ì3Á-240','Ò12Ì3Å-172','ÒÑ5Å-172');
  b:mass2=(280,265,250,520,230,420,505,400,355,485,420,660,545,660,625,500);
  c:mass3=(900,1600,1600,2300,300,3500,1200,1550,2100,1550,3000,1000,1300,2400,800,100);
  i,j,x,k:integer;
  n:array[1..16] of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=1 to 16 do
begin
F1Book1.NumberRC[i+1,1]:=i;
F1Book1.TextRC[i+1,2]:=a[i];
F1Book1.NumberRC[i+1,3]:=b[i];
F1Book1.NumberRC[i+1,4]:=c[i];
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
repeat
f:=false; 
for i:=1 to N-1 do 
begin
if b[i]>b[i+1] then 
begin
f:=true;
x:=b[i];b[i]:=b[i+1];b[i+1]:=x;
end;
end;
until not f;
F1Book2.NumberRC[i+1,1]:=i;
F1Book2.TextRC[i+1,2]:=a[i];
F1Book2.NumberRC[i+1,3]:=b[i];

end;

end.

однако выводит только: http://s53.radikal.ru/i140/1004/9c/222ab6863755.jpg
помогите пожалуйста

[Grag]

Сообщение от RUSt88

procedure Sort(var A: TMass);
var
	i, j, m: Integer;
begin
	for i := 0 to N - 1 do begin
		for j := 0 to N - 2 do begin
			if A[j] > A[j + 1] then begin
				m := A[j];
				A[j] := A[j + 1];
				A[j + 1] := m;
			end;
		end;
	end;
end;

Извини, дорогой, но это простая линейная сортировка, но никак не "пузырёк"...

[RUSt88]

Дорогой, это вы ошибаетесь!

Сортировка методом пузырька
Метод основан на сравнении соседних элементов. «Неправильно» расположенные по отношению друг к другу элементы меняются местами. Во вложенных циклах поочередно фиксируется пара соседних элементов массива. В результате первого прохода элемент с минимальным значением оказывается в первой позиции массива (всплывает).

(код и определение взяты из лабораторного практикума по дисциплине "Информатика" Уфимского государственного авиационного технического университета !)

[Grag]

Идея метода: шаг сортировки состоит в проходе снизу вверх по массиву. По пути просматриваются пары соседних элементов. Если элементы некоторой пары находятся в неправильном порядке, то меняем их местами.

Когда на каком-либо из проходов не произошло ни одного обмена, это значит, что все пары расположены в правильном порядке, так что массив уже отсортирован. И продолжать процесс не имеет смысла(особенно, если массив был отсортирован с самого начала !).
В предлагаемом Вами методе все циклы будут осуществлены независимо от расположения элементов. Даже если массив уже был отсортирован изначально, то количество проходов будет выполнено максимальное число раз... А это есть ни что иное, как простая линейная сортировка...

З.Ы. А ведь изначально-то Вами предлагался совершенно другой фрагмент кода... с линейной сортировкой...

procedure Sort(var A: TMass);
var
	i, j, m: Integer;
begin
	for i := 0 to N - 1 do begin
		for j := 0 to N - 2 do begin
			if A[j] > A[j + 1] then begin
				m := A[j];
				A[j] := A[j + 1];
				A[j + 1] := m;
			end;
		end;
	end;
end;