What’s wrong with my code?

Question

algoritmo "Calculadora"

Var
num1, num2, r: real
operacao: caractere

inicio

EscrevaL("Digite: ")
leia(num1, operacao, num2)

caso operacao "+"
r <- num1 + num2

caso operacao "-"
r <- num1 - num2

caso operacao "*"
r <- num1 * num2

caso operacao "/"
r <- num1 / num2

EscrevaL("Resultado:", r)

fimalgoritmo

Basically, it doesn’t have the right values, and how could I type in the direct operation, like, 2+2? I tried to do it there, so much so that I read three variables, and it didn’t work. I had to type like this: 2 + 2 So he would recognize, but, as the way I reported above, I could not do. I entered the value 3 + 3, resulted in 9, what am I missing? How can I improve code/fix?

Answer 1

There’s an error in the structure of your code.

To implement a CASE structure in Visualg you must declare it as follows:

choosing case ... child

Your correct code would look like this:

algoritmo "calculadora"
var
num1, num2, r: real
operacao: caractere

inicio
// Seção de Comandos
EscrevaL("Digite: ")
leia(num1, operacao, num2)

escolha operacao

caso "+"
r <- num1 + num2

caso "-"
r <- num1 - num2

caso "*"
r <- num1 * num2

caso "/"
r <- num1 / num2

fimescolha

EscrevaL("Resultado:", r)

fimalgoritmo

Look at the sections escolha operacao and fimescolha encapsulating the CASE structure.