Igornascimento

O prazo de entrega é amanhã e esse é o trabalho que vale a maior nota. preciso entregar mesmo que não tenha feito tudo como foi pedido. pra tirar pelo menos alguns pontos

ADENDO 3:

Faça o código ao seu tempo... caso deseje, te ajudamos a refatorar todo o código... se puder e quiser, acho que dá tempo também

Se poder eu agradeço, pois estou meio que perdido, eles dizem que não devemos usar leitores de código para testar o algoritmo, não sei se só escrevendo o que entendemos sem saber se vai rodar o programa vai valer o mesmo ponto

aí está o procedimento que eu fiz para o cadastro de produtos, queria saber em que linha eu adiciono a condição para analisar se o código digitado já foi cadastrado. 

procedimento cadastrarprodutos()
inicio
   se (qtd < 100) entao
      escreva ("Digite o código do produto: ")
      leia (cadprod[qtd+1].codigo)
      escreva ("Digite o nome do produto: ")
      leia (cadprod[qtd+1].item)
      escreva ("Memória ram: ")
      leia (cadprod[qtd+1].memo)
      escreva ("Armazenamento Interno: ")
      leia (cadprod[qtd+1].arm)
      escreva ("Tamanho da tela: ")
      leia (cadprod[qtd+1].tela)
      qtd <- qtd +1
      escreval()
      escreval ("Produto cadastrado com sucesso")
   senao
      escreva ("Limite de 100 celulares atingido")
   fimse
   escreval()
   escreval ("Tecle ENTER para retornar ao menu")
   leia (opt)
fimprocedimento

@Simon Viegas  referente ao seu ADENDO 3, é isso que está confundindo muito minha cabeça, eu já fiz de várias formas e tenho esse problema de saber se tem uma sequencia a ser seguida, eu nunca tinha feito qualquer tipo de curso ou visto algo sobre isso na vida, daí comecei a faculdade e estou zerado de informação, é tudo novo pra mim e nas aulas ao vivo da faculdade, o professor passa tudo muito rápido, não tem um acompanhamento sabe, ele joga o assunto pra gente e temos que nos virar para aprender e resolver.  o que queria entender melhor era onde encaixar a função para checar se tem código repetido. 

@Simon Viegas não entendi essa variável que o "P" recebe.

p <- buscaPosicaoItem(cod)

oi simon, bom dia, no procedimento eu consigo fazer a função de pesquisar certinho, o problema que o trabalho exige que eu use obrigatoriamente, procedimentos, funções e registros. abaixo está o que o trabalho pede. Eu estou meio que perdido, porque eu estou fazendo faculdade a 3 semanas, professor do curso não tira uma dúvida minha, e estou aprendendo mais pelo youtube do que pela faculdade. Estou grato também pela sua ajuda. se eu não conseguir resolver isso hoje, vou entregar assim mesmo.

Diante do exposto, você precisa desenvolver seu algoritmo em pseudocódigo e atender aos seguintes critérios:
1 – Estrutura de Registro para armazenar 100 aparelhos celulares
2 – Um menu que apresente os seguintes módulos (procedimentos / funções)
2.1 – Cadastrar Produtos
2.2 – Listar todos (Aqui liste 3 características armazenadas)
2.3 - Listar 1 produto específico (Aqui liste 3 características armazenadas)
 
Considere as seguintes regras: 
1 - Controlar o cadastro para que não haja códigos idênticos.
2 - Informar ao usuário se produto foi cadastro ou não.
3 - Informar ao usuário que o produto não foi encontrado caso ocorra.

Oi, Simon. Boa noite.

Consegui fazer com registro, fiz uma função para pesquisar, só que acusa um erro que a váriavel "pesquisarprodutos()" não existe.

e também não estou conseguindo controlar os códigos dos produtos para saber se tem código de produto repetido.

O resto está tudo funcionando.

