Lógica De Programação

Faça um algoritmo que leia 20 nomes e que seja possível efetuar uma pesquisa nesse vetor.

Nesse processo uma variável auxiliar, que nesse caso é a n, recebe temporariamente o conteúdo da variável nome [i] , ficando assim, disponível para armazenar o conteúdo da variável nome [j] , que passa a guardar o conteúdo da variável auxiliar n. Dessa forma a variável nome [i], passa a ter o conteúdo de nome [j] , e essa passa a ter o conteúdo de nome [i].

Após o término do longo processo de ordenação, os elementos já ordenados em ordem alfabética são exibidos na tela.

Program pag 120 ex 3 ;

var

nome: array[1..20] of string;

i : integer;

j : integer;

fim : integer;

meio : integer;

inicio : integer;

resposta : string;

n : string;

pesquisa : string;

situacao: Boolean;

Begin

for i := 1 to 20 do

begin

writeln('Digite um nome: ');

readln(nome[i]);

end;

for i := 1 to 19 do

begin

for j := i+1 to 20 do

begin

if (nome[i] > nome[j]) then

begin

n:=nome[i];

nome[i]:=nome[j];

nome[j]:=n;

end;

end;

end;

resposta:='sim';

while (resposta='sim') do

begin

write('Nome a ser localizado: ');

readln(pesquisa);

inicio:=1;

fim:=20;

situacao:=false;

while (inicio<=fim) and (situacao=false) do

begin

meio:=(inicio+fim) div 2;

if (pesquisa=nome[meio]) then

begin

situacao:=true

end

else

begin

if (pesquisa < nome[meio]) then

begin

fim:=meio-1

end