//
you're reading...
Arsip Kuliah, Pascal, Pemrograman

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

Iklan

About Rendy Faqot

Adalah Sarjana Komputer dari jurusan Ilmu Komputer Universitas Pendidikan Indonesia 2008. Menyelesaikan studi selama 5 tahun yang penuh dengan lika-liku kehidupan mahasiswa sebagaimana mahasiswa normal pada umumnya. Tertarik dengan bidang Data Mining, Natural Language Processing, dan Mobile Development. InsyaAllah, mohon doa-nya agar bisa melanjutkan studi master untuk bidang tersebut. Pernah mencicipi dunia industri sebagai Analyst Programmer di Fujitsu Indonesia dan PT. BSP. Saat ini berdomisili di Bandung dan akan melanjutkan kehidupan di Bandung (untuk sementara).

Diskusi

3 thoughts on “Algoritma Pencarian dengan Bahasa Pascal

  1. Terima kasih ya,
    minta izin copy buat soal…

    Posted by yaqin | 17 November 2010, 16:43

Trackbacks/Pingbacks

  1. Ping-balik: 2010 in review « Coretan Rendy Faqot - 3 Januari 2011

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: