Ajuda Visualg - "CASO"

[mgoncalv]

Galera,

mMeu problema é que as opções de casos não funcionam bem. Qualquer que seja o caso escolhido, o valor mostrado é sempre o discriminado para o primeiro caso. Alguém pode ajudar?

algoritmo "CRIANCAESPERANCA"
var
   D: Inteiro
   Valor: Real

inicio
      Escreval ("--------------------------")
      Escreval ("    CRIANCA ESPERANCA     ")
      Escreval ("--------------------------")
      Escreval ("   Obrigado por Ajudar!   ")
      Escreval ("--------------------------")
      Escreval ("         DIGITE:          ")
      Escreval ("   [1] Para doar R$ 10"    )
      Escreval ("   [2] Para doar R$ 25"    )
      Escreval ("   [3] Para doar R% 50"    )
      Escreval ("   [4] Para outros valores")
      Escreval ("   [5] Para cancelar"      )
      Escreval ("--------------------------")
      Escreva  ("   Escolha uma Opcao:"     )
      Leia (D)
      Escreval ("--------------------------")
      Escolha D
              Caso 1
                   Valor <- 10
              Caso 2
                   Valor <- 25
              Caso 3
                   Valor <- 50
              Caso 4
                   Escreval ("Qual o valor da doacao R$")
                   Leia (Valor)
              Caso 5
                   Valor <- 0
                   Escreval ("Mesmo assim muito obrigado")
      FimEscolha
      Escreval ("Sua doacao foi de R$ ",Valor, ".")
      Escreval ("    MUITO OBRIGADO!")
      Escreval ("--------------------------")
fimalgoritmo

[aguimarsp]

Em 08/11/2015 at 17:02, mgoncalv disse:

Galera,

mMeu problema é que as opções de casos não funcionam bem. Qualquer que seja o caso escolhido, o valor mostrado é sempre o discriminado para o primeiro caso. Alguém pode ajudar?

algoritmo "CRIANCAESPERANCA"
var
   D: Inteiro
   Valor: Real

inicio
      Escreval ("--------------------------")
      Escreval ("    CRIANCA ESPERANCA     ")
      Escreval ("--------------------------")
      Escreval ("   Obrigado por Ajudar!   ")
      Escreval ("--------------------------")
      Escreval ("         DIGITE:          ")
      Escreval ("   [1] Para doar R$ 10"    )
      Escreval ("   [2] Para doar R$ 25"    )
      Escreval ("   [3] Para doar R% 50"    )
      Escreval ("   [4] Para outros valores")
      Escreval ("   [5] Para cancelar"      )
      Escreval ("--------------------------")
      Escreva  ("   Escolha uma Opcao:"     )
      Leia (D)
      Escreval ("--------------------------")
      Escolha D
              Caso 1
                   Valor <- 10
              Caso 2
                   Valor <- 25
              Caso 3
                   Valor <- 50
              Caso 4
                   Escreval ("Qual o valor da doacao R$")
                   Leia (Valor)
              Caso 5
                   Valor <- 0
                   Escreval ("Mesmo assim muito obrigado")
      FimEscolha
      Escreval ("Sua doacao foi de R$ ",Valor, ".")
      Escreval ("    MUITO OBRIGADO!")
      Escreval ("--------------------------")
fimalgoritmo

Estou com o mesmo problema, você já conseguiu resolver esse código?

[aguimarsp]

Amigo mgoncalv, esse código roda sem problema na versão 2.5 do visual, mas na versão 3 mostra somente o primeiro valor, mesmo digitando quaisquer uma das opções. Neste caso o problema é resolvido mudando a variável "D" para caractere e as opções de Valor você coloca entre aspas. Funciona muito bem.

 Mudança na variável

De:

Var
	D: Inteiro

Para:

Var
	D: Caracter

Mudança nos "Caso"

De:

Escolha D
              Caso 1
                   Valor <- 10
              Caso 2
                   Valor <- 25
              Caso 3
                   Valor <- 50
              Caso 4
                   Escreval ("Qual o valor da doacao R$")
                   Leia (Valor)
              Caso 5
                   Valor <- 0
                   Escreval ("Mesmo assim muito obrigado")
FimEscolha

Para:

Escolha D
              Caso "1"     // Coloque o numero entre as ASPAS
                   Valor <- 10
              Caso "2"
                   Valor <- 25
              Caso "3"
                   Valor <- 50
              Caso "4"
                   Escreval ("Qual o valor da doacao R$")
                   Leia (Valor)
              Caso "5"
                   Valor <- 0
                   Escreval ("Mesmo assim muito obrigado")
FimEscolha

 Teste e veja se funciona...