Tömb feltöltése véletlen számokkal, elrendezése, majd egy bekért szám keresése a tömbben szekvenciális kereséssel, eljárások használatával (SzekvencialisKereses.pas) program SzekvencialisKereses; uses crt; var i,j,n,sz,x,t:integer; a:array [1..100] of integer; procedure tombfeltoltes; begin i:=1; write('Hany db szam legyen a tombben? '); readln(n); while (i<=n) do begin a[i]:=trunc(90*random+1); i:=i+1; end; writeln('A szamok rendezes elott:'); i:=1; while (i<=n) do begin writeln('A tomb ',i,'. eleme: ',a[i]); i:=i+1; end; end; procedure rendezes; Legkisebb alapján történő rendezéssel elrendezzük a tömb elemeit. begin i:=1; while(i<n) do begin j:=i+1; while (j<=n) do begin if (a[j]<a[i]) then begin x:=a[j]; a[j]:=a[i]; a[i]:=x; end; j:=j+1; end; i:=i+1; end; writeln('A szamok rendezes utan:'); i:=1; while (i<=n) do begin writeln('A tomb ',i,'. eleme: ',a[i]); i:=i+1; end; end; procedure kereses; begin write('A keresett szam: '); readln(sz); Bekérjük a keresett számot. t:=0; t = találatok száma, melyet kezdetben 0-ra állítunk i:=1; while (i<=n) do begin if (sz<a[i]) then break; Mivel rendezett tömbről van szó, ezért megvizsgáljuk, hogy a tömb aktuálisan vizsgált eleme nagyobb e, mint a keresendő szám. Ha igen, akkor a további vizsgálat fölösleges, ezért break-el megszakítjuk a további vizsgálódást. if (sz=a[i]) then begin Ha az előbbi feltétel nem teljesül, azaz az aktuálisan vizsgált tömb elem kisebb, vagy egyenlő mint a keresett szám, akkor megvizsgáljuk, hogy van e egyezés. Ha van, kiírjuk a találat indexét és a találatok számát növeljük eggyel. t:=t+1; writeln('A talalat a sorozat ',i,'. eleme'); end; i:=i+1; end; writeln('A talalatok szama: ',t); end; BEGIN clrscr; tombfeltoltes; rendezes; kereses; readkey; END.