Un chiffre est il pair ou pas (fonction)

Soyez le premier à donner votre avis sur cette source.

Vue 3 902 fois - Téléchargée 172 fois

Description

Cette fonction retourne True si le chifre est pair

Source / Exemple :


function EstPair(const VotreChiffre :integer):boolean;
 var i :integer;
  begin
   result := false;

   i := VotreChiffre div 2;

   if i * 2 = VotreChiffre Then result := True;
  end;
  

ou la fonction ODD de delphi

   if  Odd(strtoint(edit1.Text)) = false  then
        label1.Caption := 'oui'
        else label1.Caption := 'non';

Conclusion :


www.progzed.com

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
455
Date d'inscription
mardi 24 juillet 2001
Statut
Modérateur
Dernière intervention
10 mars 2009

lol
Messages postés
7
Date d'inscription
lundi 6 mai 2002
Statut
Membre
Dernière intervention
9 décembre 2004

moi j'utilise plutôt cette fonction :
Function Paire(Value:INteger):Boolean;
begin
Paire:=((Value Div 2)=(Value/2));
end;
Messages postés
27
Date d'inscription
mercredi 18 avril 2001
Statut
Membre
Dernière intervention
25 juillet 2002

Encore plus simple:
function EstPair(n:integer):boolean;
begin
Result :(n mod 2) 0;
end;
Messages postés
654
Date d'inscription
lundi 14 janvier 2002
Statut
Membre
Dernière intervention
20 février 2005

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...
Messages postés
455
Date d'inscription
mardi 24 juillet 2001
Statut
Modérateur
Dernière intervention
10 mars 2009

Je ne connaissait pas ODD aussi
je l'ai appris ce matin

puis pour le modulo tu as raison
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.