Não consigo rodar a primeira linha de cálculo já dar erro VISUALG?

[Júnior B]

Alguém pode me ajudar,?

 

Não consigo rodar a primeira linha de cálculo já dar erro? no visual g

não sei se montei a estrutura errada.

 

 

?

me ajudem

algoritmo "CALCULAR JUROS"// Função :// Autor :Júnior// Data : 06/05/2015// Seção de Declarações var  VALORATUALIZADO:REAL  CALC1: REAL  CALC2:REAL  QTDATRASO:inteiro  QTDPARCELA:inteiro  RESPOSTA1:CARACTER  VRDEBITO:REAL  inicio// Seção de Comandos ESCREVAL("VALOR ORIGINAL DO DÉBITO?")LEIA(VRDEBITO)ESCREVAL("VOCÊ DESEJA PAGAR EM QUANTAS PARCELAS?")LEIA(QTDPARCELA)ESCREVAL("DEPOIS DE 30 DIAS VOCÊ TEM QUANTOS DIAS DE ATRASO, CASO TENHA INFORME A QUANTIDADE, SE NÃO INFORME 0")LEIA(QTDATRASO)ESCREVAL("ATRASO A MAIS DE 30 DIAS, SE SIM DIGITE 1 SE NÃO DIGITE 0?")LEIA(RESPOSTA1)SE (RESPOSTA1=1)então (CALC1 <- VRDEBITO + (VRDEBITO * 10 ) / 100 )se então (CALC2 <- CALC1 * (QTDATRASO * 0,33) / 100)se então (VALORATUALIZADO <- (CALC2 / QTDPARCELA))ESCREVAL("O VALOR ATUALIZADO É",VALORATUALIZADO)senaoESCREVAL("FIM DE CORREÇÃO DE VALOR DE DÉBITO") fimsefimalgoritmo

[PHSS]

Cara nao tentei fazer o exercicio mais estou vendo seu SE esta errada a estrutura, e também o ENTÃO na tem à .

 

Qualquer dúvida é só chamar.

[Júnior B]

Ajustei, valeu!! Porém ainda não está executando, tenta rodar na linguagem que você tem prática, pode me ajudar mais

no aguardo Valeu!!

 

 

 

 

 

se (RESPOSTA1=1) então CALC1<- VRDEBITO + (VRDEBITO * 10 ) / 100

senao CALC2 <- CALC1 * (QTDATRASO * 0,33) / 100

senao VALORATUALIZADO <- (CALC2 / QTDPARCELA)



ESCREVAL("O VALOR ATUALIZADO É",VALORATUALIZADO)



senao

ESCREVAL("FIM DE CORREÇÃO DE VALOR DE DÉBITO")

 fimse





fimalgoritmo

[PHSS]

Me passa o exercicio por que estou vendo erro na sua lógia por exemplo:

 

pelo que vi se a RESPOSTA1 = 1 o programa faz algo

Senao faz outra coisa

e você tem outro senao isto esta errado.

 

Por isso t peço me passa o exercicio e tento te ajudar.

[Júnior B]

Me passa o exercicio por que estou vendo erro na sua lógia por exemplo:

 

pelo que vi se a RESPOSTA1 = 1 o programa faz algo

Senao faz outra coisa

e você tem outro senao isto esta errado.

 

Por isso t peço me passa o exercicio e tento te ajudar.

 

http://pt.slideshare.net/leandroalvesmzz/lgica-de-programao-com-visu-alg nesse link página 34 

[Erick Pinheiro]

Não testei, verifique se esta correto.

algoritmo "CALCULAR JUROS"// Função :// Autor :Júnior// Data : 06/05/2015// Seção de Declaraçõesvar  VALORATUALIZADO:REAL  CALC1: REAL  CALC2:REAL  QTDATRASO:inteiro  QTDPARCELA:inteiro  RESPOSTA1:caractere  VRDEBITO:REALinicio// Seção de ComandosESCREVAL("VALOR ORIGINAL DO DÉBITO?")LEIA(VRDEBITO)ESCREVAL("VOCÊ DESEJA PAGAR EM QUANTAS PARCELAS?")LEIA(QTDPARCELA)ESCREVAL("DEPOIS DE 30 DIAS VOCÊ TEM QUANTOS DIAS DE ATRASO, CASO TENHA INFORME A QUANTIDADE, SE NÃO INFORME 0")LEIA(QTDATRASO)ESCREVAL("ATRASO A MAIS DE 30 DIAS, SE SIM DIGITE 1 SE NÃO DIGITE 0?")LEIA(RESPOSTA1)se (RESPOSTA1 = 1) então     CALC1 <- VRDEBITO + ((VRDEBITO * 10 ) / 100)     CALC2 <- CALC1 + (((VRDEBITO * 0.33) / 100) * QTDATRASO )     VALORATUALIZADO <- (CALC2 / QTDPARCELA)ESCREVAL("O VALOR ATUALIZADO É", QTDPARCELA ," VEZES DE: ", VALORATUALIZADO)se (RESPOSTA1 = 0) então    CALC1 <- VRDEBITO + ((VRDEBITO * 10 ) / 100)    VALORATUALIZADO <- (CALC1 / QTDPARCELA)    ESCREVAL("O VALOR ATUALIZADO É", QTDPARCELA ," VEZES DE: ", VALORATUALIZADO)senao ESCREVAL("Erro na Operacao")fimsefimalgoritmo 

Obs : tirar o til do então

Espero ter ajudado. 

[PHSS]

Cara eu mexi só na estrutura do seu código pois estava errado, a lógica é a sua.

 

O editor do Clube do Hardware não deixa colocar o então sem o tio(~) então quando você colar no visualG tira o tio beleza.

 

algoritmo "CALCULAR JUROS"// Função :// Autor :Júnior// Data : 06/05/2015// Seção de Declaraçõesvar  VALORATUALIZADO:REAL  CALC1: REAL  CALC2:REAL  QTDATRASO:inteiro  QTDPARCELA:inteiro  RESPOSTA1:caractere  VRDEBITO:REALinicio// Seção de ComandosESCREVAL("VALOR ORIGINAL DO DÉBITO?")LEIA(VRDEBITO)ESCREVAL("VOCÊ DESEJA PAGAR EM QUANTAS PARCELAS?")LEIA(QTDPARCELA)ESCREVAL("DEPOIS DE 30 DIAS VOCÊ TEM QUANTOS DIAS DE ATRASO, CASO TENHA INFORME A QUANTIDADE, SE NÃO INFORME 0")LEIA(QTDATRASO)ESCREVAL("ATRASO A MAIS DE 30 DIAS, SE SIM DIGITE 1 SE NÃO DIGITE 0?")LEIA(RESPOSTA1)SE (RESPOSTA1 = 1) então     CALC1 <- VRDEBITO + ((VRDEBITO * 10 ) / 100)     CALC2 <- CALC1 + (((VRDEBITO * 0.33) / 100) * QTDATRASO )     VALORATUALIZADO <- (CALC2 / QTDPARCELA)FIMSESE (RESPOSTA1 = 0) então    CALC1 <- VRDEBITO + ((VRDEBITO * 10 ) / 100)    VALORATUALIZADO <- (CALC1 / QTDPARCELA)fimse    ESCREVAL("O VALOR ATUALIZADO É", QTDPARCELA ," VEZES DE: ", VALORATUALIZADO)fimalgoritmo