Struktur Data - Sequential Search

Sequential Search

program pencarian_sequential_boolean;

const nmax=100;
type tabinteger=array[1..nmax] of integer;

var

tabint:tabinteger;

jml_data,data,indeks:integer;

found:boolean;

cari:char;

procedure inputdata(n:integer; var t:tabinteger);
var

i:integer;

begin

for i:=1 to n do

begin

write ('nilai ke - ',i,' : ');

readln(t[i]);

end;

end;

procedure seqsearch(t :tabinteger; n,x :integer;var idx:integer);

var i:integer;

begin

i:=1;

found :=false;

while (i<=n) and (not found) do

begin

if t[i]=x then

found:=true

else

i:=i+1;

end;

if found then

idx:=i

else

idx:=0;

end;

begin

write('banyaknya integer : ');readln(jml_data);
inputdata(jml_data,tabint);
repeat
write('data yang akan dicari : ');readln(data);
seqsearch(tabint, jml_data,data,indeks);
if indeks=0 then
writeln('data tidak ditemukan')
else
writeln('data ditenukan pada posisi ke-',indeks);
write('cari data lagi (y/t) ? ');readln(cari);
until(cari='t')or (cari='T');

readln;

end.