API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Apr 26th, 2017
185
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.08 KB | None | 0 0
raw download clone embed print report
  1. Algoritmo "APS"
  2. // Disciplina : Algoritmos II
  3. // Professor : André Cotelli
  4. // Descrição : Banco de Dados
  5. // Autor(a) : Davi Custodio Alves
  6. // Data atual : 08/03/2017
  7. //Questão 1) Faça um programa, utilizando o VisuALG,
  8. //que armazene 25 números em um vetor. O programa terá a
  9. //opção de adicionar, buscar, ordenar ou remover os dados.
  10. //O programa deverá ter as seguintes condições:
  11.  
  12. //ADICIONAR FEITO
  13. // EXIBIR FEITO
  14. // REMOVER FEITO
  15. // FALTA PESQUISAR E ORDENAR
  16. Var
  17. // Seção de Declarações das variáveis
  18. faixa: vetor[1..25] de inteiro
  19. opcao, ordem, op, sair, count, i, num: inteiro
  20. resp2, x: caractere
  21. ////////////////////////////////////////////////////////
  22. ////////////////////////////////////////////////////////ADICIONAR
  23. ////////////////////////////////////////////////////////
  24. procedimento adicionar
  25. inicio
  26.  
  27. sair <- 1
  28. escreval("|UNICARIOCA – BANCO DE DADOS|")
  29. escreval("|ADICIONAR ELEMENTO |")
  30. escreval("|Faixa 1 - Entre 1 e 20 |")
  31. escreval("|Faixa 2 - Entre 50 e 60 |")
  32. escreval("|Faixa 3 - Entre 100 e 120 |")
  33. escreval("|Número -1 para sair |")
  34. enquanto sair = 1 faca
  35. escreval
  36. escreva("NÚMERO: ")
  37. leia (num)
  38. se (num = -1 ) entao
  39. sair <- 0
  40. fimse
  41. se ((num <= 0) ou ((num >= 21) e (num <=49)) ou ((num >=61) e (num <=99)) ou ((num >= 121))) entao
  42. limpatela
  43. escreval
  44. escreval("Número inválido, tente novamente. ")
  45. escreval
  46. adicionar
  47. senao
  48. se (faixa[count] = 0) entao
  49. faixa[count] <- num
  50. count <- count + 1
  51. i <- i + 1
  52. senao
  53. escreval("Vetor Lotado!")
  54. fimse
  55. fimse
  56. se (num <> -1 ) entao
  57. escreval
  58. escreva("Deseja continuar adicionando elementos ?(S ou N):")
  59. leia(resp2)
  60. se resp2 = "n" entao
  61. sair <- 0
  62. fimse
  63. fimse
  64. fimenquanto
  65.  
  66. fimprocedimento
  67. ////////////////////////////////////////////////////////
  68. ////////////////////////////////////////////////////////PESQUISAR
  69. ////////////////////////////////////////////////////////
  70. procedimento pesquisar
  71. inicio
  72. escreval ("|[1] Pesquisa Sequencial|")
  73. escreval ("|[2] Pesquisa Binária |")
  74. escreval(" |[0] Voltar |")
  75. escreva (" Opção:")
  76. leia (op)
  77. escolha op
  78. caso 0
  79. escreval("Voltando ao Menu Principal...")
  80. leia(x)
  81. caso 1
  82. escreval("Informe o número que deseja procurar: ")
  83. leia(num)
  84. para count de 1 ate i faca
  85. se ( num = faixa[count] ) entao
  86. escreval(" O número está localizado no vetor[",count,"]")
  87. fimprocedimento
  88. ////////////////////////////////////////////////////////
  89. ////////////////////////////////////////////////////////ORDENAR
  90. ////////////////////////////////////////////////////////
  91. procedimento ordenar
  92. inicio
  93. escreval ("|[1] Ordernar por BubbleSort|")
  94. escreval ("|[2] |")
  95. escreval(" |[0] Voltar |")
  96. leia (op)
  97. escolha op
  98. caso 0
  99. escreval("Voltando ao Menu Principal...")
  100. leia(x)
  101. caso 1
  102. repita
  103. ordem <- 0
  104. para count de 1 ate i-1 faca
  105. se (faixa[count] > faixa[count+1]) entao
  106. faixa[count+1] <- faixa[count+1] + faixa[count]
  107. faixa[count] <- faixa[count+1] - faixa[count]
  108. faixa[count+1] <- faixa[count+1] - faixa[count]
  109. ordem <- 1
  110. fimse
  111. fimpara
  112. ate ordem = 0
  113. outrocaso
  114. escreval("Opção inválida!!")
  115. leia(x)
  116. fimescolha
  117. escreval("Ordenando pelo método BubbleSort...")
  118. leia(x)
  119. escreval("Faixas ordenadas com sucesso!")
  120. leia(x)
  121. fimprocedimento
  122. ////////////////////////////////////////////////////////
  123. ////////////////////////////////////////////////////////REMOVER
  124. ////////////////////////////////////////////////////////
  125. procedimento remover
  126. inicio
  127. escreval ("|[1] Remover todos os elementos|")
  128. escreval ("|[2] Remover um único elemento |")
  129. escreval ("|[0] Voltar |")
  130. escreva (" Opção:")
  131. leia (op)
  132. escolha op
  133. caso 0
  134. escreval("Voltando ao Menu Principal...")
  135. leia(x)
  136. caso 1
  137. para count de 1 ate i faca
  138. faixa[count] <- 0
  139. fimpara
  140. escreval("Todos elementos foram removidos")
  141. caso 2
  142. escreval
  143. Escreva ("Informe o número do elemento: ")
  144. leia (num)
  145. para count de 1 ate i faca
  146. se (faixa[count] = num) entao
  147. faixa[count] <- 0
  148. escreval("Elemento no vetor[",count,"] foi removido.")
  149. fimse
  150. fimpara
  151. i <- i - 1
  152. escreval("Reajustando posições dos elementos...")
  153. leia(x)
  154. para count de 1 ate i faca
  155. se (( faixa[count] = 0 ) e ( faixa[count+1] <> 0 )) entao
  156. faixa[count] <- faixa[count+1]
  157. faixa[count+1] <- 0
  158. fimse
  159. fimpara
  160. outrocaso
  161. escreval("Opção inválida!!")
  162. leia(x)
  163. fimescolha
  164. fimprocedimento
  165. ////////////////////////////////////////////////////////
  166. ////////////////////////////////////////////////////////EXIBIR
  167. ////////////////////////////////////////////////////////
  168. procedimento exibir
  169. inicio
  170. escreval("|UNICARIOCA – BANCO DE DADOS|")
  171. escreval("|EXIBIR VETOR |")
  172. escreval("|[1] Faixa A |")
  173. escreval("|[2] Faixa B |")
  174. escreval("|[3] Faixa C |")
  175. escreval("|[4] Todos |")
  176. escreval("|[0] Voltar |")
  177. escreva(" Opção: ")
  178. leia (op)
  179. escolha op
  180. caso 0
  181. escreval("Voltando ao Menu Principal...")
  182. leia(x)
  183. caso 1
  184. escreval
  185. escreval ("|ELEMENTOS NA FAIXA A|")
  186. para count de 1 ate i faca
  187. se ((faixa[count] >= 1) e (faixa[count] <=20)) entao
  188. escreval ("No vetor [",count," ] elemento:",faixa[count])
  189. fimse
  190. fimpara
  191. escreval("Voltando ao Menu Principal...")
  192. leia(x)
  193. caso 2
  194. escreval
  195. escreval ("|ELEMENTOS NA FAIXA B|")
  196. para count de 1 ate i faca
  197. se ((faixa[count] >= 50) e (faixa[count] <=60)) entao
  198. escreval("Vetor [",count," ]elemento:",faixa[count])
  199. fimse
  200. fimpara
  201. escreval("Voltando ao Menu Principal...")
  202. leia(x)
  203. caso 3
  204. escreval
  205. escreval ("|ELEMENTOS NA FAIXA C|")
  206. para count de 1 ate i faca
  207. se ((faixa[count] >= 100) e (faixa[count] <=120)) entao
  208. escreval ("No vetor [",count," ] elemento:",faixa[count])
  209. fimse
  210. fimpara
  211. escreval("Voltando ao Menu Principal...")
  212. leia(x)
  213. caso 4
  214. escreval
  215. escreval ("|ELEMENTOS EM TODAS AS FAIXAS|")
  216. para count de 1 ate i faca
  217. escreval ("No vetor [",count," ] elemento:",faixa[count])
  218. fimpara
  219. escreval("Voltando ao Menu Principal...")
  220. leia(x)
  221. outrocaso
  222. escreval("Opção inválida!!")
  223. leia(x)
  224. fimescolha
  225. fimprocedimento
  226. ////////////////////////////////////////////////////////
  227. ////////////////////////////////////////////////////////INICIO
  228. ////////////////////////////////////////////////////////
  229. Inicio
  230. count <- 1
  231. opcao <- 1
  232. repita
  233. limpatela
  234. escreval("UNICARIOCA – BANCO DE DADOS")
  235. escreval("[1] Adicionar")
  236. escreval("[2] Pesquisar")
  237. escreval("[3] Ordenar")
  238. escreval("[4] Remover")
  239. escreval("[5] Exibir")
  240. escreval("[0] Sair")
  241. escreva(" Opção: ")
  242. leia (opcao)
  243.  
  244. escolha opcao
  245. caso 0
  246. escreval ("Fechando o Banco de Dados...")
  247. interrompa
  248. caso 1
  249. limpatela
  250. adicionar
  251. caso 2
  252. limpatela
  253. pesquisar
  254. caso 3
  255. limpatela
  256. ordenar
  257. caso 4
  258. limpatela
  259. remover
  260. caso 5
  261. limpatela
  262. exibir
  263. outrocaso
  264. escreval("Opção inválida!!")
  265. leia(x)
  266. fimescolha
  267. ate(opcao = 0)
  268.  
  269.  
  270.  
  271.  
  272.  
  273. Fimalgoritmo
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!