Program Pencarian Bagi Dua Mengecil dengan Pascal

Kalo postingan sebelumnya kita membuat program pencarian bagi dua dengan membesar, maka kali ini kita akan membuatnya dalam keadaan mengecil, yuk langsung aja di intip...

program Bagi_Dua_Mengecil;
uses wincrt;
type Larik = array[1..100] of integer;
var
  L : Larik;
  Batas, target : integer;
procedure masukan(var L : Larik; n : integer);
var
  i : integer;
begin
  for i := 1 to n do
  begin
    write('Data Ke-',i,' : ');
    readln(L[i]);
  end;
end;
procedure Cari(n,x : integer);
var
  ketemu : boolean;
  i : integer;
  k,j,idx : integer;
begin
  i := 1;
  j := n;
  ketemu := false;
  while(not ketemu) and (i <= j) do
  begin
    k := (i+j) div 2;
      if L[k] = x then
      begin
        Ketemu := true;
        idx := k;
      end
    else
      if L[k] > x then i := k+1
        else j := k-1;
  end;
  if ketemu then writeln('Ditemukan di index ke-',idx) else
    writeln('Not found');
end;
begin
  write('Masukkan Banyak Data yang diinginkan : ');
  readln(Batas);
  writeln;
  writeln('Masukkan data secara teurut menurun : ');
  masukan(L,batas);
  writeln;
  write('Masukkan Data yang Ingin Dicari : ');
  readln(target);
  writeln;
  cari(batas,target);
end.

Nah, ini dia hasil setelah program di running