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.

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

Program Lin_Ser; var a : array[1..5] of integer; 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 ke - ',jd,' :'); readln(a[jd]); end; write('Data yang akan dicari :'); readln(findvalue); i:=1; continue:=true; while (i <= jd) and continue do begin if(a[i] = findvalue) then begin 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; end.