Logica_de_Programacao_3_Edicao_Livro

204 Lógica de programação
~
~
~
~
~
~
~
14. RegFunc: Auxl;
15. RegCod: Aux2;
16. inteiro: UltimoAno, ContReg, Cont;
17. abra (ArqFunc);
18. abra (Arqlnd);
19. UltimoAno O;
20. ContReg O;
21. enquanto não fda(ArqFunc) faça
22. copie (ArqFunc, Auxl);
23. avance (ArqFunc);
24. ContReg ContReg+l;
25. se (Auxl.AnoAdm <> UltimoAno)
26. então inicio
27. Cont 1;
28. UltimoAno Auxl.AnoAdm;
29. fim;
30. senão Cont Cont+l;
31. fimse;
32. Aux2.Posicao ContReg;
33. posicione (Arqlnd,(Aux l.AnoAdm*lOOO+Cont) -2001000);
34. guarde (Arqlnd,Aux2);
35. fimenquanto;
36. feche (ArqFunc};
37. feche (Arqlnd);
38. fim.
EXERCÍCIO 4 .2 (página 121)
1. inicio
2. tipo RegFunc = registro
3. caracter: Nome, Cargo, Ender, Bairro,
4. inteiro: CPF, Tel, Cep, NDep, AnoAdm,
5. real: Salario;
6. fimregistro;
7. tipo RegCod - registro
8. inteiro: Posição;
9. fimregistro;
10. tipo Funcionário= arquivo composto de RegFunc;
11. tipo Índice= arquivo composto de RegCod;
12. Funcionário: ArqFunc;
13. Índice: Arqlnd;
14. RegFunc: Auxl;
15. RegCod: Aux2;
16. inteiro: CodFunc;
17. caracter: Op;
18. abra (ArqFunc);
19. abra (Arqlnd);
20. leia (CodFunc);
21. posicione (Arqlnd, CodFunc - 2001000);
EstCi vi 1,
AnoDemis, Setor;
(Continua)