Pair, impair et une selection periodique.
Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 689 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)
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
- Pair impair en anglais
- Nombre impair en anglais - Meilleures réponses
- Impair en anglais - Meilleures réponses
- Langage c pair impair tableau ✓ - Forum - C
- Sequance d alternance paire et impaire ds un tableau ✓ - Forum - C++ & C++ .NET
- Php pair impair ✓ - Forum - PHP
- Pair-impair récursif - Codes sources - C / C++ / C++.NET (.Net)
- Expresions régulières et test pair/impair ✓ - Forum - ColdFusion
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
-
4297
- Date d'inscription
- samedi 19 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 9 janvier 2013
31"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)
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
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.