Logica_de_Programacao_3_Edicao_Livro

120 1 Lógíco de progromoção
FIGURA 5.7
Relação entre o arquivo principal e seu arquivo de índice
Código
Posição
Nome
Endereço
.....
Cargo
1 2.001.001 2
1
xxw
TRGU
•••
ERIUY
2 2.001.002 3
2
HJU
DLLD
•••
YUYUJ
3 2.001.003 m
3
KJU
LOIO
•••
FDSYT
4 2 .001.004 1
4
ZUH
DEFS
• • •
UYTOP
5 2.001.005 4
5
FSW
SWQA
•••
PLMZM
• • •
•
•
•
•
• • •
•
•
•
•
•
• • •
•
•
•
•
•
n ttttttt 5
m
KFK
FJSD
•••
YTEGI
\Tejarnos, tarnbén1, como fica1ia um acesso indexado ao arquivo p1incipal:
ALGORITMO 5. 11
Acesso indexado ao arquivo seqüencial
1. inicio
2. tipo regFunc = registro
3. caracter: nome, cargo, ender, bairro,
4. dtAdmissão, dtDemissão, estCivil;
5. inteiro: CPF, tel, cep, nDep, CP, setor;
6. real: sal;
7. fimregistro;
8. tipo regCod - registro
9. inteiro: posição;
10. fimregistro;
11. tipo funcionário= arquivo composto de regFunc;
12. tipo código= arquivo composto de regCod;
13. funcionário: cadFunc;
14. código: arqCod;
15. regFunc: auxl;
16. regCod: aux2;
17. inteiro: codProcurado;
18. abra (cadFunc);
19. abra (arqCod};
20. leia (codProcurado};
21. se (codProcurado <= 2001000)
22. então escreva ("Código inválido");
23. senão início
24. posicione (arqCod, CodProcurado - 2001000); (Continua)