VisualG Exercício 36 do Curso de Algoritmos - CURSO EM VÍDEO

[NaieleF]

Algoritmo "Exercicio.36"
var
   horas, SomaPontos: inteiro
   Saldo: real
inicio
   Escreval ("  ")
   Escreval ("•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••")
   Escreval("                   Programa Vida Saudável             ")
   Escreval ("••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••")
   Escreval ("")
   Escreva(" Cada hora de atividade física mensal vale pontos que podem ser ")
   Escreval("trocados por dinheiro! $")
   Escreval (" Quanto mais horas gastas se exercitando, mais você ganha!")
   Escreval ("     ----------------------------------------------------")
   Escreval ("  ")
   Escreval ("Funciona assim: ")
   Escreval ("  -> ATÉ 10H DE ATIVIDADE NO MÊS: ganha 2 pontos/hora ")
   Escreval ("  -> DE 10 ATÉ 20H NO MÊS: ganha 5 pontos/hora ")
   Escreval ("  -> ACIMA DE 20H NO MÊS : ganha 10 pontos/hora ")
   Escreval (" A cada ponto ganho, você fatura R$0,05 (5 centavos)! ")
   Escreval ("  ")
   Escreval ("    -----------------------------------------------------")
   Escreva ("Horas de exercício no mês: ")
   Escreval ("  ")
   Leia (horas)
   Se (horas<10) então
      SomaPontos<-(horas*2)
   Senao
      Se (horas>=10) e (horas<=20) então
         SomaPontos<-(horas*5)
      Senao
         Se (horas>20) então
            SomaPontos<-(horas*10)
         FimSe
      FimSe
   FimSe
   Saldo<-(SomaPontos*0.05)
   Escreval ("------------------------------------------")
   Escreval ("SALDO DE PONTOS: ",SomaPontos)
   Se (Saldo<1.0) então
      Escreval ("Você ganhou R$ ",Saldo:1:2, " centavos")
   Senao
      Se (Saldo>1.0) então
         Escreval ("Você ganhou R$ ",Saldo:1:2, " reais")
      FimSe
   FimSe
   Escreval ("-------------------------------------------")
   Escreva ("PARABÉNS! ")
   Escreva ("Uma vida saudável é crucial para o bem-estar e longevidade! :)")
fimalgoritmo

 

[devair1010]

@NaieleF    seu código funciona bem , apesar de ter um  erro no enunciado , que diz 

Em 06/07/2024 às 12:20, NaieleF disse:

Escreval ("  -> ATÉ 10H DE ATIVIDADE NO MÊS: ganha 2 pontos/hora ")
Escreval ("  -> DE 10 ATÉ 20H NO MÊS: ganha 5 pontos/hora ")

 

pois até 10 significa que o 10 esteja incluído ,   e em seguida diz de 10 até 20 ,  que significa que o 10 e 0 20 esteja incluídos ,  e  você colocou  nos comandos alguns símbolos , como esses "( ) " ,  que não precisam , e também  há algum bug no visualG que ao escrever muitas linhas na tela e e com o leia em seguida ele volta o cursor por sobre a última linha ,

e seu código ficaria assim :

Algoritmo "curso_em_video_Exercicio.36"
var
   horas, SomaPontos : inteiro
   Saldo                : real
inicio
   Escreval
   Escreval ("••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• ")
   Escreval ("                   Programa Vida Saudável                   ")
   Escreval ("••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••")
   Escreval
   Escreva  (" Cada hora de atividade física mensal vale pontos que podem ser ")
   Escreval ("trocados por dinheiro! $"                                    )
   Escreval (" Quanto mais horas gastas se exercitando, mais você ganha!  ")
   Escreval ("     ----------------------------------------------------   ")
   Escreval
   Escreval ("Funciona assim: "                                            )
   Escreval ("  -> ATÉ 10H DE ATIVIDADE NO MÊS: ganha 2 pontos/hora "      )
   Escreval ("  -> DE 10 ATÉ 20H NO MÊS: ganha 5 pontos/hora "             )
   Escreval ("  -> ACIMA DE 20H NO MÊS : ganha 10 pontos/hora "            )
   Escreval (" A cada ponto ganho, você fatura R$0,05 (5 centavos)! "      )
   Escreval
   Escreval ("    -----------------------------------------------------"   )
   Escreval ("Horas de exercício no mês: "                                 )
   Escreva  ("-->> "                                                       )
   Leia     ( horas )
   Se horas < 10  então  // apenas uma comparaCAo não precisa desse "()"
      SomaPontos <- horas * 2
   Senao
      Se (horas>=10) e (horas<=20) então // aqui duas comparaCPes precisa desses "()"
         SomaPontos <- horas * 5
      Senao
         Se horas>20  então
            SomaPontos <- horas * 10
         FimSe
      FimSe
   FimSe
   Saldo <- SomaPontos * 0.05
   Escreval ("------------------------------------------")
   Escreval ("SALDO DE PONTOS: ",SomaPontos)
   Se Saldo < 1.0 então
      Escreval ("Você ganhou R$ ",Saldo:1:2, " centavos")
   Senao
      Se Saldo > 1.0 então
         Escreval ("Você ganhou R$ ",Saldo:1:2, " reais")
      FimSe
   FimSe
   Escreval ("-------------------------------------------")
   Escreval ("PARABÉNS! ")
   Escreva ("Uma vida saudável é crucial para o bem-estar e longevidade! :)")
fimalgoritmo

 

[NaieleF]

Obrigada pela correção! 

[Simon Viegas]

@NaieleF, dá também uma ajustada nos textos das respostas finais.

 

Em 06/07/2024 às 12:20, NaieleF disse:

   Se (Saldo<1.0) então
      Escreval ("Você ganhou R$ ",Saldo:1:2, " centavos")
   Senao
      Se (Saldo>1.0) então
         Escreval ("Você ganhou R$ ",Saldo:1:2, " reais")
      FimSe
   FimSe

 

A informação que é "moeda em Real" está duplicada.

 

 

 

Ou "Você ganhou R$ 2.50", ou "Você ganhou 2.50 reais".

 

 

 

Ou "Você ganhou R$ 0.10", ou "Você ganhou 10 centavos". (Obs.: dizer 0.10 centavos seria errado.)