VisualG "esperava encontrar o ATE"

dolkew · 11 de abril de 2022

Toda vez que eu consulto e eu executo a parte de consulta, venda e sair do programa, sempre dá erro que é o ''esperava encontrar o até''. Se pudessem me ajudar resolver o problema, agradeço.

Algoritmo "meu terceiro código jonas"
Var
   opcao: inteiro
   veiculo: inteiro
   escv,formpg:real
   hilux:real
   login,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10:caractere
   senha,esc:inteiro
   opc:inteiro
   valorcliente,adevolver,valorveiculo,valordaparcela:real
   quantparcelas,quantparcelascomjuros:real
   valordaparcelacomjuros,taxadejuros:real
   nome,profissao:caractere
   renda:inteiro
   valorsolicitado:real
   situacao:real
   apv:real
   valor:inteiro
   prest1,prest2,prest3:inteiro
Inicio
   senha<-2535
   login<-"LCC"
   //lista de veículos
   v1<-"hilux - 276.490"
   v2<-"bmw - 150.150"
   v3<-"celta - 30.000"
   v4<-"onix - 330.000"
   v5<-"camaro - 400.000"
   v6<-"gol - 10.000"
   v7<-"porsche - 100.000"
   v8<-"fusca -  350.000"
   v9<-"hb20 - 30.020"
   v10<-"mercedez - 600.000"
   //fim lista veiculos
   escreval("Seja bem vindo ao sistema de venda.")
   escreval("***********************************")
   //login e senha
   escreval("Digite o usuário:")
   leia(login)
   escreval("Digite a senha:")
   leia(senha)
   escreval("****************")
   se (login="LCC") entao
      escreval("Nome de usuário aceito.")
   senao
      escreval("Nome de usuário incorreto.")
   fimse
   se (senha="2535") entao
      escreval("Senha correta.")
   senao
      escreval("Senha incorreta.")
   fimse
   se (login="LCC") e (senha="2535") entao
      escreval("Usuário autenticado com sucesso.")
   senao
      escreval("Usuário não autenticado com sucesso.")
   fimse
   //fim do login e senha
   
   repita
      escreval("1 - Consulta")
      escreval("2 - Vender")
      escreval("3 - Sair")
      leia(esc)
      se(esc=1)entao
         escreval("Lista de veículos:")
         escreval(v1)
         escreval(v2)
         escreval(v3)
         escreval(v4)
         escreval(v5)
         escreval(v6)
         escreval(v7)
         escreval(v8)
         escreval(v9)
         escreval(v10)
      senao
         se(esc=2)entao
            escreval("1 - Compra a vista")
            escreval("2 - Compra cartão")
            escreval("3 - Financiamento")
            leia(opcao)
            se(opcao=1)entao
               escreval("Lista de veículos:")
               escreval(v1)
               escreval(v2)
               escreval(v3)
               escreval(v4)
               escreval(v5)
               escreval(v6)
               escreval(v7)
               escreval(v8)
               escreval(v9)
               escreval(v10)
               escreval("Informe valro repassado pelo cliente")
               leia(valorcliente)
               escreval("Informe o valor de veiculo")
               leia(valorveiculo)
               adevolver<-(valorcliente-valorveiculo)
               escreval("A devolver", adevolver)
               escreval("Parabéns! Volte sempere")
            senao
               se(opcao=2)entao
                  escreval("Lista de veículos:")
                  escreval(v1)
                  escreval(v2)
                  escreval(v3)
                  escreval(v4)
                  escreval(v5)
                  escreval(v6)
                  escreval(v7)
                  escreval(v8)
                  escreval(v9)
                  escreval(v10)
                  escreval("Informe a quantidade de parcelas")
                  leia(quantparcelas)
                  escreval("Informe valor do veículo")
                  leia(valorveiculo)
                  valordaparcela<-(valorveiculo/quantparcelas)
                  escreval("Valor da parcela",valordaparcela)
                  escreval("Parabéns! Volte sempre")
               senao
                  se(opcao=3) entao
                     escreval("Lista de veículos:")
                     escreval(v1)
                     escreval(v2)
                     escreval(v3)
                     escreval(v4)
                     escreval(v5)
                     escreval(v6)
                     escreval(v7)
                     escreval(v8)
                     escreval(v9)
                     escreval(v10)
                     escreval("Informe a quantidade de parcelas.")
                     leia(quantparcelascomjuros)
                     escreval("Informe valor do veículo")
                     leia(valorveiculo)
                     valordaparcelacomjuros<-(valorveiculo/quantparcelascomjuros)+(valorveiculo*2)
                     escreval("Valor da parcela com juros",valordaparcelacomjuros)
                     escreval("Parabéns volte sempre")
                  fimse
                  
                  //aprovação de credito
                  escreval("Informe o nome do solicitante")
                  leia(nome)
                  escreval("profissão")
                  leia(profissao)
                  escreval("renda")
                  apv<-(renda/3)
                  escreval("Informe o valor solicitado pelo cliente")
                  leia(valorsolicitado)
                  escreval("Digite 1 - pagamento em 36x")
                  escreval("Digite 2 - pagamento em 48x")
                  escreval("Digite 3 - pagamento em 60x")
                  prest1<-36
                  prest2<-48
                  prest3<-60

                  //pagamento em 36x
                  leia(opcao)
                  se (opcao=1) entao
                     situacao<-(valorsolicitado/prest1)
                     escreval("Valor da prestação atual",situacao)
                     se(situacao>apv) entao
                        escreval("Credito negado",situacao)
                     senao
                        se(situacao<apv) entao
                           escreval("Credito aprovado")
                           escreval("Valor da prestação em 36",situacao
                           //pagamento em 48x
                     senao(opcao=2) entao
                        situacao<-(valorsolicitado/prest2
                        escreval("Valor da prestação atual",situacao)
                        se (situacao>apv) entao
                           escreval ("Credito negado",situacao)
                        senao
                           se(situacao<apv) entao
                              escreval ("Credito aprovado")
                              escreval("Valor da prestação em 48", situacao)
                           fimse
                        fimse
                     fimse
                  fimse
               fimse
            fimse
         fimse
      fimse
   fimse

Fimalgoritmo

devair1010 · 11 de abril de 2022

@JonasM1 os comandos funcionam juntos um inicia e outro termina , assim o repita / ate , precisam tambem um do outro , e outra coisa eh que o visualG não informa exatamente o erro , mas diz que tem um erro e voce eh que precisa descobrir qual eh . e seu código corrigido e apenas para compilar poderia ser assim :

Algoritmo "meu terceiro código jonas"
Var
  senha,esc,opcao , veiculo , opc     : inteiro
  renda ,valor,prest1,prest2,prest3   : inteiro
  hilux,escv,formpg,valorsolicitado   : real
  login,v1,v2,v3,v4,v5,v6             : caractere
  v7,v8,v9,v10,nome,profissao         : caractere
  valorcliente , adevolver,situacao   : real
  valorveiculo , valordaparcela,apv   : real
  quantparcelas,quantparcelascomjuros : real
  valordaparcelacomjuros,taxadejuros  : real
Inicio
  senha<-2535
  login<-"LCC"
  //lista de veículos
  v1<-"hilux - 276.490"
  v2<-"bmw - 150.150"
  v3<-"celta - 30.000"
  v4<-"onix - 330.000"
  v5<-"camaro - 400.000"
  v6<-"gol - 10.000"
  v7<-"porsche - 100.000"
  v8<-"fusca -  350.000"
  v9<-"hb20 - 30.020"
  v10<-"mercedez - 600.000"
  //fim lista veiculos
  escreval("Seja bem vindo ao sistema de venda.")
  escreval("***********************************")
  //login e senha
  escreval("Digite o usuário:")
  leia(login)
  escreval("Digite a senha:")
  leia(senha)
  escreval("****************")
  se (login="LCC") entao
    escreval("Nome de usuário aceito.")
  senao
    escreval("Nome de usuário incorreto.")
  fimse
  se senha = "2535" entao
    escreval("Senha correta.")
  senao
    escreval("Senha incorreta.")
  fimse
  se (login="LCC") e (senha="2535") entao
    escreval("Usuário autenticado com sucesso.")
  senao
    escreval("Usuário não autenticado com sucesso.")
  fimse
  //fim do login e senha
  repita
    escreval("1 - Consulta")
    escreval("2 - Vender")
    escreval("3 - Sair")
    leia(esc)
    se esc = 1 entao
      escreval("Lista de veículos:")
      escreval(v1)
      escreval(v2)
      escreval(v3)
      escreval(v4)
      escreval(v5)
      escreval(v6)
      escreval(v7)
      escreval(v8)
      escreval(v9)
      escreval(v10)
    senao
      se esc = 2 entao
        escreval("1 - Compra a vista")
        escreval("2 - Compra cartão")
        escreval("3 - Financiamento")
        leia(opcao)
        se opcao = 1 entao
          escreval("Lista de veículos:")
          escreval(v1)
          escreval(v2)
          escreval(v3)
          escreval(v4)
          escreval(v5)
          escreval(v6)
          escreval(v7)
          escreval(v8)
          escreval(v9)
          escreval(v10)
          escreval("Informe valro repassado pelo cliente")
          leia(valorcliente)
          escreval("Informe o valor de veiculo")
          leia(valorveiculo)
          adevolver<-(valorcliente-valorveiculo)
          escreval("A devolver", adevolver)
          escreval("Parabéns! Volte sempere")
        senao
          se opcao = 2 entao
            escreval("Lista de veículos:")
            escreval(v1)
            escreval(v2)
            escreval(v3)
            escreval(v4)
            escreval(v5)
            escreval(v6)
            escreval(v7)
            escreval(v8)
            escreval(v9)
            escreval(v10)
            escreval("Informe a quantidade de parcelas")
            leia(quantparcelas)
            escreval("Informe valor do veículo")
            leia(valorveiculo)
            valordaparcela<-(valorveiculo/quantparcelas)
            escreval("Valor da parcela",valordaparcela)
            escreval("Parabéns! Volte sempre")
          senao
            se opcao = 3 entao
              escreval("Lista de veículos:")
              escreval(v1)
              escreval(v2)
              escreval(v3)
              escreval(v4)
              escreval(v5)
              escreval(v6)
              escreval(v7)
              escreval(v8)
              escreval(v9)
              escreval(v10)
              escreval("Informe a quantidade de parcelas.")
              leia(quantparcelascomjuros)
              escreval("Informe valor do veículo")
              leia(valorveiculo)
              valordaparcelacomjuros<-(valorveiculo/quantparcelascomjuros)+(valorveiculo*2)
              escreval("Valor da parcela com juros",valordaparcelacomjuros)
              escreval("Parabéns volte sempre")
            fimse
            //aprovação de credito
            escreval("Informe o nome do solicitante")
            leia(nome)
            escreval("profissão")
            leia(profissao)
            escreval("renda")
            apv<-(renda/3)
            escreval("Informe o valor solicitado pelo cliente")
            leia(valorsolicitado)
            escreval("Digite 1 - pagamento em 36x")
            escreval("Digite 2 - pagamento em 48x")
            escreval("Digite 3 - pagamento em 60x")
            prest1<-36
            prest2<-48
            prest3<-60
            //pagamento em 36x
            leia(opcao)
            se opcao = 1 entao
              situacao<-(valorsolicitado/prest1)
              escreval("Valor da prestação atual",situacao)
              se situacao > apv entao
                escreval("Credito negado",situacao)
              senao
                se situacao < apv entao
                  escreval("Credito aprovado")
                  escreval("Valor da prestação em 36",situacao
                  //pagamento em 48x
                senao
                  se opcao = 2 entao
                    situacao<-(valorsolicitado/prest2
                    escreval("Valor da prestação atual",situacao)
                    se  situacao > apv entao
                      escreval ("Credito negado",situacao)
                    senao
                      se situacao < apv entao
                        escreval ("Credito aprovado")
                        escreval("Valor da prestação em 48", situacao)
                      fimse
                    fimse
                  fimse
                fimse
              fimse
            fimse
          fimse
        fimse
      fimse
    fimse
  ate esc = 3
Fimalgoritmo

devair1010 · 11 de abril de 2022

@JonasM1 e outra coisa é que você está usando variáveis simples , que podem armazenar apenas um dado nela , e assim seu código precisa usar muitas variáveis e muitas linhas , e se você puder / Quiser / Souber usar vetores seria bem mais fácil e o código ficaria bem reduzido , veja um exemplo para Listar o nome dos carros :

  vetor_veiculos , continuar : vetor[1..20] de caractere
inicio
  vetor_veiculos[ 1] := "hilux ----: 276.490"   // inserir os dados no vetor
  vetor_veiculos[ 2] := "bmw ------: 150.150"   // do mesmo modo que nas variaveis simples
  vetor_veiculos[ 3] := "celta ----:  30.000"   // apenas precisa especificar a posicao no vetor
  vetor_veiculos[ 4] := "onix -----: 330.000"
  vetor_veiculos[ 5] := "camaro ---: 400.000"
  vetor_veiculos[ 6] := "gol ------:  10.000"
  vetor_veiculos[ 7] := "porsche --: 100.000"
  vetor_veiculos[ 8] := "fusca ----: 350.000"
  vetor_veiculos[ 9] := "hb20 -----:  30.020"
  vetor_veiculos[10] := "mercedez -: 600.000"
  se esc = 1 entao
    escreval("Lista de veículos:")
    escreval("escrito com vetor")
    escreval
    para i de 1 ate 10 faca             // o vetor tem dez posições q vai de 1 ate 10
      escreval(vetor_veiculos[i])       // escreve o que esta em todas as posições do vetor
    fimpara                             // volta no "para" enquanto i for menor ou iguaL a dez
    escreval("     Tecle Enter")        // uma pausa para ver o resultadp
    leia(continuar)                     // variavel continuar recebe um caractere digitado 
    escreval                            // mas não o usa para Nada
    escreval("escrito sem vetor")
    escreval
    escreval(v1)
    escreval(v2)
    escreval(v3)
    escreval(v4)
    escreval(v5)
    escreval(v6)
    escreval(v7)
    escreval(v8)
    escreval(v9)
    escreval(v10)
    escreval
  senao

  fimse