Algoritma Bubble Sort di Delphi

04.08 program 0 Comments

Dalam pemrograman pastilah ada saat dimana kita harus mensorting atau mengurutkan bilangan, sehingga di buatlah macam-macam algoritma atau metode dalam proses pengurutan tersebut salah satunya alah algoritma Bubble Sort,nah untuk lebih jelasnya simak source code berikut:

procedure TForm1.sort(var matriks: array of integer);
var
  i, j, T: integer;
begin
  for i := 1 to 3 do
    for j := 4 downto i + 1 do
      if matriks[j] < matriks[j - 1] then
      begin
        T := matriks[j];
        matriks[j] := matriks[j - 1];
        matriks[j - 1] := T;
      end;
end;
code diatas digunakan untuk mengurutkan dari yang terbesar sampai yang terkecil sedangkan untuk kebalikanya digunakan

procedure TForm1.sort(var matriks: array of integer);
var
  i, j, T: integer;
begin
  for i := 1 to 3 do
    for j := 4 downto i + 1 do
      if matriks[j] > matriks[j - 1] then
      begin
        T := matriks[j];
        matriks[j] := matriks[j - 1];
        matriks[j - 1] := T;
      end;
end;

sekian Algoritma Bubble Sort di Delphi, muga-mugahan dapat membantu teman-teman semua,..