algoritmo "semnome"
tipo
   celular=registro
      codigo:inteiro
      item:caractere
      memo: caractere
      arm: caractere
      tela:caractere
   fimregistro

procedimento mostrar_menu()
inicio
   escreval ("1 - Cadastrar Produto")
   escreval ("2 - Pesquisar Produtos")
   escreval ("3 - Listar Produtos")
   escreval ("0 - sair")
fimprocedimento

procedimento cadastrar_produtos()
inicio
   se (qtd < 100) entao
      escreva ("Digite o código do produto: ")
      leia (cadprod[qtd+1].codigo)
      escreva ("Digite o nome do produto: ")
      leia (cadprod[qtd+1].item)
      escreva ("Memória ram: ")
      leia (cadprod[qtd+1].memo)
      escreva ("Armazenamento Interno: ")
      leia (cadprod[qtd+1].arm)
      escreva ("Tamanho da tela: ")
      leia (cadprod[qtd+1].tela)
      qtd <- qtd +1
      escreval()
      escreval ("Produto cadastrado com sucesso")
   senao
      escreva ("Limite de 100 celulares atingido")
   fimse
   escreval()
   escreval ("Tecle ENTER para retornar ao menu")
   leia (opt)
fimprocedimento

funcao pesquisarprodutos(cod:inteiro):inteiro
var
   i, resultado:inteiro
inicio
   i <- 1
   resultado <- 0
   enquanto (i <= qtd) faca
      se cadprod[i].codigo == cod) entao
         escreval ("produto: ", cod)
         escreval ("item: ", cadprod[i].item)
         escreval ("Memória RAM: ", cadprod[i].memo)
         escreval ("Armazenamento Interno: ", cadprod[i].arm)
         escreval ("Tamanho da Tela: ", cadprod[i].tela)
         retorne i
      fimse
      i <- i + 1
   fimenquanto
   escreval ("Produto não encontrado...")
   retorne -1
fimfuncao

procedimento listarprodutos()
var
   i:inteiro
inicio
   para i de 1 ate qtd passo 1 faca
      escrevaL()
      escreval ("Código: ",cadprod[i].codigo)
      escreval ("item: ", cadprod[i].item)
      escreval ("Memória RAM: ", cadprod[i].memo)
      escreval ("Armazenamento Interno: ", cadprod[i].arm)
      escreval ("Tamanho da Tela: ", cadprod[i].tela)
      escreval()
   fimpara
   escreval ("Tecle ENTER para retornar ao menu")
   leia (opt)
fimprocedimento

var
   cadprod: vetor [1..100] de celular
   i,opc,qtd:inteiro
   opt:caractere
inicio
   repita
      mostrar_menu()
      leia (opc)
      escolha (opc)
         caso 1
         limpatela()
         cadastrar_produtos()
         limpatela()
      caso 2
      limpatela()
         pesquisarproduto()
         limpatela()
      caso 3
      limpatela()
         listarprodutos()
         limpatela()
      fimescolha
   ate (opc = 0)
fimalgoritmo

Para a função funcionar no menu eu tenho que adicionar a variável dessa função na variável global certo??

Oi simon, estou sem saber o que fazer já, não entendi direito a questão da função e não consigo adicionar ela a este código, não consigo colocar controle de código digitado pelo usuário e o procedimento pesquisar só está lendo o ultimo código adicionado, o resto está funcionando certinho. 

algoritmo "AtividadeMapa"
tipo
   produto = registro
      codigo: inteiro
      item:caractere
      descricao:caractere
   fimregistro
procedimento cad_produtos()
var
   i:inteiro
inicio
   coditem <- coditem + 1
   escreval("****  Cadastro de produto  ****")
   escreval()
   escreva ("Codigo do Item: ")
   leia(cadprod.codigo[coditem])
   escreva ("Item       : ")
   leia(cadprod.item[coditem])
   escreva ("Descrição     : ")
   leia(cadprod.descricao[coditem])
   limpatela
   escreval()
   escreval("--------- Item Cadastrado ----------")
   escreval()
   escreval ("Código do Item: ",cadprod.codigo[coditem])
   escreval ("Item:        ",cadprod.item[coditem])
   escreval ("Descrição:      ",cadprod.descricao[coditem])
   escreval("---------------------------------------")
   escreval ("Tecle ENTER para retornar ao menu.")
   leia(opc)
