VisualG Não aparece a resposta no VisualG

[Herbet]

Estava tentando resolver o seguinte problema:

Faça um algoritmo que leia um nº inteiro e mostre uma mensagem indicando se este número é par ou ímpar, e se é positivo ou negativo.

 

Fiz o algoritmo, mas quando coloco um número ímpar e negativo não aparece nada escrito, sendo que em todas as outras condições dá certo.

var
   num :inteiro
inicio
   escreva ("Digite um número: ")
   leia  (num)
   
   se (num%2 = 0) e (num > 0) então
      escreval (num, " é par e positivo")
   senao
      se (num%2 = 0) e (num < 0) então
         escreval (num, " é par e negativo")
      senao
         se (num%2 = 1) e (num > 0) então
            escreval (num, " é ímpar e positivo")
         senao
            se (num%2 = 1) e (num < 0) então
               escreval (num, " é ímpar e negativo")
            fimse
         fimse
      fimse
   fimse

 

 

Queria que descobrissem onde eu tô errando

 

 

 

[devair1010]

@Herbet    só no ultimo se está com um erro pois se 

(num % 2 = 1)e (num < 0 ) 

então num % 2 não será 1 e sim -1 , assim você precisa colocar esse -1 no lugar do  1 ou colocar  num % 2 <> 0 no lugar do num % 2 = 1

[Herbet]

@devair1010  Ahh valeu pela ajuda ^^

[Simon Viegas]

Olá.

 

Importante: @Herbet, além desse ponto relatado por @devair1010, informei 0 (zero) e não deu alguma resposta. Zero é número inteiro também, concorda? Precisa tratar esse caso.

 

 

Da forma que você fez (com a correção) ficou muito bom... mas também poderia fazer, por exemplo, separando por categorias, algo como:

- quando igual a zero;

- quando maior que zero;

- quando menor que zero.

 

Para o primeiro apenas dá a resposta e para cada um dos 2 últimos verifica se é par ou ímpar e dá a respectiva resposta.

 

Lembrando que a forma que você fez ficou bom, falta apenas tratar o zero... este exemplo acima seria uma forma "diferente" de fazer a mesma coisa. Se quiser tentar para treinar, fique a vontade.

 

No aguardo.