UN CHIFFRE EST IL PAIR OU PAS (FONCTION)
cs_Jos
Messages postés
128
Date d'inscription
mardi 26 juin 2001
Statut
Membre
Dernière intervention
8 février 2005
-
4 avril 2002 à 17:46
DelphiCool Messages postés 455 Date d'inscription mardi 24 juillet 2001 Statut Membre Dernière intervention 10 mars 2009 - 11 juil. 2002 à 19:10
DelphiCool Messages postés 455 Date d'inscription mardi 24 juillet 2001 Statut Membre Dernière intervention 10 mars 2009 - 11 juil. 2002 à 19:10
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/11833-un-chiffre-est-il-pair-ou-pas-fonction
https://codes-sources.commentcamarche.net/source/11833-un-chiffre-est-il-pair-ou-pas-fonction
11 juil. 2002 à 19:10
29 juin 2002 à 18:32
Function Paire(Value:INteger):Boolean;
begin
Paire:=((Value Div 2)=(Value/2));
end;
10 avril 2002 à 23:57
function EstPair(n:integer):boolean;
begin
Result :(n mod 2) 0;
end;
4 avril 2002 à 19:30
4 avril 2002 à 18:18
je l'ai appris ce matin
puis pour le modulo tu as raison
4 avril 2002 à 17:46
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!! ;-)