合肥奥数网讯：信息学竞赛常用算法与策略：查找。

　　查找 是在数据结构中查找指定值的结点。

　　5.1 顺序查找

　　1.顺序查找的思想是是：

　　将查找值顺序逐个与结点值进行比较,相等即为查找成功,否则查找失败.

　　程序如下：

　　program sxcz;

　　const n=7;

　　type

　　arr=array[1..n] of integer;

　　var x1,i:integer;

　　a:arr;

　　b:boolean;

　　place:integer;

　　procedure search(r:arr;m,x:integer; var found:boolean;var p:integer);

　　begin

　　p:=1;found:=false;

　　while(p<=m) and not found do

　　if r[p]=x then found:=true else p:=p+1;

　　end;

　　begin

　　write('Enter array:');

　　for i:=1 to n do read(a[i]);

　　writeln;

　　write('Enter search data:');

　　read(x1);

　　search(a,n,x1,b,place);

　　if b then begin writeln('yes');writeln('Place of',x1:5,'is:',place); end

　　else writeln('no');

　　end.