dolkew

olá boa noite, boa tarde e bom dia, o sistema está praticamente pronto sendo que só encontrei um problema, quando digito 2 que é o número da opção para sair do programa, ele não sai, mesmo eu tendo colocado o comando "interrompa" (acabei tirando), ele mostra os números sorteados e encerra o programa. algoritmo "Exercício 7" const QTD_CARTELAS = 10 var cartelas: vetor[1..QTD_CARTELAS, 1..6] de inteiro i, j, c : inteiro numeroSorteado : inteiro unico : logico inicio escreval("Você deseja comprar?") escreval("[1] - Sim") escreval("[2] - Não") escreval() leia(opcao) escreval() para i de 1 ate QTD_CARTELAS faca para j de 1 ate 6 faca unico <- FALSO enquanto não unico faca numeroSorteado <- RandI(96)+1 unico <- VERDADEIRO para c de 1 ate 6 faca se cartelas[i,c] = numeroSorteado entao unico <- FALSO fimSe fimPara fimEnquanto cartelas[i,j] <- numeroSorteado fimPara fimPara para i de 1 ate QTD_CARTELAS faca para j de 1 ate 6 faca escreva (cartelas[i,j]:3) fimPara escreval("") fimPara fimAlgoritmo

Bom dia, boa tarde e boa noite, quero que me ajudem, estou iniciando agora no VisualG, e peço que me ajudem, um professor pediu para eu fazer um sistema de bilhete mega-sena e também um sistema de venda (apenas dinheiro) Algoritmo "exercicio 7" //gera a repetiçao de 5x de dois vetores com números aleatórios (função) //usados para gerar bolões em loterias Var cartela: vetor[0..4,0..4] de inteiro i,j,m,n,numero,controlador:inteiro login, senha,esc:inteiro Inicio escreval("Seja bem vindo a loteria do João") //inicio de login e senha escreval() escreval("Digite o usuário:") leia(login) escreval("Digite a senha:") leia(senha) 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 de login e senha escreval() escreval("Você deseja comprar?") escreval("[1] - Sim") escreval("[2] - Não") escreval() leia(esc) escreval() para i de 0 ate 4 passo 1 FACA para j de 0 ate 4 passo 1 FACA numero <- randi(99) //gera número aleatória controlador <- 0 //controlador para verificar se o número já foi inserido enquanto controlador = 0 faca controlador <- 1 //bloco para verificar toda a matriz para m de 0 ate 4 passo 1 FACA para n de 0 ate 4 passo 1 FACA se cartela[m,n] = numero entao //caso o número já exista numero <- randi(99) //gera o novo número aleatório controlador <- 0 //reinicia o controlador para verificar se o novo número existe fimse fimpara fimpara fimenquanto cartela[i,j] <- numero //ao sair do enquanto, é garantido que o número não existe na matriz então adiciona esse número a matriz fimpara fimpara para i de 0 ate 4 faca 1 FACA para j de 0 ate 4 faca 1 FACA escreva(cartela[i,j]) fimpara escreval() fimpara Fimalgoritmo

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

Olá! boa tarde, pessoal. Eu sou novo na programação e novo nesse site também (se eu estiver cometendo algum erro me avisem) e eu queria ajudar de vocês, porque eu não estou conseguindo fazer um sistema de vendas no meu VisualG. O meu professor pediu para nós fazemos isso, mas não estou conseguindo mesmo. Se vocês puderem me ajudar em algum erro estarei grato. Não quero que mandem o código para mim, quero que apenas me ajudem. Algoritmo "meu terceiro código jonas" Var opcao: inteiro senha: inteiro veiculo: inteiro escv,formpg:real hilux:real Inicio hilux <- 300000 repita escreval() escreval("1 - Cadastrar a sua senha.") escreval("2 - Entrar no sistema.") escreval("3 - Sair do programa.") escreval() leia (opcao) se (opcao = 1) entao escreval("Por favor, informe uma senha com apenas número.") leia(senha) escreval("Senha cadastrada com sucesso:",senha) senao se (opcao = 2) entao escreval("Seja bem vindo ao sistema de compra de veículos.") escreval("1 - Comprar.") escreval("2 - Consultar.") escreval("3 - Sair do programa.") leia (veiculo) senao se (veiculo=1) entao escreval ("Escolha um veículo.") escreval ("Código 01 - Hílux: R$300,000") escreval ("Código 02 - BMW: R$350,000") escreval ("Código 03 - Celta: R$8,000") escreval ("Código 04 - Onix: R$200,000") escreval ("Código 05 - Camaro: R$350,000") escreval ("Código 06 - Gol: R$10,000") escreval ("Código 07 - Corolla: R$450,000") escreval ("Código 08 - Panamera: R$500,000") escreval ("Código 09 - Porsche 911: R$440,000") escreval ("Código 10 - Porsche Macan: R$230,000") leia (escv) se (escv=1) entao //sistema de vendas escreval ("Informe a forma de pagamento.") escreval (" 1 - Vista") escreval ("2 - Cartão") escreval ("3 - Financiado") leia (formpg) escreval("Valor do veículo:",hilux) senao se(veiculo=2) entao escreval("Lista de veículos:") escreval ("Escolha um veículo.") escreval() escreval("Hílux") escreval ("BMW") escreval ("Celta") escreval ("Onix") escreval ("Camaro") escreval ("Gol") escreval ("Corolla") escreval ("Panamera") escreval ("Porsche 911") escreval ("Porsche Macan: ") senao se (veiculo=3) entao escreval("Sair.") fimse fimse fimse fimse fimse fimse ate (opcao = 0) Fimalgoritmo