Programa para controlar o estoque de mercadorias de uma empresa. Inicialmente, o programa deverá preencher dois vetores com dez posições

//5.3 - Faça um programa para controlar o estoque de mercadorias de uma empresa. Inicialmente, o programa deverá preencher dois vetores com dez posições cada, onde o primeiro
//corresponde ao código do produto eo segundo, ao total desse produto em estoque. Logo após, o programa deverá ler um conjunto indeterminado de dados contendo o código
//de um cliente e o código do produto que ele deseja comprar, juntamente com a quantidade. Código do cliente igual a zero indica fim do programa. O programa deverá verificar:
//a) Se o código do produto solicitado existe. Se existir, tentar atender o pedido; caso contrario, exibir mensagem Código inexistente;
//" Cada pedido feito por um cliente só poderá ser atendido integralmente. Caso isso não seja possível,
//escrever a mensagem--- Não temos estoque suficiente dessa mercadoria. Se puder atendê-lo, escrever a mensagem Pedido atendido. Obrigado e volte sempre;
//b) Efetuar a atualização do estoque somente se o pedido for atendido integralmente;
//c) No final do programa, escrever os códigos dos produtos com seus respectivos estoques já atualizados.

Algoritmo "lista de vetores ex 5.3 "
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 22/10/2016
Var
   // Seção de Declarações das variáveis
   vet_cod_prod,vet_qtd_prod:vetor [1..10] de inteiro
   i,j,cod_cli,cod_prod,qtd:inteiro
   produt:logico

Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   para i:=1 ate 10 faca
      escreval("••••••••••••••••••••••••••••••••••••")
      escreva("Digite o código do ",i,"º produto:  ")
      leia(vet_cod_prod[i])
      escreva("Digite a quantidade do ",i,"º produto: ")
      leia(vet_qtd_prod[i])
   fimpara
   escreval("******************************************")
   escreval("Digite o código do cliente")
   leia(cod_cli)
   repita
      escreval("Qual o código do produto desejado.?.")
      leia(cod_prod)
      para i:=1 ate 10 faca
         se (vet_cod_prod[i] = cod_prod) entao
            produt<-verdadeiro
            j:=i
         fimse
      fimpara
      se produt=verdadeiro entao
         escreval("Qual a quantidade desejada?")
         leia(qtd)
         se qtd<=vet_qtd_prod[j] entao
            vet_qtd_prod[j]:=vet_qtd_prod[j]-qtd
            escreval("Produto atendido. Volte sempre! ")
         senao
            escreval("Infelizmente não podemos atender seu pedido")
            escreval("Não temos estoque suficiente desta mercadoria..")
         fimse
      senao
         escreval("-----CÓDIGO INEXISTENTE-----")
      fimse
      escreval("****************************************")
      escreval("Para sair digite o código ZERO - 0  ")
      escreval("Digite o código do cliente")
      leia(cod_cli)
   ate cod_cli=0
   escreval("¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤")
   escreval("O estoque atualizado é:..")
   para i:=1 ate 10 faca
      escreval("--------------------------------------------------------")
      escreval("O codigo do produto é:", vet_cod_prod[i])
      escreval("A quantidade  no estoque arualizada é: ",vet_qtd_prod[i])
   fimpara
Fimalgoritmo