30 Mei 2011

Program Pencarian Bagi Dua Membesar dengan Pascal

Belajar pascal lagi yuk, kali ini kita akan membuat sebuah program mengurutkan bilangan dengan sistem bagi dua, dimana bilangannya harus dalam keadaan terurut menaik/membesar/ascending. langsung ajah yaa....cap..cip..cus...

program BagiDuaMembesar;
uses wincrt;
type Larik = array[1..1000] of integer;
var
  L : Larik;
  Batas, target : integer;
procedure InPut(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 j := k-1
        else i := k+1;
  end;
  if ketemu then writeln('Ditemukan di index ke ',idx) else
    writeln('Not found');
end;
begin
  write('Masukkan banyak data : ');
  readln(Batas);
  writeln;
  writeln('Masukkan data secara teurut menaik : ');
  InPut(L,batas);
  writeln;
  write('Data yang ingin dicari : ');
  readln(target);
  writeln;
  cari(batas,target);
end.




Setelah di run, maka akan muncul penampakan seperti berikut :

Share on Facebook
Share on Twitter
Share on Google+

Related : Program Pencarian Bagi Dua Membesar 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 ^_^