Atividade de revisão

Prévia do material em texto

1. Algoritmo “ultimoDia” 
2. 
3. Função ultimoDia (mes: inteiro) :inteiro 
4. Var 
5. Inicio 
6. escolha mês 
7. caso 1,3,5,7,8,10,12 
8. retorne 31 
9. caso 2 
10. retorne 28 
11. caso 4,6,9,11 
12. retorne 30 
13. outrocaso 
14. escreval (“mes invalido!”) 
15. retorne 0 
16. fimescolha 
17. fimfuncao 
18. 
19. Var 
20. m: inteiro 
21. Inicio 
22. 
23. repita 
24. escreva (Digite um mês (1 a 12): “) 
25. leia(m) 
26. escreva (“O ultimo dia é “, ultimoDia(m)) 
27. ate (m = 0) 
28. 
29. Fimalgoritmo 
 
 
 
1. Algoritmo “fatoracao" 
2. Var 
3. n, d: inteiro 
4. 
5. Inicio 
6. 
7. escreva ( “Digite um numero: “) 
8. leia (n) 
9. 
10. d <- 2 
11. 
12. enquanto (n > 1) faca 
13. se (n mod d = 0) então 
14. escreval ( n:3, “ | ”, d:3) 
15. d < - n div d 
16. senão 
17. d < - d + 1 
18. fimse 
19. fimenquanto 
20. 
21. escreval (“ 1 | “) 
22. 
23. Fimalgoritmo 
 
1. Algoritmo “somaDias” 
2. 
3. tipo 
4. data = registro 
5. dia: inteiro 
6. mês: inteiro 
7. fimregistro 
8. 
9. Var 
10. D: data 
11. dias: inteiro 
12. 
13. 
14. funcao ultimoDia (mes: inteiro): inteiro 
15. inicio 
16. retorne 30 
17. fimfuncao 
18. 
19. Procedimento somaDias (n: inteiro) 
20. Var 
21. resto: inteiro 
22. inicio 
23. d.dia <- d.dia + n 
24. enquanto (d.dia > ultimoDia (d.mes)) então 
25. resto <- d.dia – d.dias mod ultimoDia (d.mes) 
26. d.dia <- d.dia mod ultimoDia(d.mes) 
27. d.mes <- d.mes +1 
28. se (d.mes = 13) então 
29. d.mes <- 1 
30. fimse 
31. fimenquanto 
32. 
33. Escreval (“Data atual: “, d.dia, “/”, d.mes) 
34. fimprocedimento 
35. 
36. 
37. Inicio 
38. escreval (Digite um dia: “) 
39. leia (d.dia) 
40. escreval (Digite um mes: “) 
41. leia (d.mes) 
42. escreval (Digite uma quantidade de dias: “) 
43. leia (dias) 
44. 
45. somaDias(dias) 
46. 
47. fimalgoritmo 
 
 
 
 
 
1. Algoritmo “registro” 
2. 
3. Const 
4. MAX = 30 
5. 
6. tipo 
7. contato = registro 
8. nome: caractere 
9. telefone: caractere 
10. fimregistro 
11. 
12. Var 
13. agenda: vetor (1..MAX) de contato 
14. opcao: inteiro 
15. 
16. Inicio 
17. 
18. repita 
19. escreval (“SUPER AGENDA 3000!!!”) 
20. escreval (“Escolha uma opção: “) 
21. escreval (“1 – Listar contatos “) 
22. escreval (“2 - Adicionar “) 
23. escreval (“3 - Alterar “) 
24. escreval (“4 - Excluir “) 
25. escreval (“5 - Sair “) 
26. leia(opcao) 
27. 
28. escolha opcao 
29. caso 1 
30. Listar() 
31. caso 2 
32. adicionar() 
33. caso 0 
34. interrompa 
35. outrocaso 
36. escreval (“Função inválida”) 
37. fimescolha 
38. ate (opcao = 0) 
39. 
40. Fimalgoritmo