Program Binnary search 0

Binnary search adalah Mencari data tertentu dengan cara membagi dua bagian ,yaitu kiri dan kanan.

Programmnya sebagai berikut:

program PBiner;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Const L :array[1..10]of integer = (10,20,30,40,50,60,70,80,90,100);
var x, h, k, idx, N : integer;
    ketemu : Boolean;

begin
   write('Data yang mau dicari adalah : ');readln(x);
   h := 0;
   k := 1;
   N := 10;
   ketemu := false;

   while (k<N) and (not ketemu) do
   begin
        h := (k+N) div 2;
        if (L[h] = x) then ketemu := true
        else
           begin
           if (L[h]<x) then k := h+1
           else N := k-1;
           end;
   end;

   if ketemu then idx:=h
   else idx := 0;

   write('Indeks data yang dicari adalah : ',idx);
   readln;
end.