Diminuir código que verifica número é par ou ímpar

[Rafael Duarte]

esse é um exercicio que fiz, e que funciona, mas é que acho que é possivel diminuir, porque ele tá muito grande, só queria umas dicas pra diminur, também pra eu aprender caso precise fazer outros exercicios parecidos

algoritmo "exercicio"
// Função : ler 3 numeros e exibir VERDADEIRO se o maior numero for par ou se o menor numero for impar
//caso contrário exibir FALSO
// Autor :
// Data : 4/8/2009
// Seção de Declarações 
var
n1, n2, n3: inteiro
maior, menor: inteiro
r: inteiro
inicio
escreva ("Digite o 1º numero:")
leia (n1)
escreva ("Digite o 2º numero:")
leia (n2)
escreva ("Digite o 3º numero:")
leia (n3)
se (n1>n2) e (n1>n3) então
 maior <- (n1)
senao
 se (n2>n1) e (n2>n3) então
  maior <- (n2)
 senao
  se (n3>n1) e (n3>n2) então
   maior <- (n3)
fimse
fimse
fimse
se (n1<n2) e (n1<n3) então
 menor <- (n1)
senao
 se (n2<n1) e (n2<n3) então
  menor <- (n2)
 senao
  se (n3<n1) e (n3<n2)então
   menor <- (n3)
fimse
fimse
fimse
r <- maior mod 2
 se (r=0) então
  escreval ("VERDADEIRO")
 senao
  r <- menor mod 2
   se (r<>0) então
    escreval ("VERDADEIRO")
   senao
    escreval ("FALSO")
 fimse
 fimse
fimalgoritmo

Editado Agosto 5, 2009 por Jonathan Queiroz
Título editado conforme a regra 3.6 (Jonathan)

[raphael_suporte]

você pode diminuir sim seu código, uma parte é usar um loop para entrada de dados, outra é na comparção de qual é maior, você compara muitas vezes sem necessidade

algoritmo "exercicio"
// Função : ler 3 numeros e exibir VERDADEIRO se o maior numero for par ou se o menor numero for impar
//caso contrário exibir FALSO
// Autor :
// Data : 4/8/2009
// Seção de Declarações 
var
n1, n2, n3: inteiro
maior, menor: inteiro
r: inteiro
inicio
//aqui eu concateno o nome da variável aproveitando o loop
para i =1 ate 3 faca
     escreva ("Digite o ", i, "º numero:")
     leia (n+i)
proximo i


// podemos colocar um "se" dentro de outro para enxugar a quandidade de comparações
// uma outra observação é que se todos forem iguais o seu programa não acusa

se (n1>n2) e (n1>n3) então
  maior <- (n1)
senao
    se (n2>n3) então
         maior <- (n2)
     senao
        maior <- (n3)
     fimse
fimse


se (n1<n2) e (n1<n3) então
 menor <- (n1)
senao
 se (n2<n3) então
     menor <- (n2)
 senao
       menor <- (n3)
  fimse
fimse

r <- maior mod 2
 se (r=0) então
  escreval ("VERDADEIRO")
 senao
  r <- menor mod 2
   se (r<>0) então
    escreval ("VERDADEIRO")
   senao
    escreval ("FALSO")
 fimse
 fimse
fimalgoritmo

não entendi o final do código para o que serve, mas acho que o que você queria isso pode ajudar

[Rafael Duarte]

//aqui eu concateno o nome da variável aproveitando o loop
para i =1 ate 3 faca
     escreva ("Digite o ", i, "º numero:")
     leia (n+i)
proximo i

eu uso o visualg, da erro de que o visualg esperava encontrar um argumento tipo INTEIRO(como variavel de controle do PARA...FACA) :wacko:

[raphael_suporte]

//aqui eu concateno o nome da variável aproveitando o loop
para i =1 ate 3 faca
     escreva ("Digite o ", i, "º numero:")
     leia (n+i)
proximo i

eu uso o visualg, da erro de que o visualg esperava encontrar um argumento tipo INTEIRO(como variavel de controle do PARA...FACA) :wacko:

tenta assim:

para i  de 1 ate 3 faca
     escreva ("Digite o ", i, "º numero:")
     leia (n+i)
proximo i

[Rafael Duarte]

//aqui eu concateno o nome da variável aproveitando o loop
para i =1 ate 3 faca
     escreva ("Digite o ", i, "º numero:")
     leia (n+i)
proximo i

eu uso o visualg, da erro de que o visualg esperava encontrar um argumento tipo INTEIRO(como variavel de controle do PARA...FACA) :wacko:

tenta assim:

para i  de 1 ate 3 faca
     escreva ("Digite o ", i, "º numero:")
     leia (n+i)
proximo i

coloquei i como variavel e resolveu, so que agora da erro de sintaxe na parte

leia (n+i)