BuscaSequencial_Tabulada

Prévia do material em texto

1. 
2. 
3. 
4. 
5. 
6. 
7. 
8. 
9. 
10. 
11. 
12. 
13. 
14. 
15. 
16. 
17. 
18. 
19. 
20. 
21. 
22. 
23. 
24. 
25. 
26. 
27. 
28. 
29. 
30. 
31. 
32. 
33. 
34. 
35. 
36. 
37. 
38. 
39. 
40. 
algoritmo "BuscaSequencial_Tabulada" 
// Faculdade IESPLAN 
// Curso de Engenharia Civil 
// Disciplina: Métodos Computacionais 
// Autor : Prof. EOLISSES F. LEOPOLDINO 
// Data : 10/06/2012 
var 
 nr, casa, i, j, NrVezesQueAparece: inteiro 
 matriz : vetor[1..450] de inteiro 
 endereco : vetor[1..10] de inteiro 
 //-----------------------------------> função de busca binária 
 funcao BuscarPosicao(nr : inteiro): inteiro 
 var 
 aux, x, i: inteiro 
 inicio 
 x <- 0 
 para i de 1 ate 450 faca 
 aux <- matriz[i] 
 se (aux = nr) entao 
 x <- x + 1 
 endereco[x] <- i 
 fimse 
 fimpara 
 retorne x 
 fimfuncao 
 //------------------------------------- 
inicio 
 //---------------------> loop para entrada dos números 
 para i de 1 ate 450 faca 
 matriz[i] <- randi(500) 
//------------------> Controla a disposição dos números 
 se (i < 450) entao 
 se (j > 4) entao 
 se i < 10 entao 
 escreval("[ ", i, "]->", matriz[i]) 
 senao 
 se i < 100 entao 
 escreval("[ ", i, "]->", matriz[i]) 
 senao 
 escreval("[", i, "]->", matriz[i]) 
41. 
42. 
43. 
44. 
45. 
46. 
47. 
48. 
49. 
50. 
51. 
52. 
53. 
54. 
55. 
56. 
57. 
58. 
59. 
60. 
61. 
62. 
63. 
64. 
65. 
66. 
67. 
68. 
69. 
70. 
71. 
72. 
73. 
74. 
75. 
76. 
77. 
78. 
79. 
80. 
 fimse 
 fimse 
 j <- 0 
 senao 
 se i < 10 entao 
 se matriz[i] < 10 entao 
 escreva("[ ", i, " ]->", matriz[i]," - ") 
 senao 
 se matriz[i] < 100 entao 
 escreva("[ ", i, " ]->", matriz[i]," - ") 
 senao 
 escreva("[ ", i, " ]->", matriz[i]," - ") 
 fimse 
 fimse 
 senao 
 se i < 100 entao 
 se matriz[i] < 10 entao 
 escreva("[ ", i, " ]->", matriz[i]," - ") 
 senao 
 se matriz[i] < 100 entao 
 escreva("[ ", i, " ]->", matriz[i]," - ") 
 senao 
 escreva("[ ", i, " ]->", matriz[i]," - ") 
 fimse 
 fimse 
 senao 
 se matriz[i] < 10 entao 
 escreva("[", i, " ]->", matriz[i]," - ") 
 senao 
 se matriz[i] < 100 entao 
 escreva("[", i, " ]->", matriz[i]," - ") 
 senao 
 escreva("[", i, " ]->", matriz[i]," - ") 
 fimse 
 fimse 
 fimse 
 fimse 
 fimse 
 fimse 
 j <- j + 1 
81. 
82. 
83. 
84. 
85. 
86. 
87. 
88. 
89. 
90. 
91. 
92. 
93. 
94. 
95. 
96. 
97. 
98. 
99. 
100. 
101. 
102. 
103. 
 
 fimpara 
 //---------------------- 
 escreval("") 
 escreval("") 
 escreval("O Sistema gerou 500 números aleatórios. Agora escolha") 
 escreva("um número inteiro entre 500 números gerados:=> ") 
 leia(nr) 
 //----------------------> chama a função BuscarNr() para encontrar a posição 
 //----------------------> do número dentro do vetor 
 escreval("") 
 escreval("") 
 //----------------------> invoca a função BuscarPosicao() e exibe o resultado 
 NrVezesQueAparece <- BuscarPosicao(nr) 
 //----------------------> lê os endereços armazenados no vetor "enderecos[]" 
 escreval("O nr ", nr, " aparece em ", NrVezesQueAparece, " endereço(s):") 
 escreval("") 
 para i de 1 ate NrVezesQueAparece faca 
 escreval("*** Casa nr ", endereco[i]) 
 fimpara 
 //----------------------- 
 escreva("") 
 escreva("") 
fimalgoritmo