Contoh program pascal dengan menggunakan konsep pencarian beruntun, dan beberapa keterangan di dalamnya, semoga bisa mudah dipahami buat yang baru pemla dibidang programming dan algoritma ..
program PencarianBeruntun; (*nama
program=pencarian beruntun, tanda titik koma (;) merupakan pemisah antar
instruksi satu dengan lainnya*)
uses crt; (*untuk
mengaktifkan kerja clrscr dan readkey*)
var x,n,i,idx: integer; (*var=
deklarasi variabel, x=angka yang akan dicari letaknya dalam larik, n=jumlah elemen
larik, i= indeks ke-i , idx= posisi angka pada elemen ke berapa,
integer=bilangan bulat*)
A : array[1..100] of integer; (*array merupakan deretan suatu variabel yang bertipe data sama*)
clrscr; (*membersihkan
tampilan awal layar*)
write (‘berapa
data? ‘); readln (n); (*write untuk mencetak output tulisan ke layar, readln
untuk memasukkan/membaca input data perbaris*)
for i:=1 to n do
read (A[i]); (*A[i] = nilai di dalam indeks ke-i*)
writeln ('berapa
angka yang dicari? '); readln (x);
i:=1; (* inisiasi nilai
i=1 *)
while
(i<n) and (A[i]<>x) do
i:=i+1;
if A[i]=x then
idx:=i (* letak
posisi angka ditemukan pada indeks ke-i *)
else (*jika
A[i] tidak sama dengan i, maka: *)
idx:=-1; (*letak
posisi angka tidak ada dalam indeks, maka diisikan dengan -1 *)
write('angka
',x,'terletak di ',idx);
readln; (*readln
digunakan untuk memasukkan data perbaris*)
end.
