30 Mei 2011

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

Share on Facebook
Share on Twitter
Share on Google+

Related : Program Pencarian Bagi Dua Mengecil dengan Pascal

0 Komentar:

Posting Komentar

Terimakasih telah meninggalkan Komentar di Didit Blog | Silahkan berkomentar dengan bebas, tidak mengandung SARA | komentar dengan link HIDUP akan dihapus | Terimakasih ^_^