SEARCHING PART I (Sequential Search)

-Hasil Keluaran-

masukan jumlah data yang akan dimasukkan ke dalam larik: 5

masukan elemen larik ke-1 : 2

masukan elemen larik ke-2 : 8

masukan elemen larik ke-3 : 3

masukan elemen larik ke-4 : 9

masukan elemen larik ke-5 : 5

masukan elemen larik yang dicari : 9

------------------------------------------------------

Elemen larik 9 ketemu nih

-Sintax Pascal-

program BinarySearch;
uses wincrt;
    const Nmaks = 100;

var
   L : array [1..Nmaks] of integer;
   X, K, n : integer;

begin
   write ('Masukkan jumlah data yang akan dimasukan ke dalam larik : '); readln (n);

   for K := 1 to n do
   begin
       write ('masukan elemen larik ke -',k,': '); readln (L[K]);
   end;
   writeln;
   write ('masukan data elemen larik yang dicari : '); readln (X);
   writeln ('------------------------------------------------------');

   K := 1;
   while (K<n) and (L[K] <> x) do
   begin 
      K := K+1;
   end;
   
   if L[K] = X then
   begin
      writeln ('Elemen larik 'X,' ketemu nih);
   end
   else
   begin
      writeln ('Elemen larik 'X,' ga ketemu nih); 
   end;
end.