HenriqueArisi

@luscas Muito obrigado cara! você é uma potencia, você devia ser piloto de foguete da NASA!

Bom, sou universitário de ADS e estou no segundo período do curso, e nossa linguagem educacional por enquanto é o Portugol do Visualg O professor passou a seguinte atividade para nós... Criar um programa em Visualg que tenha um MENU com: 1 - Cadastrar Venda 2 - Lista de Vendas Realizadas S - Sair (Encerrar o programa, agradecendo pela utilização) * Utilize APENAS estruturas como procedimento, para o cadastro e a listagem de produtos Procedimento de cadastro deve ter: - Cliente - Data - Produto - Valor do Produto - Quantidade vendida (O programa deve calcular o valor total da venda e armazená-lo no cadastro.) - Mensagem de produto cadastrado concluído com sucesso Procedimento de Listagem deve ter: - Retornar as informações de todas as vendas realizadas, e o valor total de cada uma Algoritmo "Controle de Vendas" Var clientes: vetor [1..100] de caractere datas: vetor [1..100] de caractere produtos: vetor [1..100] de caractere valoresProduto: vetor [1..100] de real valoresTotal: vetor [1..100] de real quantidades: vetor [1..100] de inteiro contador, totalvendas: inteiro i: inteiro vendasCadastradas: logico opcao: caractere Procedimento cadastrarVenda Inicio Se totalvendas < 100 então contador <- contador + 1 totalvendas <- totalvendas + 1 escreva("Informe o Cliente: ") leia(clientes[contador]) escreva("Informe a Data: ") leia(datas[contador]) escreva("Informe o Produto: ") leia(produtos[contador]) escreva("Informe o Valor do Produto: ") leia(valoresProduto[contador]) escreva("Informe a Quantidade Vendida: ") leia(quantidades[contador]) valoresTotal[contador] <- valoresProduto[contador] * quantidades[contador] Escreval("Produto cadastrado com sucesso!") // Atualiza a variável vendasCadastradas para Verdadeiro vendasCadastradas <- Verdadeiro Senao Escreval("Limite de vendas atingido.") FimSe FimProcedimento Procedimento listarVendas Inicio vendasCadastradas <- Falso Para i de 1 ate 100 faca Se clientes[i] <> "" então vendasCadastradas <- Verdadeiro Escreval("Cliente: ", clientes[i]) Escreval("Data: ", datas[i]) Escreval("Produto: ", produtos[i]) Escreval("Valor do produto: ", valoresProduto[i]) Escreval("Quantidade de produtos: ", quantidades[i]) Escreval("Valor total da venda: ", valoresTotal[i]) Escreval("------------------------------") FimSe FimPara Se não vendasCadastradas então Escreval("Não há vendas cadastradas.") FimSe FimProcedimento // Programa Principal Inicio totalvendas <- 0 contador <- 0 vendasCadastradas <- Falso Repita escreval("MENU:") escreval("1 - Cadastrar Venda") escreval("2 - Lista de Vendas Realizadas") escreval("S - Sair") escreva("Escolha a opção desejada: ") leia(opcao) escolha opcao caso "1" cadastrarVenda caso "2" listarVendas caso "S" escreva("Programa encerrado. Obrigado por utilizar!") outrocaso escreva("Opção inválida. Tente novamente.") fimescolha Ate opcao = "S" FimAlgoritmo Só que da erro e nem se quer executa o menu que é a parte principal, já tentei de tudo pra arrumar isso mas não consigo de jeito nenhum. Queria pedir ajuda aos experts para me orientar... Aqui estão os erros que o próprio VisualG indica! https://pasteboard.co/M5Ad7MJ2dxP9.png https://pasteboard.co/QsHmgs1oeprz.png

