Logica_de_Programacao_3_Edicao_Livro

Anexo Resolução dos exercícios de fixação 1 203
5. caracter: Nome, DataNasc, Sexo;
6. fimregistro;
7. tipo regCursos = registro
8. inteiro: Cod;
9. caracter: NomeCurso;
10. fimregistro;
11. // definição dos tipos arquivo
12. tipo arqCursos = arquivo composto de regCursos;
13. tipo faculdade= arquivo composto de aluno;
14. // variáveis de registro
15. aluno: dados;
16. regCurso: rCursos;
17. // variáveis de arquivo
18. faculdade: matriculas;
19. arqCurso: aCursos;
20. abra (matriculas);
21. abra (aCursos);
22. repita
23. copie (matriculas, dados);
24. se (dados.Sexo= ''M'')
25. então inicio
26. posicione (aCursos, dados.Curso)
27. copie (aCursos, rCurso)
28. escreva (dados.Nome);
29. escreva (rCurso.NomeCurso);
30. fim;
31. fimse;
32. avance (matriculas);
33. até (fda(matriculas));
34. feche (matriculas);
35. feche (aCursos};
36. fimpara;
37. fim.
ExERCÍCIO 4. 1 (página 121)
1. inicio
2. tipo RegFunc = registro
3. caracter: Nome, Cargo, Ender,
4. inteiro: Cpf, Tel, Cep, NDep,
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. Indice: - Arqlnd;
Bairro;
AnoAdm, AnoDemis;
(Cm1,ti11ua)