Logica_de_Programacao_3_Edicao_Livro

202 Lógíco de progromoção
16.
17.
para J de 1 até 5 faça li á varia entre os membros da equipe
leia {equipe[I,J]); li ler numero do membro da equipe
18. fimpara;
19. fimpara;
20. abra (diario);
21. para Ide 1 até 8 faça li á varia de equipe em equipe
22. MediaEq f- O;
23. para J de 1 até 5 faça li á varia entre os membros da equipe
24. posicione (diario, equipe[I,J]);
25. copie (diario, dados);
26. Medialnd f- {dados.Nl + dados.N2 + dados.N3 + dados.N4)l4;
27. MediaEq f- MediaEq + Medialnd; li somar as medias dos membros
28. fimpara;
29. MediaEq f- MediaEqlS; li calcular a média da equipe
30. escreva (''Média da equipe'', I, '' = '', MediaEq);
31. fimpara;
32. feche (diario);
33. fim.
EXERCÍCIO 3. 1 (página 118)
1. inicio
2. tipo aluno= registro
3. inteiro: RG, Mat, Curso;
4. caracter: Nome, DataNasc, Sexo;
5. fimregistro;
6. tipo faculdade= arquivo composto de aluno;
7. aluno: dados; li variável de registro
8. faculdade: matriculas; li variável de arquivo
9. inteiro: l istarCurso;
10 . para listarCurso de 1 até 3 passo 1 faça
11. escreva (''Alunos do curso'', listarCurso);
12. abra (matriculas);
13. repita
14. copie (matriculas, dados);
15 . se (dados.Curso= listarCurso)
16. então escreva (dados.Nome);
17. fimse;
18. avance (matriculas);
19. até (fda(matriculas));
20. feche (matriculas);
21. fimpara;
22. fim.
ExERCÍCIO 3.2 (página 118)
1. inicio
2. li definição dos tipos registro
3. tipo aluno= registro
4. inteiro: RG, Mat, Curso;
(Couli,uu1)