Detectando se um número é par ou ímpar

[Picaxu_764 0]

Primeiro criaremos um procedimento chamado ImparOuPar com 1 parâmetro de número inteiro que vou chamar de N. Desse modo:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Dentro deste procedimento vamos colocar nosso código que levou muito tempo para ser desenvolvido, pois é um código perfeito, complexo e profissional:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Ficando assim:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Por enquanto nosso código só consegue detectar números que sejam menores ou iguais a 16.

Agora precisaremos chamar nosso procedimento. Para isso nós colocaremos esse simples código dentro de um botão:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Mude o número 5 para qualquer outro número igual ou menor que 16 que você queira saber se é par ou ímpar.

Agradecimentos ao meu professor Rogério Marcos que me ajudou a montar este código. Tivemos muita dificuldade, pois é um código muito complexo e profissional, mas conseguimos fazer graças ao nosso esforço e dedicação. Estamos desenvolvendo uma segunda versão dessa Source, com números que vão até 100. Ainda não podemos dar uma previsão de quando irá sair.

[XJapan 159]

Mds, estou com medo dessa gambiarra

Esse seu jeito logico é muito ruim

Faz algo mais simples

como:

 

if not(Odd(Their number)) then

ShowMessage('Par')

else

ShowMessage('Ímpar');

[I~Johnnie 33]

Boa Japan, nem eu mesmo sábia, obrigado por compartilhar!

[FreeAnGeL 2]

Tem a função MOD também, que diz o resto de uma divisão. Dá uma olhada nela pelo google, dá pra usá-la para muitas coisas além de saber se o número é par ou impar.

[inhetired 0]

hmm com MOD

 

if value mod 2 = 0 then

par

else impar

[Profanos 0]

Boa , Irá ajudar iniciantes na área.

[FrozenMix 31]

usa o mod (resto de divisão)

por definição todos pares são diviseis por 2 com resto 0 então (i mod = 0)

[Magnus97 7]

if random(9999) mod 2 = 0 then

showmessage('par')

else

showmessage('impar');

[MisterLyonel 0]

Isso é um sistema muito avançado, tem que ser cuidadoso para usar tal façanha, é muito perigoso cabeças podem voar se tentar se aprofundar nesse codigo, belo trabalho, sua façanha é de um Nível Inigualável. :nao: