Ir ao conteúdo
  • Cadastre-se

Júnior B

Membro Júnior
  • Posts

    3
  • Cadastrado em

  • Última visita

posts postados por Júnior B

  1. 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

  2. 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

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!