Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

bigpumao

adicionando novo valor em um array visualg

Recommended Posts

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 ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.