Binary Search Pake Bahasa Pascal

27 Februari 2010

Setelah nulis Binary Search pake bahasa C sekarang saatnya nulis source code binary search pake pascal, sebenernya intinya sama aja, yaitu cek dulu nilai terbesar dan terkecilnya lalu ambil nilai tengahnya, dan dibandingkan dengan nilai yang di cari. Apabila nilai yang dicari lebih besar dari nilai tengah maka pencarian akan dimulai dari tengah ke kanan, tapi jika lebih kecil maka pencarian dimulai dari tengah ke kiri. Nah hal ini akan mempersingkat waktu pencarian jika data tersebut bernilai berurutan. contoh 1 sampai 10 urut tidak acak..., berikut adalah sourcenya

program Binary_Search;
uses crt;

const
x = 10;

Var
arr : array [1..x] of integer;
i, kiri,tengah,kanan,cari :integer;
ketemu :boolean;

Begin
clrscr;
writeln('List Angka : ');
for i := 1 to x do
begin
arr[i] := i;
write(arr[i],' ');
end;
writeln;
write('Masukan data yang dicari (dgn Binary Serach) : ');
readln(cari);
kiri:=x;
kanan:=1;
ketemu:=false;
while not(ketemu) do
begin
tengah:=(kiri + kanan) div 2;
If arr[tengah]=cari then
begin
ketemu:=true;
writeln('Kunci yang di cari berada pada index ke ',tengah);
end
else if (cari < arr[tengah]) then
kiri := tengah - 1
else
kanan:= tengah+1;
if (kanan > kiri) then
begin
ketemu:=true;
writeln('Data yang Anda cari tidak ada !');
end;
end;
readln;
end.

Itu nilainya berurutan jika mau coba tidak berurutan maka pada arr[i] := i; diganti menjadi arr[i] := random(x) + 1; bereskan??, hehehe...

Bagikan

Udah Baca ini??