Algoritmo controle estoque

[Framy 0]

Alguem de bom coração poderia me ajudar nesse algoritmo. Falta nele uma função ou/e um procedimento para incluir uma busca de produto e uma pesquisa de preço.

Na pesquisa de preço ao receber um valor, retorna a lista de todos os produtos que possuam preço maior ou igual ao valor dado.

 

 

algoritmo "controle de estoque"

var

itens: vetor[1..10] de caracter

estoque: vetor[1..10] de inteiro

valor: vetor[1..10] de real

produto: caracter

achou: logico

quantidade, coluna: inteiro

 

procedimento obterdados

var

i: inteiro

inicio

para i de 1 ate 10 faca

escreva("Nome do produto: ")

leia(itens)

escreva("Quantidade de intens no estoque: ")

leia(estoque)

escreva("Valor de cada item: ")

leia(valor)

fimpara

fimprocedimento

 

procedimento menu

var

i, numintem: inteiro

inicio

escreval("*************************")

escreval("** Controle de estoque **")

escreval("*************************")

numintem<-0

escreva("")

para i de 1 ate 10 faca

se estoque>0 entao

numintem<-numintem+1

escreval(numintem, " - ", itens)

fimse

fimpara

escreva("")

escreva("Informe o Nome do Produto escolhido: ")

fimprocedimento

 

//Aqui vai um procedimento ou função para "LocalizarProduto"

//Aqui vai um procedimento ou função para "PesquisaPreco"

 

inicio

obterdados //procedimento

escreval("")

menu //procedimento

leia(produto)

coluna<-localizarproduto(produto)

se coluna>0 entao

escreva("Informe a quantidade que você precisa: ")

leia(quantidade)

se quantidade>estoque[coluna] entao

escreva("O estoque foi atualizado!!!")

fimse

senao

escreva("Este produto não existe em estoque")

fimse

fimalgoritmo

 

 

Desde já, Obrigado! http://forum.imasters.com.br/public/style_emoticons/default/natal_happy.gif

[adriano_Mac osx 0]

cara tbm to com um problemada uma olhada nesse tem defeito mais pode te dar uma luz nesse procedimenro que você queralgoritmo "Controle_estoque"var codigo : vetor [1..5]de inteiro qtd :vetor [1..5]de numerico valor : vetor [1..5]de real nomeproduto : vetor [1..5] de caractere opcoes: caractere x : inteiro procedimento "i" var resposta:caractere inicio x <- 1 resposta <- "s" enquanto (resposta = "s") e (x < = 5) faca escreval ("Digite o codigo do produto: ") leia (codigo[x]) escreval ("Digite o nome do produto: ") leia (nomeproduto [x]) escreval ("Digite o quantidade do produto: ") leia (qtd[x]) escreval ("Digite o valor do produto: ") leia (valor[x]) x <- x + 1 escreval ("Você quer cadastrar mais produtos para sim (s) ou (n) para não ") leia (resposta) fimenquanto fimprocedimento procedimento "c" var codigox,posicao,xqtd:numerico operacao,resposta:caractere inicio repita escreva ("Digite codigo: ") leia (codigox) posicao <- 0 repita posicao <- posicao + 1 ate(codigox = codigo[posicao]) ou (posicao = codigox) se codigox = codigo[posicao] entao escreval (nome[posicao],qtd[posicao],valor[posicao]) escreval ("Qual operação vecê deseja efetuar ,para entrada de produto digite "e" e para saída "s") leia (operacao) escreval ("Qual a quantidade ") leia (xqtd) se operação = "e" entao qtd[posicao] <- qtd[posicao] + xqtd senao se qtd[posicao] > = xqtd entao qtd[posicao] <- qtd[posicao] - xqtd senao escreval ("Estoque insuficiente ") fimse fimse senao escreval ("Produto não encontrado ") fimse escreval ("Quer continuar para sim digite "s" e para não digite "n") leia (resposta) ate (resposta = "n" ) fimprocedimentoinicio repita escreval("digite uma opcao para inclusão digite ( i ) ") escreval ("Para cunsulta digite © ou para finalizar programa digite (f).") leia(opcoes) escolha (opcoes) caso "i" i caso "c" c caso"3" fimescolha ate (opcoes = f)fimalgoritmo