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

**cicinho** · 29/10/2008, 09h52

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**M.Dlb** · 29/10/2008, 10h36

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**cicinho** · 29/10/2008, 10h47

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

**cicinho** · 29/10/2008, 10h59

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.....

**cicinho** · 29/10/2008, 11h02

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

**M.Dlb** · 29/10/2008, 11h26

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

**paskal++** · 29/10/2008, 22h36

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**droggo** · 30/10/2008, 02h52

Kei,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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électionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ce qui est immédiatement compréhensible

**CapJack** · 30/10/2008, 13h14

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**droggo** · 30/10/2008, 13h58

Hao,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**darrylsite** · 30/10/2008, 14h26

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

**Alcatîz** · 30/10/2008, 15h28

Bonjour !

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.

**droggo** · 30/10/2008, 16h14

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...

**darrylsite** · 30/10/2008, 17h44

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.

**paskal++** · 30/10/2008, 17h55

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

du coup je comprends mieux l'explication de wormful sickfoot.

je vais essayer d'implémenter le code pour voir ce que ça donne.
bravo messieurs et merci beaucoup

**krachik** · 30/10/2008, 18h35

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)

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....

**droggo** · 30/10/2008, 19h54

Jao,

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.

**Alcatîz** · 30/10/2008, 20h08

Droggo a raison, ça marche effectivement depuis Windows 2000.

La manière dont je procède date de Windows NT 4.0, je n'avais jamais essayé de faire autrement

**darrylsite** · 31/10/2008, 16h36

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.

ok ça marche.
Merci pour la leçon

**cicinho** · 18/05/2009, 15h59

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électionner tout - Visualiser dans une fenêtre à part

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.

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

Langage Pascal

Discussions similaires

Partager

Partager