fimProcedimento

procedimento listar_produtos()
var
   i: inteiro
inicio
   escreval("-------- LISTA DE PRODUTOS CADASTRADOS ----------- ")
   para i de 1 ate coditem faca
      escreval()
      escreval("Código:    " ,cadprod.codigo[i])
      escreval("Item:    " ,cadprod.item[i])
      escreval("Descrição:  " ,cadprod.descricao[i])
      escreval("--------------------------------------------------")
   fimpara
   escreva ("Pressione ENTER para voltar ao menu")
   leia(opc)
fimProcedimento

procedimento pesquisar_item
var
   i: inteiro
inicio
   escreval ("Digite o Código do Item que deseja pesquisar(ex: 91): ")
   leia (icod)
   se (icod = cadprod.codigo[coditem]) entao
      escreval("---------------------------------------")
      escreval("Código         : ",cadprod.codigo[coditem])
      escreval("Produto        : ",cadprod.item[coditem])
      escreval("Descrições     : ",cadprod.descricao[coditem])
      escreval("---------------------------------------")
      escreval ("Pressione ENTER para voltar ao menu")
      leia (opc)
   senao
      se (icod <> cadprod.codigo[coditem]) entao
         escreval ("Este código ainda não foi cadastrado")
         escreval ()
         escreval("Pressione ENTER para voltar ao menu")
         leia (opc)
      fimse
   fimse
fimprocedimento
var
   cadprod: vetor [1..100] de produto
   i:inteiro
   opc: caractere
   icod,coditem: inteiro
procedimento menu()
inicio
   repita
      limpaTela
      escreval("    1 - Cadastro de Item       ")
      escreval("    2 - Pesquisar Produto      ")
      escreval("    3 - Listar todos os Produtos   ")
      escreval()
      escreval("    0 - Sair     ")
      escreval()
      leia(opc)
      escolha (opc)
      caso "1"
         limpaTela
         cad_produtos()
      caso "2"
         limpaTela
         pesquisar_item()
      caso "3"
         limpaTela
         listar_produtos()

      fimEscolha
   ate opc="0"
fimProcedimento
inicio
   coditem <- 0
   menu()
fimalgoritmo

Você não está entendendo o que eu estou tentando explicar, todo o meu algoritmo funciona. Único problema é que eu não consigo ter o controle de ter código de produtos repetido e no enunciado do exercício pede que tenha controle de códigos para que não tenha códigos repetidos.

Também não estou conseguindo fazer esse código com estrutura de registro e função.

Oi Simon Viegas, mas esse é o procedimento pesquisar, o que eu falei que não consigo, é ter o controle para não repetir código do produto.

pra quando for cadastrar um novo produto, o código não seja igual a outro produto cadastrado

Em 28/05/2021 às 14:26, Simon Viegas disse:

@Igornascimento, poste seu código completo e em qual parte está com dúvidas.

Este é meu código funcionando, coloquei a função "SE" para controlar a repetição de código só que dá erro, e tenho dúvida de onde adiciona-la sem que dê erro. esse código eu fiz com apenas vetor, depois que prestei atenção que no enunciado pede que faça uma estrutura de registro. agora estou fazendo outro código com estrutura de registro.

algoritmo "ESTOQUE"
var
   descricoes  :vetor [1..1000] de caractere
   produto     :vetor [1..1000] de caractere
   codigo      :vetor [1..1000] de inteiro
   codItem,codpesq,j,acresc  :inteiro
   opc :caractere
   fimcad   :real
   
