Engª Mecânica, Engª Manutenção Industrial e Engª Mecânica de Transportes

Introdução à Computação e Métodos Numéricos

Algoritmo de pesquisa linear.

Vamos iterativamente pesquisar o vector até encontrar o valor. Se existir mais do que um valor igual, o algoritmo detecta o de menor índice.

Program PesquisaLinear;

Const n=5;

Var i, x:Integer;

v:Array[1..n] Of Integer;

Begin

{Armazenar n elementos inteiros num vector}

For i:=1 To n Do Begin

Write('V[',i,']= ');

ReadLn(v[i]);

End;

{Qual o valor a procurar}

Write('Valor= ');

ReadLn(x);

{...}

i:=1;

While (v[i]<>x) And (i<n) Do i:=i+1;

If v[i]=x Then WriteLn('O valor ',x,' foi encontrado na ',i,'ª posição')

Else WriteLn('O valor ',x,' não foi encontrado');

End.

Comentários para: Nuno Castro