//
archives

Pascal

This category contains 1 post

Algoritma Pencarian dengan Bahasa Pascal


Mata Kuliah: Algoritma dan Pemrograman II

Sedikit berbagi saja, meskipun ini merupakan program yang sederhana, semoga tulisan ini bermanfaat bagi siapa saja yang membacanya. Pencarian merupakan sesuatu yang bersifat fundamental dalam sebuah pemrosesan data. Proses pencarian adalah menemukan sebuah data tertentu yang bertipe sama. Berikut adalah Algoritma Pencarian sederhana yang dibuat dengan bahasa Pascal.

Sequential Search
Pada dasarnya, algoritma pencarian ini adalah proses membandingkan setiap elemen larik satu per satu secara beruntun sampai seluruh elemen diperiksa.

program pencarian;

uses crt;

procedure seq_search;

var

L: array[1..5] of integer;

bil,i: integer;

begin

write(‘Angka yang dicari= ‘); readln(bil);

L[1]:=1; L[2]:=3; L[3]:=5; L[4]:=7; L[5]:= 9;

i:=1;

while (i<5) and (L[i] <> bil) do begin

i:=i+1;

end;

if (L[i]=bil) then

writeln(‘Ditemukan pada elemen larik ke-‘,i)

else

writeln(‘Tidak ditemukan!’);

end;

begin

clrscr;

seq_search;

readkey;

end.

Dari program di atas, diasumsikan bahwa nilai dari larik-larik telah didefinisikan. Adapun nantinya nilai tersebut dapat kita masukan jumlah nilai dan nilai lariknya. Hasilnya adalah

Binary Search
Algoritma ini digunakan untuk kebutuhan pencarian dengan waktu cepat.

program pencarian;

uses crt;

procedure binary_search;

var

L: array[1..10] of integer;

bil,i,j,k: integer;

ketemu: boolean;

begin

write(‘Angka yang dicari= ‘); readln(bil);

L[1]:=1; L[2]:=3; L[3]:=5; L[4]:=7; L[5]:= 9;

L[6]:=11; L[7]:=13; L[8]:=15; L[9]:=17; L[10]:=19;

ketemu:=FALSE;

i:=1;

j:=10;

while (i<=j) and (not ketemu) do begin

k:=(i+j) div 2;

if (L[k]=bil) then

ketemu:=TRUE

else if (L[k]>bil) then

j:=k-1

else

i:=k+1;

end;

if ketemu then

writeln(‘Ditemukan!’)

else

writeln(‘Tidak ditemukan!’);

end;

begin

clrscr;

binary_search;

readkey;

end.

Dari program diatas diasumsikan bahwa data telah terurut secara menaik, karena untuk algoritma ini data yang akan dicari harus terurut. Hasilnya adalah

%d blogger menyukai ini: