Logica_de_Programacao_3_Edicao_Livro

206 Lógíca de programação
7. fimse;
8. se (B<A) e (A<C)
9. então escreva
10. fimse;
11. se (B<C) e (C<A)
12. então escreva
13. fimse;
14. se (C<A) e (A<B)
15. então escreva
16. fimse;
17. se (C<B) e (B<A)
18. então escreva
19. fimse;
20. fi11111ódulo;
(B,A,C);
(B,C,A);
(C,A,B);
(C,B,A);
EXERCÍCIO 3.2 (página 148)
1. inicio
2. tipo regDados = registro
3.
4.
inteiro: Ida de, RG;
caracter: Nome, Sexo;
5. real: Altura;
6. fimregistro;
7. tipo vetDados = vetor [1.. 100] de regDados;
8. vetDados: Dados;
9.
10. módulo LerDados;
11. inteiro: I; // variável local, índice do vetor
12. para Ide 1 até 100 passo 1 faça
13. // acesso a variável composta global Dados
14. leia (Dados[I].Idade, Dados[!] .RG, Dados[I] .Nome);
15. leia (Dados[l].Sexo, Dados[l].Altura);
16. fimpara;
17. fimModulo;
18.
19. módulo CoincideDados (inteiro: 1, J);
20. se (Dados[I].Nome = Dados[J].Nome)
21. então escreva (''Coincide o nome: '',Dados[I] .Nome);
22. fimse;
23. se (Dados[!] .Altura= Dados[J].Altura)
24. então escreva ("Coincide o altura: ",Dados[!] .Altura);
25. fimse;
26. se (Dados[I].Sexo = Dados[J].Sexo)
27. então escreva (''Coincide o sexo: '' ,Dados[I] .Sexo);
28. fimse;
29. se (Dados[I].Idade = Dados[J] .Idade)
30. então escreva (''Coincide a idade: '',Dados[I].Idade);
31.
32.
fimse;
fimModulo;
(Cm1,ti11ua)