Народ, а есть другой алгоритм сортировки ПУЗЫРЬКОМ?

[Алексей_xXx]

А другой, не такой как этот алгоритм сортировки?, если знаете напишите его пожалуйста, связав с массивом

Procedure TForm1.Button1Click(Sender: TObject);
const
n=10;
var
d,k,i,temp,bound:integer;
x:array[1..n] of integer;
begin
randomize;
memo1.Clear;
memo2.Clear;

for i:=1 to n do
x[i]:=random(100);
for k:=1 to n do
memo1.Lines.Add(IntToStr(x[k]));
bound:=n;
d:=0;
while bound>1 do
begin
{ShowMessage('qwa');}
for i:=1 to bound-1 do
if x[i]>x[i+1] then
begin
temp:=x[i];
x[i]:=x[i+1];
x[i+1]:=temp;
inc(d);
end;
bound:=bound-1;

end;

edit1.Text:=IntToStr(n*n); //оценка сложности
edit2.Text:=IntToStr(d);
for k:=1 to n do
memo2.Lines.Add(IntToStr(x[k]));

end; {end of procedure}

[Chudo4258]

http://www.comp-science.narod.ru/Pro...e_02/pas9.html

[Алексей_xXx]

там паскаль, а надо делфи

[DM_bite]

там паскаль, а надо делфи

Да вы что? Правда? А какой язык является предком Delphi вы в курсе?

хе, паскаль!

Вот поэтому все что возможно в Паскале - применимо к Delphi.А если что-то не получиться пишите - поможем.

[Алексей_xXx]

хе, паскаль!