Ini dia program buatan saya.walaupun hanya di coba2 semoga bermanfaat:
program Test;
uses crt;
var
L:array[1..100] of integer;
i,j,k,idx,n,x : integer;
find:boolean;
begin
clrscr;
write('Jumlah data : ');readln(n);
for i:=1 to
n do
begin
write('Nilai L',i,' : ');readln(L[i]);
end;
writeln;
write('Nilai yang akan dicari : ');readln(x);
writeln;
i:=1;
j:=n;
find:=false;
while
(i<=j) and (find=false) do
begin
k:=
i+(j-i) div 2;
if L[k] = x then find:=true
else
if (L[k]<x) then i:=k+1
else
j:=k
end;
if find
then
begin
idx:=k;
writeln('Nilai ',x,' ada pada elemen ke-',idx);
end
else
begin
idx:=-1;
writeln('Nilai ',x,' tidak ditemukan');
end;
readln;
end.
Untuk Program di atas data terlebih dahulu harus di buat datanya dalam bentuk notepad.
Untuk Pertanyaan silahkan tanya di melkysepang@gmail.com.
^_^
Post: 23 November 2012
Post: 23 November 2012
Tidak ada komentar:
Posting Komentar