UN CHIFFRE EST IL PAIR OU PAS (FONCTION)

Commentaire de Jos le 04/04/2002 17:46:02

Hum, je ne connaissais pas "odd"!  Merci bien pour cette découverte!!  ;-)

Par contre, pour ta foncntion, je procèderais plutôt ainsi :

function EstPair(const VotreChiffre :integer):boolean;
var i :integer;
    begin
       if VotreChiffre mod 2 = 0 then result := True
       else result = false;
    end;

À mon avis, c'est un brin plus optimisé, mais je peux me gourrer, remarque!!  ;-)

Commentaire de koko le 04/04/2002 19:30:31

c vraiment marrant... j'avais posé cette question sur un forum ce matin... et la fonction que je vois ici est exactement la même...

Commentaire de RoProg le 29/06/2002 18:32:59

moi j'utilise plutôt cette fonction :
Function Paire(Value:INteger):Boolean;
begin
    Paire:=((Value Div 2)=(Value/2));
end;