adicionando novo valor em um array visualg

[bigpumao 1]

Olá, gostaria de saber como faço para add mais um valor no array, tanto do tipo inteiro quanto do tipo caracter

 

Alguém ai ?

[KhaosDoctor 242]

Que array? Manda um pedaço do seu código.

[bigpumao 1]

algoritmo "semnome"
// Função :
// Autor :
// Data : 06/03/2015
// Seção de Declarações
var
item , compra: vetor[1..4] de caracter
valorCompra, valor: vetor[1..4] de real


resultado : real
contador ,opcao : inteiro

menu : caracter
inicio
// Seção de Comandos
menu <- "s"
enquanto menu = "s" faca
   escreval("######### MENU #########")
   escreval("1) Cadastrar Itens     #")
   escreval("2) Listar Itens        #")
   escreval("3) Comprar produtos    #")
   escreval("4) Valores das compras #")
   escreval("5) Finalizando Compra  #")
   escreval("########################")
   escreval("Digite uma opção")
   leia(opcao)

   escolha opcao
      enquanto menu = "s" faca
      caso 1

         para contador de 1 ate 4 faca
            limpatela
            escreval ("Digite o nome do item n°" , contador)
            leia(item[contador])
            escreval ("Valor do produto " , item[contador])
            leia(valor[contador])
            limpatela

         fimpara
         limpatela
         escreval("Cadastrado com sucesso voltar ao menu? S/N")

         leia(menu)
         limpatela
      caso 2
         limpatela
         escreval("Itens cadastrados")
         escreval("")
         para contador de 1 ate 4 faca
            escreval (item[contador]:3 , " " , " R$ " , valor[contador] )

         fimpara
         escreval("")
         escreval("")
      caso 3
         limpatela
         escreval("Veja a lista de itens que temos a disposição")
         escreval("Relação de itens para compra")
         para contador de 1 ate 4 faca
            escreval( contador , " " , item[contador] , " R$ " , valor[contador])
         fimpara
         escreval("Digite o número correspondente ao produto ")


         leia(opcao)
         escolha opcao

         caso 1

            escreval("Seu produto foi " , item[1]  , "", valor[1])
            compra[1] <- item[1]
            valorCompra[1] <- valor[1]

         caso 2

            escreval("Seu produto foi " , item[2]  , "", valor[2])
            compra[2] <- item[2]
            valorCompra[2] <- valor[2]


         caso 3
            escreval("Seu produto foi " , item[3]  , "", valor[3])
            compra[3] <- item[3]
            valorCompra[3] <- valor[3]


         caso 4
            escreval("Seu produto foi " , item[4] , "", valor[4])
            compra[4] <- item[4]
            valorCompra[4] <- valor[4]

            limpatela
         fimescolha


      caso 4
         escreval("Suas compras no momento :")

         se valorCompra[1] > 1 entao
            escreval(compra[1])
            resultado <- valorCompra[1]
            escreval("R$ " , resultado)

         fimse
         se valorCompra[2] > 1 entao
            escreval(compra[2])
            resultado <- valorCompra[2]
            escreval("R$" , resultado)
         fimse
         se valorCompra[3] > 1 entao
            escreval(compra[3])
            resultado <- valorCompra[3]
            escreval("R$", resultado)
         fimse
         se valorCompra[4] > 1 entao
            escreval(compra[4])
            resultado <- valorCompra[4]
            escreval("R$" , resultado)
         fimse
         resultado <- valorCompra[1] + valorCompra[2] + valorCompra[3] + valorCompra[4]
         escreval("A soma de Todos os produtos foi " , "R$", resultado )
   caso 5
      escreval("Finalizando suas compras")
      para contador de 1 ate 4 faca
         escreval(compra[contador])
         resultado <- valorCompra[1] + valorCompra[2] + valorCompra[3] + valorCompra[4]
         escreval("O valor total das compras foi :" , "R$" ,resultado )
      fimescolha
      fimenquanto


   fimalgoritmo

No caso do array eu já resolvi , agora e a último caso

caso 5

 

 

 

caso 5

escreval("Finalizando suas compras")

para contador de 1 ate 4 faca

escreval(compra[contador])

resultado <- valorCompra[1] + valorCompra[2] + valorCompra[3] + valorCompra[4]

escreval("O valor total das compras foi :" , "R$" ,resultado )

fimescolha

fimenquanto

Cara Obrigado , resolvido .. valeu