Carrinho de compra

[bigpumao 1]

algoritmo "Carriho de Compra"

// 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 <- "sim"

enquanto menu = "sim" faca

escreval("######### MENU #########")

escreval("1) Cadastrar Itens #")

escreval("2) Listar Itens #")

escreval("3) Comprar produtos #")

escreval("4) Valores das compras #")

escreval("########################")

escreval("Digite uma opção")

leia(opcao)

 

escolha opcao

enquanto menu = "sim" 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? SIM / NÂO")

 

leia(menu)

limpatela

caso 2

limpatela

para contador de 1 ate 4 faca

escreval ("Itens cadastrados " , item[contador] , " " , " R$ " , valor[contador] )

 

fimpara

caso 3

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]

 

escreval("Deseja comprar mais ? SIM / NÂO")

leia(menu)

 

fimescolha

 

 

caso 4

escreval("Suas comprar no momento")

para contador de 1 ate 4 faca

escreval(compra[contador])

resultado <- valorCompra[contador]

resultado <- resultado + valorCompra[contador]

escreval("R$ " , resultado)

fimpara

fimescolha

fimenquanto

 

 

fimalgoritmo

 

 

 

 

 

 

 

 

 

 

 

Preciso que ele adcione mais um item no valorCompra, valor: vetor[1..4] até completar o último índice

quando eu coloco para comprar mais um índice ele sobre escreve o valor, mais não add mais um valor , e é o que eu preciso e add mais um valor no vetor