Bom, sou universitário de ADS e nossa linguagem de aprendizagem por enquanto é o portugol do Visualg. Tenho uma dúvida em um algoritmo que fiz. O algoritmo consiste em: Criar um programa em Visualg que permita o cadastro de produtos com NOME, CÓDIGO E VALOR. E a pesquisa de produtos por código. O programa deve retornar as informações do produto encontrado, ou uma mensagem de erro se o produto não for encontrado. Aqui está o código... algoritmo "Cadastro e Pesquisa de Produtos" var nome: vetor[1..50] de caractere codigo: vetor[1..100] de inteiro valor: vetor[1..100] de real opcao: caractere codigoPesquisa: inteiro encontrado: logico quantidadeProdutos: inteiro i: inteiro procedimento cadastrarProduto inicio se quantidadeProdutos < 100 então escreval("Digite o nome do produto: ") leia(nome[quantidadeProdutos]) escreva("Digite o código do produto: ") leia(codigo[quantidadeProdutos]) escreva("Digite o valor do produto: ") leia(valor[quantidadeProdutos]) quantidadeProdutos <- quantidadeProdutos + 1 escreva("Produto cadastrado com sucesso!") senao escreval("Limite de produtos atingido. Não é possível cadastrar mais produtos.") fimse fimprocedimento procedimento pesquisarProduto inicio encontrado <- falso para i de 0 ate quantidadeProdutos-1 faca se codigo[i] = codigoPesquisa então escreval("Produto encontrado:") escreval("Nome: ", nome[i]) escreval("Código: ", codigo[i]) escreval("Valor: ", valor[i]) encontrado <- verdadeiro interrompa fimse fimpara se não encontrado então escreval("Produto não encontrado.") fimse fimprocedimento inicio quantidadeProdutos <- 0 repita escreval("========== Menu ==========") escreval("1 - Cadastrar Produto") escreval("2 - Pesquisar Produto por Código") escreval("S - Sair") escreval("==========================") escreva("Escolha a opção desejada: ") leia(opcao) escolha opcao caso "1" cadastrarProduto caso "2" se quantidadeProdutos > 0 então escreva("Digite o código do produto a ser pesquisado: ") leia(codigoPesquisa) pesquisarProduto(quantidadeProdutos) senao escreval("Nenhum produto cadastrado.") fimse caso "S" escreval("Saindo do programa.") outrocaso escreval("Opção inválida. Tente novamente.") fimescolha ate opcao = "S" fimalgoritmo Fiz com estruturas de procedimento e escolha caso, que é o que estamos aprendendo no momento. O erro se dá na hora de escolher a opção 1 - Cadastrar produto Não sei sé é necessário todas essas prints, mas é tudo o que o Visualg acusa, e sei q nem sempre o que ele acusa é o que esta incorreto! mas já fiz de tudo que eu consigo pensar para arrumar isso Espero que os experts possam me ajudar, desde já, obrigado! Henrique Arisi 23.11.2023

@kgin Amigo, testei aqui e continua no mesmo erro...

