luizbem

olá,estou com dificuldade em terminar um algoritmo.
Ele deve cadastrar produtos,alterar,consultar,vender e deve atribuir um codigo para cada produto em outro vetor,quem puder me ajudar agradeço.


algoritmo "semnome"
// Função :
// Autor :
// Data : 29/06/2011
// Seção de Declarações
var
cadastro:vetor [1..10,1..3] de caracter
cod: vetor [1..10] de inteiro
i,j: inteiro
quant:inteiro
op,excluir,cod1,pesquisa:inteiro
achar: caracter
procedimento menu
inicio


se (quant >= 10) entao
escreval("Não é possivel cadastrar mais produtos")
fimse
escreval(":::::::::::::::::::::::::::::::::::::VENDAS:::::::::::::::::::::::::::::::::::::::::")
escreval
escreval("Escolha uma Opção")
escreval("1 - Cadastrar produto")
escreval("2 - Pesquisar ")
escreval("3 - Excluir")
escreval("4 - Código")
escreval("5 - Vender ")
escreval("Escolha uma opção !")


fimprocedimento


inicio
// Seção de Comandos
repita
menu

leia(op)
escolha(op)
caso 1
se (quant >= 10) entao
escreval
escreval(":::::::::::::::::::::::::::")
escreval("Estoque Cheio!")
escreval(":::::::::::::::::::::::::::")
senao
quant<-quant +1
escreval
escreval("Cadastro de produtos")
escreva("Digite o nome : ")
leia(cadastro[quant,1])
escreva("Digite a quantidade : ")
leia(cadastro[quant,2])
escreva("Digite o preço :")
leia(cadastro[quant,3])
fimse
caso 2
pesquisa <-0
escreval
escreval("Pesquisa de produtos")
escreva("Digite o nome do produto: ")
leia(achar)
para i <- 1 ate 10 faca
se (cadastro[i,1] = achar) entao
pesquisa <- i
fimse
fimpara
se (pesquisa <> 0) entao
escreval
escreval("Produto encontrado: ")
escreval("Nome: ", cadastro[pesquisa,1])
escreval("Quantidade: ",cadastro[pesquisa,2])
escreval("Preço: ",cadastro[pesquisa,3])
escreval(":::::::::::::::::::::::::::::::::")
senao
escreval(":::::::::::::::::::::::::::::::::")
escreval("Produto não cadastrado")
escreval
fimse
caso 3
repita
se (quant = 0) entao
escreval
escreval("Estoque vazio")
escreval
Excluir <- 0
senao
escreval("Produtos cadastrados: ")
para i <- 1 ate quant faca
escreval("Posição",i,"-",cadastro[i,1])
fimpara
escreva("Digite a posição para excluir ou 0 para voltar: ")
leia(Excluir)
se (Excluir >= 1 ) e (Excluir <= quant) entao
cadastro[Excluir,1] <- ""
cadastro[Excluir,2] <- ""
cadastro[Excluir,3] <- ""
quant <- quant - 1
para i <- 1 ate quant faca
se (cadastro[i,1] = "-") e (cadastro [i+1,1] <> "") entao
cadastro[i,1] <- cadastro[i+1,1]
cadastro[i+1,1] <- ""
cadastro[i,2] <- cadastro[i+1,2]
cadastro[i+1,2] <- ""
cadastro[i,3] <- cadastro[i+1,3]
cadastro[i+1,3] <- ""
fimse
fimpara
senao
escreval("Opção Inválida!")
fimse
fimse
ate (Excluir = 0)
fimescolha
ate (op = 0)
caso 4






fimalgoritmo