Algoritmo - VisuAlg

[HENRIQUE_PLZ 0]

Boa tarde, estava escrevendo um algoritmo no VisuAlg e ele não está rodando, está dando um erro no SELECIONE, mas não vejo o erro.

Gostaria que me ajudassem por favor.

 

Segue o código:

algoritmo "calc"

var
n1, n2, total: real
operador : caracter

inicio
// Seção de Comandos

Escreva("Entre com o primeiro valor: ")
  Leia(n1)
    Escreva("Entre com o segundo valor: ")
       Leia(n2)
          Escreva("Informe a operação que deseja realizar: ")
             Leia(operador)
                Selecione operador
                                Caso + :
                                      total <- n1 + n2
                                        Escreva("O valor da soma é: ", total)
                                Caso - :
                                            total <- n1 - n2
                                               Escreva("O valor da subtração é:" , total)
                                Caso * :
                                                total <- n1 * n2
                                                   Escreva("O valor da multiplicação é:" , total)
                                Caso / :
                                                         total <- n1 / n2
                                                                Escreva("O valor da divisão é: " , total)
                                Caso Contrario:
                                                                        Escreva("Opção Errada")
                Fim Selecione
Fim

[quitZAUMMM 18]

operador é do tipo caracter..

naum mecho com visualg + tente assim

 

caso '+': 
.
.

[duketux 0]

Tente isso aqui amigão:

var

n1, n2, total: real
operador : caracter

inicio
// Seção de Comandos

Escreva("Entre com o primeiro valor: ")
Leia(n1)
Escreva("Entre com o segundo valor: ")
Leia(n2)
Escreva("Informe a operação que deseja realizar: ")
Leia(operador)
escolha operador
Caso "+"
total <- n1 + n2
Escreva("O valor da soma é: ", total)
Caso "-"
total <- n1 - n2
Escreva("O valor da subtração é:" , total)
Caso "*"
total <- n1 * n2
Escreva("O valor da multiplicação é:" , total)
Caso "/"
total <- n1 / n2
Escreva("O valor da divisão é: " , total)
outrocaso
Escreva("Opção Errada")
Fimescolha

espero que ajude, abraços!

[Mário Monteiro 179]

Olá duketux,

 

Obrigado por compartilhar seu conhecimento conosco.

 

Continue contribuindo respondendo os tópicos mais recentes.

 

Abraços

 

Mário Monteiro