Samuel Fortes Brasil

var contador: Inteiro Inicio contador <– 1 repita Escreval(contador) contador <- contador + 1 Ate (contador = 10) FimDoAlgoritmo @Ansi C Muito obrigado por explicar esse caso, mas tem mais uma situação que não entendo.Esse outro algoritmo conta até o 9 mesmo dizendo para parar a repetição quanto ficar igual a 10, por que isso ocorre ?

Boa tarde gente! Há alguns dias fiz um algoritmo de contador, deu super certo! Só que vi um comportamento dele que me deixou confuso e não consigo entender o porque disso ocorrer! Algoritmo "contador inteligente (algoritmo 003)" Var valorInicial,valorFinal,contPersonalizada:Inteiro Inicio Escreval("-----------------------------") Escreval(" CONTADOR INTELIGENTE ") Escreval("-----------------------------") Escreval("Qual o valor inicial da contagem? ") Leia(valorInicial) EscrevaL("Até quando o contador deverá contar? ") Leia(valorFinal) Escreval("-----------------------------") Escreval("Pretende fazer uma contagem(normal ou regressiva) de quanto em quantos números?") Escreval("Por exemplo: 1 + 2 ao invés de 1 + 1.") Leia(contPersonalizada) Escreval("-----------------------------") Se (valorInicial < valorFinal) então Enquanto valorInicial < valorFinal faca Escreval(valorInicial) valorInicial <- valorInicial + contPersonalizada FimEnquanto FimSe Se (valorFinal < valorInicial) então Enquanto valorFinal < valorInicial faca Escreval(valorInicial) ValorInicial <- ValorInicial - contPersonalizada FimEnquanto FimSe Fimalgoritmo O objetivo desse algoritmo é pedir um número inicial e um final para o usuário e fazer uma contagem crescente ou decrescente, só que notei que se eu desse o valor inicial 1 e pedisse para o algoritmo contar até o valor final 10, a contagem iria do 1 ao 9, alguém poderia me explicar porque isso ocorre ? Já tentei entender mas não consegui hahahaha Se puderem dar uma pequena traduzida nas explicações, eu agradeço

@Ansi C Mas porque porque o visualg aponta o erro no SE ? To achando meio complicado esse software hahaha

@devair1010 Desculpe mas ainda não entendi o motivo do problema, hoje eu fui continuar os meus estudos e criei um novo algoritmo no visualg, Var turma:Inteiro N1,N2,N3,N4,N5:Inteiro Nota:Real Inicio Escreval("-----------------------------------") Escreva("Quantos alunos a turma possui: ") Leia(turma) Escreval("-----------------------------------") Enquanto turma > 5 faca Escreval("Não é possível criar registro de uma turma") Escreval("com mais de 5 alunos.Por favor informe um número menor!") Escreva("Informe um novo valor: ") Leia(turma) Escreval("-----------------------------------") FimEnquanto //Fim da primeira etapa do algoritmo Escolha turma caso 1 Escreva("Qual é o nome do(a)Aluno(a): ") Leia(N1) Escreva("Nota: ") Leia(Nota) caso 2 Escreva("Qual é o nome do(a)Aluno(a): ") Leia(N1) Escreva("Nota: ") Leia(Nota) Escreva("Qual é o nome do(a)Aluno(a): ") Leia(N2) Escreva("Nota: ") Leia(Nota) caso 3 Escreva("Qual é o nome do(a)Aluno(a): ") Leia(N1) Escreva("Nota: ") Leia(Nota) Escreva("Qual é o nome do(a)Aluno(a): ") Leia(N2) Escreva("Nota: ") Leia(Nota) Escreva("Qual é o nome do(a)Aluno(a): ") Leia(N3) Escreva("Nota: ") Leia(Nota) caso 4 Escreva("Qual é o nome do(a)Aluno(a): ") Leia(N1) Escreva("Nota: ") Leia(Nota) Escreva("Qual é o nome do(a)Aluno(a): ") Leia(N2) Escreva("Nota: ") Leia(Nota) Escreva("Qual é o nome do(a)Aluno(a): ") Leia(N3) Escreva("Nota: ") Leia(Nota) Escreva("Qual é o nome do(a)Aluno(a): ") Leia(N4) Escreva("Nota: ") Leia(Nota) caso 5 Escreva("Qual é o nome do(a)Aluno(a): ") Leia(N1) Escreva("Nota: ") Leia(Nota) Escreva("Qual é o nome do(a)Aluno(a): ") Leia(N2) Escreva("Nota: ") Leia(Nota) Escreva("Qual é o nome do(a)Aluno(a): ") Leia(N3) Escreva("Nota: ") Leia(Nota) Escreva("Qual é o nome do(a)Aluno(a): ") Leia(N4) Escreva("Nota: ") Leia(Nota) Escreva("Qual é o nome do(a)Aluno(a): ") Leia(N5) Escreva("Nota: ") Leia(Nota) FimEscolha Escreval("-----------------------------------") Se (Nota > MaiorNota) então MaiorNota <- nota FimSe O mesmo problema agora fica aparecendo nesse último SE do código, o programa esperava encontrar a palavra "então", não consigo compreender o que está errado.

