Utilisation des opérateurs 'shr' et 'and'

bonjour, on m'a donné le programme (en turbo pascal ) suivant a comprendre mais certaines instructions comprises dedans sont pour moi trop poussées:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

function bin (n: byte): string; var cpt: byte; s: string[8]; begin s:=' '; for cpt:=0 to 7 do begin if n and 1=1 then s:=s+'1' else s:=s+'1' n:=n shr 1; end; bin:=s; end;

---

bon je suis vraiment débutant en language turbo pascal , mais par rapport a ce que j'ai cherché il y a quelques intructions "bizarre"
.pourquoi met-il "shr" ici o lieu de "div" ?
.quand il fait un ET logique de N avec 1 pouquoi ecrit -il "1=1" et tout simplement "1"?
voila merci d'avance.

Il faut se pencher sur le côté binaire de la chose. n est un byte, codé sur 8 octets. Si tu compares bit à bit la valeur de n est la valeur de 1 avec un and (ET logique), tu fais en fait un test pour savoir si n est pair ou impair :

n = xxxxxxxx en binaire (on ne connais pas sa valeur)
1 = 00000001 en binaire.

Code:

---

1 2 3

xxxxxxxx AND 00000001 = 0000000x

---

un AND 1 te retourne la valeur du dernier bit de n. Ce dernier bit, si il vaut 0, alors n est pair, si il vaut 1 n est impair.

Pour le shr, cela signifie "SHift Right", suivi du nombre de rotations, ici 1. Donc tous les bits de n seront décalés de 1 vers la droite, ce qui correspond à une division par 2.

Après, pour comprendre, il faut avoir un minimum de connaissances en binaire. ;)

merci pour les infos données..
mais ce que je ne comprend pas c'est que :
si on prend un chiffre en binaire au hazard
11 = 0000 1011 (codé sur 8 bits)
on fait le "shr" avec ce nombre
cela reviens a ecrire
1000 0101 et ce chiffre devient négatif!!

merci d'avance

en fait tout simplement ce que je ne comprend pas c'est tout ce qui se passe a partir de la boucle FOR jusqu'au premier end;
je sais qu'il recopie la valeur de n dans s de 0 jusqu'a 7 mais le reste.....

Citation:

---

Envoyé par cicinho

merci pour les infos données..
mais ce que je ne comprend pas c'est que :
si on prend un chiffre en binaire au hazard
11 = 0000 1011 (codé sur 8 bits)
on fait le "shr" avec ce nombre
cela reviens a ecrire
1000 0101 et ce chiffre devient négatif!!

merci d'avance

---

c'est bon j'ai compris pour le "shr" le dernier bit disparait
et on met un zéro o bit de poids fort

Oui les bits qui disparraissent sont remplacés par des 0. Sinon, il faudrait ROR (Rotate Right). ;)

salut , merci pour le bout de code ça m'a permis de connaitre de nouvelles fonctions prédéfinies (shr et ror que je vais essayer). par contre je comprends pas cette instruction

Code:

---

1 2 3

if n and 1=1 then s:=s+'1' else s:=s+'1'

---

il me semble que dans ce cas la partie else n'a aucun intérêt(même traitement) !
que veux dire if n cette écriture est elle acceptée avec une variable autre que booléenne ?
merci

Kei,

Citation:

---

Envoyé par paskal++

salut , merci pour le bout de code ça m'a permis de connaitre de nouvelles fonctions prédéfinies (shr et ror que je vais essayer). par contre je comprends pas cette instruction

Code:

---

1 2 3

if n and 1=1 then s:=s+'1' else s:=s+'1'

---

il me semble que dans ce cas la partie else n'a aucun intérêt(même traitement) !
que veux dire if n cette écriture est elle acceptée avec une variable autre que booléenne ?
merci

---

Effectivement, on peut directement écrire

Code:

---

s:=s+'1';

---

car faire la même chose dans le then et le else d'un if ... (peut être une erreur de recopie du code ?)

Sinon, on voit là l'inconvénient de compter sur la priorité des opérateurs pour que le compilateur se débrouille.

C'est pourquoi je conseille de toujours mettre des parenthèses dans les expressions, pour clarifier la lecture au premier coup d'oeil.

if n and 1=1 then... avec des parenthèses tenant compte des caractéristiques de Pascal donne :

Code:

---

if (n and 1) = 1 then...

---

ce qui est immédiatement compréhensible

Oui, sauf qu'il s'agit manifestement d'une erreur de recopie du code, puisqu'on a là une fonction servant manifestement à obtenir une chaîne de caractères contenant la représentation binaire d'un entier. Donc il faut corriger :

Code:

---

if (n and 1) = 1 the s := s + '1' else s := s + '0'

---

Hao,

Citation:

---

Envoyé par CapJack

Oui, sauf qu'il s'agit manifestement d'une erreur de recopie du code, puisqu'on a là une fonction servant manifestement à obtenir une chaîne de caractères contenant la représentation binaire d'un entier. Donc il faut corriger :

Code:

---

if (n and 1) = 1 the s := s + '1' else s := s + '0'

---

---

C'était ce que je laissais entendre.

ET un jour, il faudra qu'on m'explique pourquoi on se retrouve avec tant de codes mal recopiés.

Copier/coller existe, il faut être complètement maso pour retaper son code pour le publier sur un forum. D'une part pour le travail inutile que ça représente, et d'autre part, pour les petites erreurs qui sont presque systématiquement ainsi introduites.

Citation:

---

Envoyé par droggo

Hao,

C'était ce que je laissais entendre.

ET un jour, il faudra qu'on m'explique pourquoi on se retrouve avec tant de codes mal recopiés.

