Membuat Program Linear Search dengan pascal

Membuat Program Linear Search dengan pascal - Linear search adalah program search yang paling sederhana dan mudah dipahami, linear search memiliki kelebihan apa bila data yang di cari letaknya pada data - data awal sehingga prosesnya berjalan cepat. namun buble search mempunyai kelemahan apabila data yang di cari letaknya pada data terakhir maka dalam penggunaan waktu dalam proses pencarian akan berjalan lama. hal ini di sebabkan karna ia mecari dengan cara membandingakan dengan sebelahnya dan selanjutnya sampai data terakhir, sehingga jika jumlah data mencapai ribuan atau jutaan akan memerlukan waktu yang lama.

Baca juga : Program Sederhana Pascal Untuk Sort Angaka ( Ascending )

untuk lebih jelasnya lebih baik teman - teman prkatekan sendiri, untuk sriptnya lihat di bawah :

Program Lin_Ser;

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

var

i,jd, findvalue,n : integer;

continue : boolean;

begin

write('Berapa jumlah data yang akan di cari = '); readln(n);

writeln('Masukan data yang di input :');
for jd:=1 to n do
    begin

write('Data yang akan dicari :');

write('Data ke - ',jd,' :');
        readln(a[jd]);
    end;

    readln(findvalue);

    i:=1;

if(a[i] = findvalue) then

continue:=true;
    while (i <= jd) and continue do
          begin

          begin

end;

writeln('Data ditemukan pada data ke - ',i);
          continue := false;
          end;
          i:=i+1;

end.

if continue = true then
       begin
       writeln('Data tidak ditemukan');
       end;

readln;

Program Linear Search dengan pascal anda sekarang sudah selesai, baca juga tutorial program pascal lainnya.