home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / pl / linear.pl < prev    next >
Encoding:
Text File  |  1986-09-24  |  700 b   |  39 lines
  1. $ PL Program: Linear Search
  2. begin
  3.      const n = 10;
  4.      integer array A[n];
  5.      integer x,i;
  6.      Boolean found;
  7.  
  8.      proc Search
  9.      begin
  10.        integer m;
  11.        i,m:=1,n;
  12.        do i<m->
  13.          if
  14.              A[i] = x -> m:= i;
  15.              []
  16.            ~(a[I] = x ) -> i:= i + 1;
  17.          fi;
  18.        od;
  19.        found:= (a[i] = x);
  20.      end;    $ proc search
  21.  
  22.      $ Input Table:
  23.      i:= 1;
  24.      do
  25.        ~(i>n) -> read A[i]; i:= i + 1;
  26.      od;
  27.      $ test search:
  28.      read x;
  29.      do
  30.        ~(x = 0)->
  31.        call seARCH;
  32.        IF
  33.           FOUND -> WRITE X, I;
  34.           []
  35.          ~FOUND -> WRITE x;
  36.        fi;
  37.        read x;
  38.      od;
  39. end.