Нужна другая реализация пузырька. Помогите очень нужно, завтра сдавать...

[Алексей_xXx]

Народ помогите изменить программу, а точнее процедуру сортировки Пузырьком. Нужна другая реализация пузырька. Помогите очень нужно, завтра сдавать...

ВОТ КОД

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Memo3: TMemo;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button2: TButton;
    Button3: TButton;
    Memo4: TMemo;
    Memo5: TMemo;
    Memo6: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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}


procedure TForm1.FormShow(Sender: TObject);
begin
memo1.Clear;
memo2.Clear;
memo3.Clear;
memo4.Clear;
memo5.Clear;
memo6.Clear;
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;

end;

procedure TForm1.Button2Click(Sender: TObject);

   const
    SIZE=10; // размер массива var
     var
a:array[1..SIZE]of integer; //массив
d1,i,k,bound:integer;
buf:integer; { буфер, используемый при обмене элементов массива }

   begin
for i:=1 to SIZE do
a[i]:=StrToInt(Memo3.Lines[i-1]); // строки Memo пронумерованы с нуля

 bound:=SIZE;
 d1:=0;    //сортировка
  while bound>1 do
  begin
for k:=1 to bound-1 do
if a[k]>a[k+1] then
begin // обменяем k-й и k+1-й элементы
buf:=a[k]; a[k]:=a[k+1]; a[k+1]:=buf;

      inc(d1);   //счетчик практической

  end;
    bound:=bound-1;
       end;

   for i:=1 to SIZE do   //вывод
             memo4.Lines.Add(IntToStr(a[i]));


edit3.Text:=IntToStr(SIZE*SIZE);  //оценка сложности
edit4.Text:=IntToStr(d1);

end;

procedure TForm1.Button3Click(Sender: TObject);

   const
    SIZE=10; // размер массива var
     var
a:array[1..SIZE]of integer; //массив
d2,i,k,bound:integer;
buf:integer; { буфер, используемый при обмене элементов массива }

   begin
for i:=1 to SIZE do
a[i]:=StrToInt(Memo6.Lines[i-1]);
   d2:=0;
 bound:=SIZE;     //сортировка
  while bound>1 do
  begin
for k:=1 to bound-1 do
if a[k]<a[k+1] then
begin // обменяем k-й и k+1-й элементы
buf:=a[k]; a[k]:=a[k+1]; a[k+1]:=buf;

      inc(d2);   //счетчик практической

  end;
    bound:=bound-1;
       end;

   for i:=1 to SIZE do   //вывод
             memo5.Lines.Add(IntToStr(a[i]));


edit5.Text:=IntToStr(SIZE*SIZE);  //оценка сложности
edit6.Text:=IntToStr(d2);

end;

end.

[Алексей_xXx]

Народ помогите изменить программу, а точнее процедуру сортировки Пузырьком. Другую реализация сортировки нашел , она в самом низу, а вот заменить не могу потому что связать не получаеться сортировку со всем остальным. Помогите очень нужно, завтра сдавать...

ВОТ КОД ДРУГОГО ПУЗЫРЬКА!!

type
 TIntVec = array of Integer; 
...
procedure BubbleSort(var a: TIntVec);
 var i,p,n: Integer; b: boolean;
begin
 n:= Length(a)-1;
 if n < 1 then exit;
 repeat
  b:= true;
  Dec(n);
  for i:= 0 to n do
   if a[i] > a[i+1] then
    begin
     p:= a[i];
     a[i]:= a[i+1];
     a[i+1]:= p;
     b:= false;
    end;
 until b;
end;

[бедный_студент]

что то какой то пузырек навороченный на бейсике всего 3 строки занимает вместе с ифом

и вообще всего 3 метода сортировки существует насколько я знаю, а тому кто придумает еще какой то более эффективный, похвала и всякие почести ...

[Stilet]

Насколько понял тебе нужно так:

procedure TForm1.Button2Click(Sender: TObject);

   const
    SIZE=10; // размер массива var
     var
a:array[1..SIZE]of integer; //массив
d1,i,k,bound:integer;
buf:integer; { буфер, используемый при обмене элементов массива }

   begin
for i:=1 to SIZE do
a[i]:=StrToInt(Memo3.Lines[i-1]); // строки Memo пронумерованы с нуля

BubbleSort(a);

   for i:=1 to SIZE do   //вывод
             memo4.Lines.Add(IntToStr(a[i]));


edit3.Text:=IntToStr(SIZE*SIZE);  //оценка сложности
edit4.Text:=IntToStr(d1);

end;

Только всетки я бы обьявил по другом:

procedure BubbleSort(var a: array of integer);

и вообще всего 3 метода сортировки существует

Неа. гораздо больше...