Program Sequential Search

            Program Searchingseq1;

            Uses Wincrt;

        const

                   Nmaks = 100;

            Type

                   Larikint = array [1..Nmaks] of integer;

            Var

                   l : larikint;

                   X,N : Integer;

                   Found : Boolean;

            Procedure isiarray(var L: larikint; N : integer);

            Var

                   K : integer;

            Begin

                   For k:= 1 to N do

                   Begin

                        Write (‘Masukkan data indeks ke-‘,k,’==>’);

                         Read (L[k]);

                   End;

        end;

            Procedure seqsearch (L: larikint; N,X: integer; var ketemu: boolean);

            Var

                   K : integer;

            Begin

                   K := 1;

                   While (k<N) and

                   (L[k]<>X) do

                   Begin

                        K := k + 1;

                        End;

                        If L[k]=X then

                        Ketemu := true

                        Else

                        Ketemu := false;

                   End;

            Begin

                   Write(‘Masukkan banyak data =’); read(N);

                    Isiarray (l,N);

                    Write(‘Masukkan data yang akan dicari =’); read(X);

                     Seqsearch(l,N,X,found);

                     If found then

                        Write(X,’ditemukan’)

                     Else

                        Write(X,’tidak ditemukan’);

            End.