procedimento cadastro_item
inicio

   codItem <- codItem + 1
   escreval("****  Cadastro de produto  ****")
   escreval()
   escreva ("Codigo do Item: ")
   leia(codigo[coditem])
   escreva ("Produto       : ")
   leia(produto[codItem])
   escreva ("Descrição     : ")
   leia(descricoes[codItem])
   escreval()
   escreval("--------- Item Cadastrado ----------")
   escreval()
   escreval ("Código do Item: ",codigo[coditem])
   escreval ("Produto:        ",produto[coditem])
   escreval ("Descrição:      ",descricoes[coditem])
   escreval("---------------------------------------")
   escreval ("Tecle ENTER para retornar ao menu.")
   leia(opc)
fimProcedimento

procedimento listar_produtos()
var
   i :inteiro
inicio
   escreval("-------- LISTA DE PRODUTOS CADASTRADOS ----------- ")
   para i de 1 ate codItem faca
      escreval()
      escreval("Quant. Cadastrada: ",i)
      escreval("Código:    " ,codigo[i])
      escreval("Produto:    " ,produto[i])
      escreval("Descrição:  " ,descricoes[i])
      escreval("--------------------------------------------------")
   fimpara
   escreva ("Pressione ENTER para voltar ao menu")
   leia(opc)
fimProcedimento

procedimento pesquisar()
var
   i:inteiro
inicio
   escreval ("Digite o código do item que deseja pesquisar(ex: 57): ")
   leia (codpesq)
   se (codpesq = codigo[coditem]) então
      escreval("---------------------------------------")
      escreval("Código         : ",codigo[coditem])
      escreval("Produto        : ",produto[coditem])
      escreval("Descrições     : ",descricoes[coditem])
      escreval("---------------------------------------")
      escreval ("Pressione ENTER para voltar ao menu")
      leia (opc)
    senao
      se (codpesq <> codigo[coditem]) então
         escreval ("Este código ainda não foi cadastrado")
         escreval("Pressione ENTER para voltar ao menu")
         leia (opc)
      fimse
   fimse
fimprocedimento

procedimento menu()
inicio
   repita
      limpaTela
      escreval("    1 - Cadastro de Item       ")
      escreval("    2 - Pesquisar Produto      ")
      escreval("    3 - Sair                   ")
      escreval()
      escreval("    0 - Exibir Estoque     ")
      escreval()
      escreval("Você Cadastrou",codItem," Produtos")
      escreval("---------------------------------------")
      leia(opc)
      escolha (opc)
      caso "1"
         limpaTela
         cadastro_item()
      caso "2"
         limpaTela
         pesquisar()
      caso "0"
         limpaTela
         listar_produtos()

      fimEscolha
   ate opc="3"
fimProcedimento

inicio
   codItem <- 0
   menu()
FIMALGORITMO

Alguém pode me ajudar, consegui fazer apenas procedimentos e não consigo colocar funções. também não consegui controlar o código dos produtos

Você precisa desenvolver seu algoritmo em pseudocódigo e atender aos seguintes critérios:
1 – Estrutura de Registro para armazenar 100 aparelhos celulares
2 – Um menu que apresente os seguintes módulos (procedimentos / funções)
2.1 – Cadastrar Produtos
2.2 – Listar todos (Aqui liste 3 características armazenadas)
2.3 - Listar 1 produto específico (Aqui liste 3 características armazenadas)
 
Considere as seguintes regras: 
1 - Controlar o cadastro para que não haja códigos idênticos.
2 - Informar ao usuário se produto foi cadastro ou não.
3 - Informar ao usuário que o produto não foi encontrado caso ocorra.

Dicas para realizar a atividade Mapa:
1. Durante as aulas o professor irá fornecer dicas que podem ser utilizadas para a confecção das suas atividades, sendo assim, é de suma importância participar da aula ao vivo, ou assisti-las posteriormente.
2. Assistir o vídeo explicativo da atividade Mapa.
3. Não utilizar software para testar o algoritmo neste momento.