Program BinarySearch


Uses Crt;
Type
    Arraykoe = Array[1..10] of Integer;
Var
   A        : Arraykoe;
   i, j     : Integer;
   N1, X1, IX1 : Integer;

Procedure CariBinarySearch(L:Arraykoe; N : Integer; Var IX:Integer);
Var
   Ia, Ib : Integer;
   K      : Integer;
   ketemu : Boolean;
Begin
     Ia:=1;
     Ib:=N;
     ketemu:=false;
     while (not ketemu) and (Ia<=Ib) do
     Begin
          k:=(Ia+Ib)div 2;
          if (L[k]=IX) then
             ketemu:=true
          else
          If (L[k] < IX) then
             I:=k+1
          else
              Ib:=k-1;
     End;
     If (ketemu) then

        Writeln('Ketemu di :',k)
     else
         Writeln('Tidak Ketemu');
End;

Begin
     Clrscr;
     Write('Berapa Data : ');Readln(N1);
     For i:=1 to N1 do
     Begin
          Write('Data ke-',i,' : ');Readln(A[i]);
     end;
     Write('Masukkan Data yang dicari : ');Readln(IX1);
     CariBinarySearch(A,N1,IX1);
     Readln;
End.


0 komentar:

Post a Comment