F�rum Identificar Par ou Impar #386703

20/09/2010

Delphi

Como fa�o para identificar se um n�mero � par ou impar?

Luiz Junior

Curtir t�pico

+ 0

Responder

Posts

20/09/2010

Junior Miranda

if ((SeuParametro mod 2) = 0) then
 Showmessage('Par')
else
   Showmessage('Impar')  ;

[]'s

Responder

Gostei + 0

20/09/2010

F�bio Cruz

If Odd(i) then
  ShowMessage('Impar')
else
    ShowMessage('Par');

Responder

Gostei + 0

20/09/2010

Deivison Melo

Existe uma fun��o aqui no pr�prio site: Verificando se um inteiro � par ou �mpar Implemente uma fun��o com o seguinte c�digo: function ParImpar(aNum: Integer): Boolean; begin Result := ((aNum div 2) = (aNum/2)); end ; Para testar, basta utilizar o seguinte c�digo: if ParImpar(5) then ShowMessage('Par') else ShowMessage('�mpar'); Caminho da dica: https://www.devmedia.com.br/post-939-Dicas-Verificando-se-um-inteiro-e-par-ou-impar.html download do exemplo: http://www.clubedelphi.net/dicamacete/ParImpar.zip Abra��o, Emanoel Deivison Recife - PE

Responder

Gostei + 0

20/09/2010

Deivison Melo

Pode tamb�m inverter a l�gica mencionada em um dos posts acima: if not(Odd(valor)) then // onde valor e o valor que deseja verificar!!!
ShowMessage('par');
else
ShowMessage('�mpar');

Responder

Gostei + 0