Sorting Dengan Metode Bubble Sort di Pascal
Pada artikel ini, saya memberikan materi tentang sorting dengan metode bubble sort(metode gelembung) contoh yang menaik : data = 1 4 3 2 hasil = 1 2 3 4 sedangkan contoh yang menurun : data 1 4 3 2 hasil = 4 3 2 1 simple saja bukan :) lets check it out .. program arh_bsort_menaik; uses wincrt; var i,n,j : integer; a: array [1..100] of integer; procedure buble; var z: integer; begin for i:= 1 to n-1 do begin for j:= n downto i+1 do begin if a[j] < a[j-1] then begin z:= a[j]; a[j]:= a[j-1]; a[j-1]:=z; end; end; end; end; begin write('masukkan banyak larik (maks 100) : '); readln(n); for i:= 1 to n do begin write('A[',i,'] : '); readln(a[i]); end; buble; write('data setelah diurutkan : '); for j:=1 to n do write (a[j],' '); end. Yang harus diperhatikan adalah koding if a[j] < a[j-1] then begin z:= a[j]; a[j]:= a[j-1]; a[j-1]:=z; end; fungsi koding diatas adalah untuk menukarkan posisi dari angka yang ada pada larik. Jika nilai sekarang lebih k...