Sistema de estoque no visualg

[Niê 0]

o Estoque

 

•  Cadastro de item no estoque
  • Descrição / Quantidade / Preço de custo / Preço de venda    
•  Cadastro de combo promocional
  •  Descrição / Quantidade / Preço de custo / Preço de venda
•  Retirar item do estoque
  • Retira quantidade do item selecionado
•  Relatório de itens no estoque.
  • Todos os itens

 

Olá! Estou desenvolvendo o código relacionado a estas funções:

 

algoritmo "ESTOQUE"
// Estoque
//     Cadastro de item no estoque
//        Descrição / Quantidade / Preço de custo / Preço de venda
//     Cadastro de combo promocional
//        Descrição / Quantidade / Preço de custo / Preço de venda
//     Retirar item do estoque
//        Retira quantidade do item selecionado
//     Relatório de itens no estoque.
//        Todos os itens
tipo
   //dados do produto
   Produto = registro
      desc  :caractere  //descricao
      qtd   :inteiro    //quantidade
      pCusto:real       //preco de custo
      pVenda:real       //preco de venda
   fimRegistro

var
   produtos :vetor [1..1] de Produto
   i,j      :inteiro
   codItem  :inteiro
   opc      :caractere
   fim_cad  :inteiro

procedimento cadastro_item
   inicio

   codItem <- codItem+1
   escreval("**  Cadastro de produto **")
   escreva ("Descrição      :")
   leia(produtos[codItem].desc)
   escreva ("Quantidade     :")
   leia(produtos[codItem].qtd)
   escreva ("Preço de CUSTO :")
   leia (produtos[codItem].pCusto)
   escreva ("Preço de VENDA :")
   leia (produtos[codItem].pVenda)
   //Abaixo irá mostrar o último produto cadastrado
   // escreval ("Produto        :",produtos[coditem].desc)
    //escreval ("Quantidade     :",produtos[coditem].qtd)
   // escreval ("Preço        R$:",produtos[coditem].Pvenda ,",00")
   // leia()
   i:= 0

fimProcedimento


procedimento imprimir_produtos()//Prodedimento para imprimir os produtos cadastrados
escreval ("Em breve.")
fimProcedimento


procedimento menu()
   inicio
   repita
      limpaTela
      escreval("--------- ESTOQUE - PDV--------")
      escreval()
      escreval("         1-Cadastro de Item    ")
      escreval("         3-EM CONSTRUÇÃO       ")
      escreval("         4-EM CONSTRUÇÃO       ")
      escreval("         5-Sair                ")
      escreval()
      escreval("         0-*Imprimir produtos  ")
      escreval("-------------------------------")
      leia(opc)
      escolha (opc)
         caso "1"
            limpaTela
            cadastro_item() //qdn esse método é invocado, ao finalizar, o programa vai continuar daqui...
         caso "3"
            limpaTela
            escreval("EM CONTRUÇÃO")
         caso "0'
            limpaTela
            imprimir_produtos()

      fimEscolha
   ate opc="5"
fimProcedimento

inicio
codItem <- 0
menu()
fimAlgoritmo

 

A partir daqui minha mente travou, não vou para frente nem para trás. Alguém me da um start pls?

 

Estou para desenvolver a parte de imprimir itens cadastrados, porém quero antes de tudo armazenar para poder imprimi-los.

[igu 2]

Olá

espero que esse esboço aqui te ajude =D

algoritmo "esboço" 
// variáveis globais  podes aumentar [1..?] pra quantos quiser blz?
Var
   produto: vetor[1..2] de Caracter
   preco: vetor[1..2] de real
   menu: caracter
   itens: inteiro
//coloque suas informações adicionais aqui 

//inicio procedimentos
procedimento cadastrar
// variáveis locais
var
   ler_op: caracter
   opcao: logico

inicio
   opcao := Verdadeiro
   enquanto opcao faca
      limpatela
      escreval("Cadastro de Produtos")
      escreval("--------------------")
      escreval(" ")
      escreva("Produto: ")
      leia(produto[itens])
      escreval(" ")
      escreva("Preco: R$ ")
      leia(preco[itens])
      itens := itens + 1
      se itens <= 2 entao
         opcao := verdadeiro
         escreval(" ")
         escreval("Deseja cadastrar mais Produtos? (s/n):  ")
         leia(ler_op)
         se ((ler_op <> "s") ou (ler_op <> "S")) entao
            opcao := falso
         fimse
      senao
         opcao := falso
      fimse

   fimenquanto
fimprocedimento



procedimento consultar
// variáveis locais
var
   opcao: logico
   xi: inteiro
inicio
   opcao := Verdadeiro
   limpatela
   escreval("Mostra os Produtos")
   escreval("--------------------")
   para xi de 1 ate itens - 1 faca
      escreval("Produto: ",produto[xi]," - Preco: R$ ",preco[xi])
   fimpara
   //
   escreval(" ")
   escreval("Tecle <<enter>> pra continuar  ")
   leia(opcao)
fimprocedimento






// inicia o programa
inicio
   itens := 1
   enquanto menu < "4" faca
      limpatela
      escreval("---------Menu-----------")
      escreval("1- Cadastrar produto")
      escreval("2- Consultar produto")
      escreval("4- Sair")
      escreval("-------------------------")
      escreva("Escolha uma opcao: ")
      leia(menu)
      escolha menu
      caso "1"
         cadastrar
      caso "2"
         consultar
      caso "4"
         interrompa
      outrocaso
         escreval("Opcao invalida")
      fimescolha
   fimenquanto
fimalgoritmo