Sequential Search
Salam, berikut ini diberikan contoh program menggunakan Sequential Search menggunakan bahasa pemrograman Pascal. Silhakan saudara coba coding menggunakan tools Free pascal. program pencarian_SequenctialSearch; uses crt; const Nmaks = 100; type larikInt = array[1..Nmaks] of integer; var L : larikint; i : integer; {indeks Larik} n : integer; {banyaknya elemen Larik used} x : integer; {nilai dicaari} idx : integer; procedure bacaLarik(var L:larikInt; n : integer); var i : integer; begin for i := 1 to n do begin write('Masukan nilai L[',i,']:'); readln(L[i]); end; end; procedure cetakLarik(L:larikInt; n : integer); var i : integer; begin for i := 1 to n do begin writeln(L[i]); end; ...