@Ansi C Valeu por responder! Mas porque a estrutura não funciona com os parênteses ? E porque o contador contou de 10 a 14 e não de 10 a 15 ? Só isso eu não entendi mesmo.

Boa tarde gente! Estou com um problema em relação a estruturas de repetição no visualg, sempre que executo os código que contenham essa estrutura, o programa aponta um erro de sintaxe "esperava encontrar FACA". Só que o problema é que já tentei corrigir de várias maneiras reescrevendo o código mas não tive sucesso, alguém poderia me dizer se estou fazendo algo errado ? Algoritmo "semnome" Var valorInicial,valorFinal,contPersonalizada:Inteiro Inicio Escreval("-----------------------------") Escreval(" CONTADOR INTELIGENTE ") Escreval("-----------------------------") Escreval("Qual o valor inicial da contagem? ") Leia(valorInicial) EscrevaL("Até quando o contador deverá contar? ") Leia(valorFinal) Escreval("-----------------------------") Escreval("Pretende fazer uma contagem(normal ou regressiva) de quanto em quantos números?") Escreval("Por exemplo: 1 + 2 ao invés de 1 + 1.") Escreval("Resposta.: ") Leia(contPersonalizada) Se (valorInicial > 0) então Enquanto(valorInicial < valorFinal) faca Escreval(valorInicial) valorInicial <- valorInicial + contPersonalizada FimEnquanto FimSe Se (valorFinal > valorInicial) então Enquanto (valorFinal >= valorInicial) faca Escreval(valorFinal) valorFinal <- valorFinal - contPersonalizada FimEnquanto FimSe Fimalgoritmo

@Ansi C Agradeço pela resposta e por apontar outras falhas no algoritmo! Coloquei uma verificação que se as parcelas forem maior que zero realize a divisão, deu muito certo. Muito Obrigado!

Boa tarde gente! Estou iniciando na programação e já me deparei com um erro que não sei como resolver, estou aprendendo a lógica na linguagem portugol e só não consigo finalizar o código,alguém poderia me dizer como resolver ? Me perdoem se for um erro ***** hahaha Algoritmo "semnome" Var dinheiro,juros,jurostotais:Real parcelas:Inteiro valorPorParcela:Real Inicio Escreva("Quanto dinheiro vou pegar ?") leia(dinheiro) juros <- (dinheiro * 20)/100 jurostotais <- dinheiro + juros Escreva("Com juros de 20%, pagarei R$", jurostotais) Escreva(/n"Vou pagar em quantas parcelas ?") leia(parcelas) valorPorParcela <- jurostotais/parcelas Escreva("Cada parcela terá o valor de:",valorPorParcela") Fimalgoritmo