Pair, impair et une selection periodique.

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 572 fois - Téléchargée 50 fois

Contenu du snippet

Dernierement j'ai vu des exemples compliqués ici une petite aide..!

Pour savoir si un chiffre est pair ou impair il suffi de savoir si le bit 0 est activé.

Exemple: dans l'octet suivant 10001001 (decimal 137) le dernier bit est 1, impair.
Dans cette octet 10101010 (decimal 170) le dernier bit est 0 et alors pair.

Avec Delphi (Pascal) sachant que i est un "integer" le code est:

if (i and 1)=1 then writeln(inttostr(i)+' est impair') else writeln(inttostr(i)+' est pair');

essayer le..!

La selection periodique.

Exemple: Vous avez une liste avec 1000 données et vous voulez selectioner chaque 13e ou chaque Xe positions. Ici le principe est de comparer le reste de la division.
Exemple avec Delphi (Pascal) sachant quele variable (i,j,x) sont des "integer" et (txt et sel) sont du type "array [1..1000] of string").

x:=13; //la selection
J:=0; //compteur des selections
for i:=1 to 1000 do //passer toute la file
Begin
if (i mod x)=0 then // si le reste de la division (i div x) est égal a zero
Begin
inc(j); //actualiser le compteur
sel[j]:=txt[i]; // ajoute le texte dans la liste de selection
end;
end;
writeln(' Voila les '+inttostr(j)+' textes selectionés');
for i:=1 to j do writeln(inttostr(i)+' : '+sel[i]);

on peut encore le compliquer un peut si la demande est par exemple tout les 13e à partir de la 7e données. Dans ce cas la il suffit de changer la valeur de la comparaison.
Exemple:

if (i mod x)=7 then // si le reste de la division (i div x) est égal à 7

Attention: la valeur de comparaison doit être inferieur à la valeur de selection.

et voila, bonne amusement...!

Philippe Kauffer (Allemange)

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
mercredi 13 juillet 2011
Statut
Membre
Dernière intervention
22 août 2013

slt, je cherche un réseau de neurone en java qui classifie les chiffre de 0 a 9 en pair et impair. Merci d avance
Excusez moi mais moi, dans ma version Delphi6 perso, j'ai bien la fonction Odd d'implémentée et quand je pointe le curseur dessus, il me dit bien que cela vient de l'unite system, mais dans l'aide, je n'ai rien sur cette fonction : je ne risquai pas de la trouver !

DRJEROME > C'est juste : désolé ...
E effet, dans le dico (il sont mal fait ces anglais-francais), j'ai trouvé pour impair "indiscretion", ce qui aurait fait Ind et non pas Imp.

Le truc, c'est que, fort en anglais comme je le suis (c'est un sacré defaut), je na'vais pas deviné que cela désignait le nom commun d'autant plus que toujors dans ce même dico, il ne mettait pas Odd pour imapir.

Mais bon, l'important c'est que je m'en souvienne.

PS : L'aide en ligne .... c'est quoi ?? c'est peut-etre pas la meme chose que ? -> Aide ou F1.

@ ++ Florent
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
27
Florenth : Odd est bien documentée dans l'aide en ligne de Delphi, la preuve :
"Renvoie true si l'argument est un nombre impair.

Unité System

Catégorie routines ordinales

Syntaxe Delphi :

functionOdd(X:Longint):Boolean;

Description

Dans le code Delphi,la fonction Odd teste si l'argument est un nombre impair.Elle renvoie true si X est un nombre impair,et false si X est un nombre pair."

CQFD. :o)
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015

"Odd", en anglais ça veut dire "Impair"
C'est normal, on ne la trouve dans quasiment aucun exemple.
Mais, dis moi Delphiprog, pourquoi Odd ??
Je ne sais pas mais j'aurais plutot mis Imp comme impair je crois que cela se dit pareil en anglais.

Et puis pourquoi une fonction pour les nombre impairs et pas pour les nombre pairs ?? (même si on peut utiliser if not Odd(125) then .. )

Mais bon, elle n'est meme pas dans l'aide de Delphi. (en tout cas, je n'ai pas trouvé):

Florent
Afficher les 10 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.