Copier/coller existe, il faut être complètement maso pour retaper son code pour le publier sur un forum. D'une part pour le travail inutile que ça représente, et d'autre part, pour les petites erreurs qui sont presque systématiquement ainsi introduites.

---

La reponse est qu' il n'existe pas de copier/coller depuis l' editeur de tp vers une fenetre windows. Pour le faire, il faut ouvrir le .pas avec un editeur de texte (bloc-note, pspad,...) pour ensuite faire le copier/coller du code contenu dans l' editeur.Un simple "click droit->ouvrir avec->choisir le programme->bloc-note" sur le fichier conserné permet d' ouvrir le .pas

Bonjour !

Citation:

---

Envoyé par darrylsite

La reponse est qu' il n'existe pas de copier/coller depuis l' editeur de tp vers une fenetre windows. Pour le faire, il faut ouvrir le .pas avec un editeur de texte (bloc-note, pspad,...) pour ensuite faire le copier/coller du code contenu dans l' editeur.Un simple "click droit->ouvrir avec->choisir le programme->bloc-note" sur le fichier conserné permet d' ouvrir le .pas

---

Sans vouloir te froisser, il y a bien une méthode pour copier du texte depuis l'éditeur de TP vers le presse-papier Windows :

• Il faut basculer en affichage fenêtré (Alt-Enter)
• Aller dans le menu de la console (clic sur l'icône dans la barre de titre)
• Menu Edition --> Marquer
• Tracer un rectangle à la souris autour de la zone à copier
• Presser Enter : c'est copié dans le presse-papier. 8-)

;)

Hie,

Et bien plus simple encore : dans la fenêtre d'édition de TP, sélectionner avec la souris le texte à copier, et faire un clic droit. Hop, c'est copié.

Et quand bien même on ne pourrait pas copier directement de TP, ouvrir le fichier source dans un autre éditeur pour copier évite tout de même pas mal de boulot, et aussi, et surtout, évite toutes ces fameuses erreurs...

Citation:

---

Envoyé par droggo

Hie,

Et bien plus simple encore : dans la fenêtre d'édition de TP, sélectionner avec la souris le texte à copier, et faire un clic droit. Hop, c'est copié.

Et quand bien même on ne pourrait pas copier directement de TP, ouvrir le fichier source dans un autre éditeur pour copier évite tout de même pas mal de boulot, et aussi, et surtout, évite toutes ces fameuses erreurs...

---

Desolé, mais vos deux methodes ne marchent pas sous tp7. Comme je l' ai dit, c' est impossible de le faire directement. Tp7 utilise son propre clipBoard et non celui de windows. Je viens meme de l'essayer et ça ne marche pas.
Si vous me dites que ça marche sur vos computers alors je dirai que le programme choisi des ordinateurs pour qu' il s' execute bien dessus.

Code:

---

if (n and 1) = 1 then s := s + '1' else s := s + '0'

---

du coup je comprends mieux l'explication de wormful sickfoot. :oops:
je vais essayer d'implémenter le code pour voir ce que ça donne.
bravo messieurs et merci beaucoup

Citation:

---

Envoyé par darrylsite

Desolé, mais vos deux methodes ne marchent pas sous tp7. Comme je l' ai dit, c' est impossible de le faire directement. Tp7 utilise son propre clipBoard et non celui de windows. Je viens meme de l'essayer et ça ne marche pas.
Si vous me dites que ça marche sur vos computers alors je dirai que le programme choisi des ordinateurs pour qu' il s' execute bien dessus.

---

J'ai pas bien compris quel programme?

La démarche donnée par Alcatîz marche chez moi (TP7=>Win Xp Sp3) :)

Citation:

---

Envoyé par droggo

Hie,

Et bien plus simple encore : dans la fenêtre d'édition de TP, sélectionner avec la souris le texte à copier, et faire un clic droit. Hop, c'est copié.

---

Copié ou? dans Tp7 oui mais pas dans windows on l'a pas dans le presse papier....

Jao,

Citation:

---

Envoyé par krachik

J'ai pas bien compris quel programme?

La démarche donnée par Alcatîz marche chez moi (TP7=>Win Xp Sp3) :)


Copié ou? dans Tp7 oui mais pas dans windows on l'a pas dans le presse papier....

---

Non, bel et bien dans le presse-papier.

J'utilise ça chaque fois que je dois copier d'une console dans le presse-papier, et ça marche parfaitement avec TP, qui n'est jamais qu'une console pour l'ordi.

Droggo a raison, ça marche effectivement depuis Windows 2000. :king:
La manière dont je procède date de Windows NT 4.0, je n'avais jamais essayé de faire autrement :aie:

Citation:

---

Envoyé par Alcatîz

Bonjour !

Sans vouloir te froisser, il y a bien une méthode pour copier du texte depuis l'éditeur de TP vers le presse-papier Windows :

• Il faut basculer en affichage fenêtré (Alt-Enter)
• Aller dans le menu de la console (clic sur l'icône dans la barre de titre)
• Menu Edition --> Marquer
• Tracer un rectangle à la souris autour de la zone à copier
• Presser Enter : c'est copié dans le presse-papier. 8-)

;)

---

ok ça marche.
Merci pour la leçon :king:

merci pour vos différentes réponses,
par rapport au copier coller, c'est que l'on m'a fournit le programme sur feuille papier.

dans la suite de mon programme...
je me retrouve avec cette instruction

Code:

---

s:= '0' + copy(s,1,127);

---

je voudrais juste savoir si le zéro entre parenthèse signifiait la valeur du zéro en ASCII ou non car si ce n'est pas le cas je ne comprend pas cette ligne de code.

merci d'avance.