Bubble Sort dengan delphi atau pascal

Assalamualaikum Wr. Wb.

Pada postingan ini saya ingin berbagi tentang pemrograman khususnya bahasa pemrograman delphi atau pascal, bedanya terletak pada usesnya... kalau pascal menggunakan uses crt; dan atau clrscr;  sedangkan untuk bahasa pemrograman delphi menggunakan uses SysUtils; pada console application dan tidak butuh clrscr; seperti pada pascal.

Teknik sorting dapat digunakan untuk mengurutkan data, baik urutan dari kecil ke besar maupun dari besar ke kecil, baik untuk data numerik maupun untuk data alphabetik. Ada beberapa metode dalam pengurutan data : metode bubble sort, metode quicksort.

Metode Bubble Sort : seperti gelembung (bubble) yang timbul ke permukaan air, metode ini juga mengakibatkan angka besar diletakkan pada akhir urutan dan terus diatur sampai urut dari kecil ke besar. Untuk metode sorting ini, semua data dibaca terlebih dahulu ke komputer dan disimpan di main memory, kemudian diadakan pengurutan. Metode ini sering disebut metode penukaran.

program bubblesort;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var
  deret : array[1..100] of integer;
  loop, nested, banyak, tampung : integer;
begin
  write ('berapa banyak bilangan yang ingin diurutkan ? = ');
  readln (banyak);
  for loop := 1 to banyak do
  begin
    write ('bilangan ke ',loop:3,' = ');
    readln (deret[loop]) ;
  end;
  for loop := 1 to banyak -1 do
    for nested := loop +1 to banyak do
      if (deret[nested]< deret[loop]) then
      begin
        tampung:= deret[nested];
        deret[nested]:= deret[loop];
        deret[loop]:= tampung
      end;
  writeln;
  writeln('Hasil pengurutan bilangan dari besar ke kecil');
  for loop:= banyak downto 1 do
  begin
    writeln ('Data ke ', (banyak- loop+1):3, '=', deret[loop]);
    end;
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
 

Terimakasih atas kunjungannya,,,

Semoga Bermanfaat

Have Fun

Sumber:
Supriyono dan Farikhah Indriani. 2007. Modul Praktikum Algoritma Pemrograman. Yogyakarta: Universitas Islam Indonesia

Related Posts:

Tweet