Pair, impair et une selection periodique.
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 et une selection periodique.
- Php pair impair ✓ - Forum PHP
- Tableau entier & Nombres paires !?? ✓ - Forum C
- Pair ou Impaire - Forum Visual Basic 6
- Nombre impaire ✓ - Forum Visual Basic
- Jour pair et impair ✓ - Forum C# / .NET
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.