Logica_de_Programacao_3_Edicao_Livro

Anexo Resolução dos exercícios de fixação 1 207
33.
34.
35.
módulo MostraDados (caracter: nomeProcurado);
inteiro: I. Con;
36. Con f- O;
37. para Ide 1 até 100 faça
38.
39.
se (Dados[I].Nome = nomeProcurado)
então inicio
40.
41.
42. fim ;
43. fimse;
44. fimpara;
45. se (Con > O)
46.
47.
48.
49.
50.
51.
52.
53.
54.
55. fim.
escreva (Dados[I].Sexo. Dados[I].Idade);
Con f- Con + 1;
então escreva (''Quantidade de pessoas encontradas: ''• Con);
senão escreva (''Nenhuma pessoa registrada com este nome'');
fimse;
fimModulo;
li chamada dos módulos, os par metros são constantes de exemplo
LerDados;
CoincideDados (15. 63);
MostraDados (''Astrogilda'');
EXERCÍCIO 4. 1 (página 152)
1. módulo QtdDigitos (inteiro: Num);
2. inteiro: Cont;
3. Cont f- O;
4.
5.
enquanto (Num div pot(lO.Cont)) > O faça
Cont f- Cont+l;
6. fimenquanto;
7. retorne (Cont);
8. fi11111ódu 1 o;
EXERCÍCIO 4.2 (página 152)
1. módulo Inverso (inteiro: Num);
2. inteiro: Qtd. i. Invertido;
3. Invertido f- O;
4. Qtd f- QtdDigitos(Num)
5. parai de O até Qtd-1 faça
6. Invertido f- Invertido+
7.
8. fimpara;
9. retorne (Invertido);
10. fimModulo;
(((Num div pot(lO.i)) mod 10)*
(pot(lO.(Qtd-i-1))));
Note que nesse módulo foi utilizado outro rnódulo (QtdDi gi tos), definido no exercício
anterior.