Apa sih Sequential Search ? adalah membandingkan nilai yang dicari (didefinisikan) dengan setiap elemen array, ketika mencari akan mengulang pencarian sesuai nilai yang ada,
pola : bila ada 10 nilai maka akan mengulang selama 10 kali
mulai dari Indeks terkecil hingga Indeks terbesar yang terdefinisi.
Seperti ini Contoh Programnya :
jadwal sequential_search;
uses crt;
label awal;
var pil:char;
lg :char;
const
nmin = 1;
nmax = 100;
type
arrint = array [nmin..nmax] of integer;
var
x : integer;
tabint : arrint;
n,i : integer;
indeks : integer;
function seqsearch1(xx : integer): integer;
var i : integer;
begin
i := 1;
while ((i<> xx)) do
i:=i+1;
if tabint[i] = xx then
seqsearch1:=i;
else
seqsearch1:=0;
end;
begin
clrscr;
write('input nilai n = '); readln(n);
writeln;
text-align: left;"> for i:=1 to n do
begin
write('Tabint[',i,'] = '); readln(tabint[i]);
end;
write('Nilai yang dicari = '); readln(x);
writeln;
indeks:=seqsearch1(x);
if indeks <> 0 then
write(x,' ditemukan pada indeks ke-',indeks)
else
write(x,' tidak ditemukan');
writeln;
writeln;
readln;
end.
uses crt;
label awal;
var pil:char;
lg :char;
const
nmin = 1;
nmax = 100;
type
arrint = array [nmin..nmax] of integer;
var
x : integer;
tabint : arrint;
n,i : integer;
indeks : integer;
function seqsearch1(xx : integer): integer;
var i : integer;
begin
i := 1;
while ((i<> xx)) do
i:=i+1;
if tabint[i] = xx then
seqsearch1:=i;
else
seqsearch1:=0;
end;
begin
clrscr;
write('input nilai n = '); readln(n);
writeln;
text-align: left;"> for i:=1 to n do
begin
write('Tabint[',i,'] = '); readln(tabint[i]);
end;
write('Nilai yang dicari = '); readln(x);
writeln;
indeks:=seqsearch1(x);
if indeks <> 0 then
write(x,' ditemukan pada indeks ke-',indeks)
else
write(x,' tidak ditemukan');
writeln;
writeln;
readln;
end.
Setelah di isi kodingnya kemudian pilih Run, kemudian tekan Ctrl+F9
Isikan semuanya...
dan alhasil :
Jika terjadi kesalahan dalam program, mohon Comment di artikel ini atau Contact ke admin biar sanggup admin perbaiki
Hanya itu saja yang sanggup aku bagi perihal "Sequential Search" mungkin anda sanggup mengembangi lagi
Terima kasih sudah membaca ^_^ semoga bermanfaat untuk anda.
Tag
jadwal sequential search,
sequential search,
sequential searching,
sequential search pada pascal,
pascal,
pemprograman pascal,
array,
menghitung array pada pascal,