Kali ini kita membahas tentang penggunaan metode serching pada Bahasa pemrograman Pascal. Penggunaan pascal tentunya sangat bermanfaat, apalagi saat kita ingin mencari data yang begitu banyak dengan cepat, tentunya kita tidak mencarinya dengan satu-satu kan? Itu pasti memerlukan waktu yang begitu lama dan melelahkan.
Pada program ini menggunakan array tentunya dan function untuk memasukkan nilai terlebih dahulu dan mencari nilai yang akan dicari. Jenis searching ada sequential search, binary search, extreme search dan masih ada lagi.
Untuk lebih jelasnya lagi bisa mencoba pada program dibawah ini :
==================================================================
uses crt;
label awal;
var pil,lg:char;
const nmin = 1;
nmax = 100;
type arrint = array [nmin..nmax] of integer;
var tabint : arrint;
x,n,i,indeks,max,min,maks : integer;
function seqsearch1(xx : integer): integer;
var i : integer;
begin
i := 1;
while ((i<n) and (tabint[i] <> xx)) do
i:=i+1;
if tabint[i] = xx then
seqsearch1:=i
else
seqsearch1:=0;
end;
function maksimum (tabint: arrint; n : integer) : integer;
var i, max : integer;
begin
for i:=2 to n do
if max<tabint[i] then
max:=tabint[i];
maksimum:=max;
end;
function minimum (tabint: arrint; n : integer) : integer;
var i, min : integer;
begin
for i:=1 to n do
if min>tabint[i] then
min:=tabint[i];
minimum:=min;
end;
begin
clrscr;
writeln('============SEARCHING==============');
writeln('===================================');
write('Masukkan Jumlah Data = '); readln(n);
Clrscr;
for i:=1 to n do
begin
write('Data ',i,' : '); readln(tabint[i]);
end;
writeln;
clrscr;
write ('Nilai yang dicari : '); readln(x);
indeks:=seqsearch1(x);
begin
clrscr;
if indeks <> 0 then
writeln('Hasil untuk nilai ',x,' ada di data ke-',indeks)
else
writeln('Nilai ',x,' tidak ditemukan');
end;
begin
writeln;
maks:=maksimum(tabint,n);
min:=minimum(tabint,n);
writeln('====================');
writeln('Nilai maksimum : ',maks);
writeln('Nilai minimum : ',min );
writeln('====================');
readkey;
end;
end.
