Section courante

A propos

Section administrative du site

ASH

 Décalage arithmétique
Oberon

Syntaxe

PROCEDURE ASH(X,N:LongInt):LongInt

Paramètres

Nom Description
X Ce paramètre permet d'indiquer l'expression contenant le nombre à traiter
N Ce paramètre permet d'indiquer le nombre de bits de décalage à effectuer

Description

Cette procédure permet d'effectuer un décalage de bit vers la gauche.

Exemple

Voici un exemple montrant l'utilisation de «ASH», dans Oxford Oberon-2 compiler, avec des valeurs brutes :

  1. MODULE AshSamples;
  2.  
  3. IMPORT Out;
  4.      
  5. BEGIN
  6.  Out.String("1 ASH 0 = ");
  7.  Out.Int(ASH(1,0),1);
  8.  Out.Ln;
  9.  Out.String("1 ASH 1 = ");
  10.  Out.Int(ASH(1,1),1);
  11.  Out.Ln;
  12.  Out.String("1 ASH 2 = ");
  13.  Out.Int(ASH(1,2),1);
  14.  Out.Ln;
  15.  Out.String("1 ASH 3 = ");
  16.  Out.Int(ASH(1,3),1);
  17.  Out.Ln;
  18.  Out.String("1 ASH 4 = ");
  19.  Out.Int(ASH(1,4),1);
  20.  Out.Ln;
  21.  Out.String("2 ASH 0 = ");
  22.  Out.Int(ASH(2,0),1);
  23.  Out.Ln;
  24.  Out.String("2 ASH 1 = ");
  25.  Out.Int(ASH(2,1),1);
  26.  Out.Ln;
  27.  Out.String("2 ASH 2 = ");
  28.  Out.Int(ASH(2,2),1);
  29.  Out.Ln;
  30.  Out.String("2 ASH 3 = ");
  31.  Out.Int(ASH(2,3),1);
  32.  Out.Ln;
  33.  Out.String("2 ASH 4 = ");
  34.  Out.Int(ASH(2,4),1);
  35.  Out.Ln;
  36. END AshSamples.

on obtiendra le résultat suivant :

1 ASH 0 = 1
1 ASH 1 = 2
1 ASH 2 = 4
1 ASH 3 = 8
1 ASH 4 = 16
2 ASH 0 = 2
2 ASH 1 = 4
2 ASH 2 = 8
2 ASH 3 = 16
2 ASH 4 = 32

Dernière mise à jour : Samedi, le 7 avril 2018