Pencarian Bagi Dua dengan Pascal

Postingan ini adalah kelanjutan dari postingan sebelumnya tentang pencarian beruntun

PROGRAM CARI_BAGI_DUA;
uses wincrt;

var
L : array [1..100] of integer ;
a, b, c, result : integer ;

    function binarysearch2(n : integer; x : integer) : integer;
        var
        i, j : integer ;
        idx, k : integer ;
        ketemu : boolean ;
        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
        ketemu := true
        else
        if (x> L[k]) then
        i := k+1
        else
        j := k-1;
        end;
        if (ketemu) then
        idx := k
        else
        idx := -1;
    binarysearch2 := idx;
    end;
    begin
    writeln ('=======================' ) ;
    write ('ENTER TOTAL OF DATA : ') ; readln (a) ;
    writeln ('=======================' ) ;
    for c :=1 to a do
    begin
      write ('Please Input Your Data ',c,' : ' ); readln (L[c]);
      end;
      write ('Input Your Data will be Find : ' ) ; readln (b) ;
      result := binarysearch2 (a,b) ;

      if (result =-1) then
      writeln ('Data Not Found, Please Try Again !!!')
      else
      writeln ('Data Found In : ' ,result);
end.

Source code pencarian bagi dua

Tampilan ketika data ditemukan

Tampilan ketika data tidak ditemukan