VisualG Criar sistema de CRUD

[HenriqueArisi]

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

[luscas]

@HenriqueArisi

Bom, testei aqui e depois de um longo tempo testando , o problema se encontrava na declaração de variais do vetor de datas.

9 horas atrás, HenriqueArisi disse:

 datas: vetor [1..100] de caractere

Ao que tudo indica a palavra " datas " é uma palavra reservada no visualg, até procurei algo sobre ela mas não encontrei, enfim mudando o nome da variável para data funcionou .

Algoritmo "Controle de Vendas"

Var

   clientes: vetor [1..100] de caractere

   data: 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(data[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

 

[HenriqueArisi]

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