Algoritmo de Pesquisa de Nome:
Tabela de Nomes...
Vetor para Pesquisa
Vetor para Pesquisa em Maiúscula e sem Acentuação
Vetor para Pesquisa Abreviado (vet-pesq)
Mova nome-tabela para vetor-da-tabela.
Vetor da Tabela
Vetor da Tabela em Maiúscula e sem Acentuação
Vetor da Tabela Abreviado (vet-tab)
Mova 0 para ind-pesq, ind-tab e fs-ok-vet.
Chame a Procedure de Equiparação de Nomes... (vet-pesq, vet-tab)
Procedure de Equiparação de Nomes: (vet-pesq, vet-tab)
Add 1 to ind-pesq, ind-tab
Se (ind-pesq >= 5 or ind-tab >=5) and fs-ok-vet = 1
Display vetor-da-tabela na tela.
Fim do Se.
Se vet-pesq(ind-pesq) = vet-tab(ind-tab)
Chame a Procedure de Equiparação de Nomes (vet-pesq, vet-tab)
mova 1 to fs-ok-vet
Senão
mova 0 to fs-ok-vet
Fim do Se.
Se fs-ok-vet = 0
Display "Nenhum Registro Encontrado para Este Nome"
Fim do Se.
Fim da Procedure.
Fim do Algoritmo.
Autor: Eduardo Gomes
Data: 12/09/2025
| 