Sou estudante so 2o período de Analise de Desenvolvimento de Sistema, e o Visualg (Portugol) é a nossa linguagem educacional/ Professor passou um trabalho com os seguintes pedidos... Desenvolva um programa em Visualg que apresente o seguinte menu para o usuário: 1 - Cadastrar aluno 2 - Pesquisar aluno 3 - Listar alunos 4- Lista média de todos alunos da turma S - Sair Digite Opção: 1. Em Cadastrar: deve conter os vetores: RA, Nota1, Nota2 e Cidade. Um de cada vez; 2. Realiza a pesquisa por RA, caso encontrar apresentar a média (que é criado automaticamente no vetor MEDIA, quando é realizado o cadastro das notas). Caso não encontre, informar “RA inexistente”; 3. Lista todos alunos cadastrados até o momento; 4. Lista a média de cada aluno, mas apresentando somente RA e Media; 5. Sair agradecendo o usuário. * Utilizar a Estrutura Caso... Escolha *O limite de alunos deve ser 10, após tentar cadastrar mais alunos porém com esse limite já atingido, mandar uma informação.(que já foi atingido *Informar quando não tem alunos cadastrados caso a Opção seja 2, 3 ou 4 O ERRO SE DA NA SEGUINTE PARTE: O limite de alunos deve ser 10, após tentar cadastrar mais alunos porém com esse limite já atingido, mandar uma informação.(que já foi atingido) Algoritmo "CadastroAlunos" Var opcao: Caractere RA: Vetor[1..10] de Inteiro Nota1: Vetor[1..10] de Real Nota2: Vetor[1..10] de Real Cidade: Vetor[1..10] de Caractere MEDIA: Vetor[1..10] de Real i: Inteiro raPesquisa: Inteiro encontrou: Logico alunosCadastrados: Logico Inicio Para i de 1 ate 10 faca RA[i] <- 0 Nota1[i] <- 0 Nota2[i] <- 0 MEDIA[i] <- 0 FimPara alunosCadastrados <- Falso Enquanto opcao <> "S" faca Escreval("==================================================") Escreval(" -=MENU=-") Escreval("1 - Cadastrar aluno") Escreval("2 - Pesquisar aluno") Escreval("3 - Listar alunos") Escreval("4 - Lista média de todos alunos da turma") Escreval("S - Sair") Escreval("==================================================") Escreval("Digite Opção: ") Leia(opcao) LimpaTela Escolha opcao Caso "1" // Cadastrar aluno i <- 1 Enquanto (i <= 10) E (RA[i] <> 0) faca i <- i + 1 FimEnquanto Se i <= 10 então Escreva("Digite o RA do aluno: ") Leia(RA[i]) Escreva("Digite a Nota 1 do aluno: ") Leia(Nota1[i]) Escreva("Digite a Nota 2 do aluno: ") Leia(Nota2[i]) Escreva("Digite a Cidade do aluno: ") Leia(Cidade[i]) MEDIA[i] <- (Nota1[i] + Nota2[i]) / 2 LimpaTela Escreval("Aluno cadastrado com sucesso!") alunosCadastrados <- Verdadeiro Senao Escreval("Limite de alunos atingido.") FimSe Caso "2" // Pesquisar aluno Se alunosCadastrados então Escreval("Digite o RA para pesquisa: ") Leia(raPesquisa) encontrou <- Falso Para i de 1 ate 10 faca Se RA[i] = raPesquisa então LimpaTela Escreval("Média: ", MEDIA[i]) encontrou <- Verdadeiro Interrompa FimSe FimPara Se não encontrou então Escreval("RA inexistente") FimSe Senao Escreval("Nenhum aluno cadastrado até o momento.") FimSe Caso "3" // Listar alunos Se alunosCadastrados então Para i de 1 ate 10 faca Se RA[i] <> 0 então Escreval("RA: ", RA[i]) Escreval("Nota 1: ", Nota1[i]) Escreval("Nota 2: ", Nota2[i]) Escreval("Média: ", MEDIA[i]) Escreval("---------------------------------") FimSe FimPara Senao Escreval("Nenhum aluno cadastrado até o momento, consequentemente, nenhuma média calculada.") FimSe Caso "4" // Listar médias Se alunosCadastrados então Para i de 1 ate 10 faca Se RA[i] <> 0 então Escreval("RA: ", RA[i]) Escreval("Média: ", MEDIA[i]) Escreval("---------------------------------") FimSe FimPara Senao Escreval("Nenhum aluno cadastrado até o momento.") FimSe Caso "S" Escreval("Agradecemos por utilizar o programa!") OutroCaso Escreval("Opção inválida. Tente novamente.") FimEscolha FimEnquanto FimAlgoritmo Esse é o código, e aqui está o erro na hora da execução - Acredito que essas linhas que o Visualg acusa estejam erradas, mas resumindo, Eu cadastro os 10 alunos porém quando clico novamente na Opção 1(de cadastro), ao invés de aparecer a mensagem de "Limite de alunos atingido", e aí o erro se apresenta. Se algum expert puder me ajudar ficarei muito agradecido!!