Program Sequential Search Pada Pascal

Pemprograman Pascal mengenai Searching(pencarian) Sequential Search berdasarkan inputan data...

Apa sih Sequential Search ? yaitu membandingkan nilai yang dicari (didefinisikan) dengan setiap elemen array, saat mencari akan mengulang pencarian sesuai nilai yang ada,

contoh : jika ada 10 nilai maka akan mengulang selama 10 kali

mulai dari Indeks terkecil sampai Indeks terbesar yang terdefinisi.

Seperti ini Contoh Programnya :

program 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;

  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, lalu tekan Ctrl+F9

Isikan semuanya...

dan hasilnya :

Jika terjadi kesalahan dalam program, mohon Comment di artikel ini atau Contact ke admin agar bisa admin perbaiki

Hanya itu saja yang dapat saya bagi tentang "Sequential Search" mungkin anda bisa mengembangi lagi

Terima kasih sudah membaca ^_^ semoga bermanfaat untuk anda.

Tag

program sequential search,

sequential search,

sequential searching,

sequential search pada pascal,

pascal,

pemprograman pascal,

array,

menghitung array pada pascal,

Tweet

Penanti Bell Pulang

http://www.tutorialumum.com/

Subscribe to receive free email updates: