VisualG Erro Outro caso não funciona

[Caiomqc]

Ola fiz um código teste e que a ideia era fazer uma calculadora só que quando o user digitasse um operador invalido aparecesse a mensagem de outro caso, mas não acontece, mesmo os outros casos sendo verdadeiros o outrocaso ainda e executado, alem de R(resultado) ficar em 0 

algoritmo "semnome"
var
   um,dois,r:real
   op:caractere
inicio
      escreva("Digite um algarismo : ")
      leia(um)
      escreva("Digite um operador : ")
      leia(op)
      escreva("Digite outro numero : ")
      leia(dois)
      escolha (op)
      caso"+"
             r <- um + dois
      caso"-"
             r <- um - dois
      caso"*"
             r <- um * dois
      caso"^"
             r <- um ^ dois
      caso"/"
             r <- um / dois
      outrocaso
               escreva("O operador e invalido")
      fimescolha
      escreva (um,op,dois," e igual a : ",r)
fimalgoritmo

 

[bngomes]

Na conheco o visual g.. mas em todas as linguagens que eu trabalhei.. o case (no, caso escolha) tem que ter um finalizador senão ele corre todos os casos... por exemplo, em Java seria:

switch(op)
{
	case '+': 
		r = um + dois;
		break;
	case '-':
		r = um - dois;
		break;
	default:
		printlf ("Erro");
}

sem esse break ele testa todas as condições inclusive o default (o equivalente ao outrocaso). começe por ai.

[Simon Viegas]

 

5 horas atrás, bngomes disse:

em todas as linguagens que eu trabalhei.. o case (no, caso escolha) tem que ter um finalizador

 

No VisualG não tem.

 

 

 

 

6 horas atrás, Caiomqc disse:

esmo os outros casos sendo verdadeiros o outrocaso ainda e executado

 

Após o comando caso é necessário ter um espaço (antes dos ").

 

 

 

 

6 horas atrás, Caiomqc disse:

alem de R(resultado) ficar em 0

 

Mesma causa raiz do anterior.

 

Dica: pressione Ctrl+G no VisualG para auto-indentação de código. Vá se acostumando com a indentação padrão, ou seja, como estava com esse erro (de não ter dado espaço), a indentação fica bagunçada.