Шпоры по МПиПА / Массивы / Поиск / Линейный поиск / Pascal / Исходник / linear_Search

Program search;
const
max = 10000;
type myArray = array[0..max] of integer;
var dimension, element, i : integer;
arr : myArray;

function linearSearch( var arr : myArray; var element : integer; const length : integer ) : integer;
var i : integer;
begin
i := 0;
while ( (i < length) and (arr[i] <> element) ) do i := i+1;
if i < length then linearSearch := i
else linearSearch := -1;
end;

begin
writeln('Linear search.');
write('Enter array dimension: '); readln( dimension );
write('Enter '); write( dimension ); write(' elements: ');
for i := 0 to dimension-1 do
read(arr[i]);
write('Enter searching element: '); readln( element );
write('Position of element '); write( element ); write(' is '); writeln( linearSearch( arr,element, dimension ) );
writeln('Press any key to continue...');
readln;
end.