Prosedure Binary Search Pascal

Procedure Binarysearch(var x:larik); { Metode Binary search }

Var atas,tengah,bawah,cari :integer;
ketemu :boolean;
Begin
write(‘Masukan data yang dicari (dgn Binary Serach) : ‘);
readln(cari);
atas:=n;bawah:=1;ketemu:=false;
while not(ketemu) do
begin
tengah:=(atas+bawah) div 2;
If x[tengah]=cari then
begin
ketemu:=true;
writeln(‘Kunci yang di cari berada pada index ke ‘,tengah);
end
else if cari<x[tengah] then atas:=tengah-1
else bawah:= tengah+1;
if (bawah>atas) then
begin
ketemu:=true;
writeln(‘Data yang Anda cari tidak ada !’);
end;
end;
end;

klik untuk melihat program lebih lengkap

Binary Search

Jika kita mempunyai sebuah file dari record-record yang telah dijalankan, kita dapat melanjutkan menghapuskan memory pemeriksaan yang diperlukan untuk mendapatkan kembali sebuah record yang telah dipakai oleh suatu teknik binary search.

Suatu binary search dibandingkan dengan kunci dari pencarian record dengan record tengah dari sebuah file. Kemudian masing-masing pencarian record yang telah ditempatkan atau setengah dari file yang telah dihilangkan dengan pertimbangan yang lebih lanjut. Dalam kasus yang sebelumnya, proses pembandingan dari record tengah dilanjutkan dalam record-record selanjutnya.

Diktat Salah

Bagi Para mahasiswa yang mempunyai diktat sistem berkas baik yang beli maupun yang meminjam dari kakak tingkat, dimohon agar hati-hati dalam mencontoh jawaban dari contoh-contoh yang diberikan di diktat. karena untuk diktat-diktat yang sebelumnya (diterbitkan tahun lalu) jawaban dari contoh-contoh soal masih salah.

Banyak kasus mahasiswa mencontek atau mengikuti jawaban dari contoh soal yang ada di diktat alhasil jawaban itupun ikut salah, jadi harap berhati-hati.