Integer, Number, Double

Version imprimable

1 pièce(s) jointe(s)

Bonjour !

J'aurais besoin de connaître la valeur maximale du type Integer et, par la même occasion, je voudrais connaître aussi les caractéristiques précises du type Number.

Pour le type Integer, d'après ce que j'ai compris, il n'existe pas dans ActionScript : il est déclaré dans le compilateur FlashPascal. Quant à Double, c'est un simple alias pour Number, n'est-ce pas ?

En attendant j'ai mis ma constante MaxInt à 10000, ce qui nous fait (étant donné la valeur de FRAME_RATE) une durée de 5000 secondes pour l'exécution complète du programme suivant. Je pense que ça suffira largement. :)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 {$FRAME_WIDTH 352} {$FRAME_HEIGHT 64} {$BACKGROUND $545454}{DarkGray} {$FRAME_RATE 4} program Wallis1; (* Produit de Wallis (approximation de Pi/2) *) uses Flash8, Couleurs; type Horloge = class(MovieClip) procedure onEnterFrame; override; end; const MaxInt = $7FFFFFFF; var h: Horloge; f: TextFormat; t: TextField; i: integer; // nombre entier de 1 à l'infini p: double; // produit de Wallis (converge vers PI/2) procedure Horloge.onEnterFrame; begin if i = MaxInt then exit; p := p * ((2*i)/(2*i-1)); p := p * ((2*i)/(2*i+1)); t.text := FloatToStr(p); Inc(i); end; begin f := TextFormat.Create('Courier', 24); f.color := BrightGreen; f.align := 'center'; h := Horloge.Create(nil, 'h', 0); h.opaqueBackground := DarkGray; h._x := 16; h._y := 16; t := TextField.Create(h, 't', 0, 0, 0, 20 * 16, 32); t.setNewTextFormat(f); i := 1; p := 1; end.

Alors c'est un peu spécial en effet, Flash ne connait que le type Number qui est d'ailleurs un objet.

dans FlashPascal j'ai introduit la notion d'entier, mais je ne fais aucun contrôle particulier, la preuve:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 program Project3; {$FRAME_WIDTH 550} {$FRAME_HEIGHT 400} {$FRAME_RATE 12} {$BACKGROUND $FFFFFF} uses Flash8; var Log: TextField; i,j: Integer; begin Log := TextField.Create(_root, 'log', 1, 0, 0, Stage.width, Stage.Height); i := 32760; for j := 0 to 10 do begin Log.Text := Log.Text + IntToStr(i) + #13#10; i := i * i; end; end.
32760

1073217600

1.15179601694976e+18

1.32663406466133e+36

1.75995794151985e+72

3.09745195591878e+144

9.59420861922505e+288

Infinity

Infinity

Infinity

Infinity
en théorie Integer devrait être sur 32bits de -32768 à +32767

D'accord.

Code:

1
2
3
const
  MinInt = -32768;
  MaxInt = +32767;

Mais il y a quelque chose qui m'échappe. Cette étendue-là, c'est celle d'un nombre représenté sur 16 bits, non ? :roll:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
program Project3a;
 
{$FRAME_WIDTH 550}
{$FRAME_HEIGHT 400}
{$FRAME_RATE 12}
{$BACKGROUND $FFFFFF}
 
uses
  Flash8;
 
var
  Log: TextField;
  i: Integer;
 
begin
  Log := TextField.Create(_root, 'log', 1, 0, 0, Stage.width, Stage.Height);
 
  //i := $FFFF;            //  65535
  //i := $FFFF div 2;      //  32767
  //i := $7FFF;            //  32767
  //i := $FFFF shr 1;      //  32767
  i := -($FFFF shr 1) - 1; // -32768
  Log.Text := IntToStr(i) + #13#10;
end.

Et Number alors, combien a-t-il de bits ? Et où met-il ses décimales ? :roll:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
program Project3b;
 
{$FRAME_WIDTH 550}
{$FRAME_HEIGHT 400}
{$FRAME_RATE 12}
{$BACKGROUND $FFFFFF}
 
uses
  Flash8;
 
var
  Log: TextField;
  i: Integer;
  n: Number;
 
begin
  Log := TextField.Create(_root, 'log', 1, 0, 0, Stage.width, Stage.Height);
 
  //i := $FFFF;           //      65535
  //n := $FFFF;           //      65535
  //i := $FFFFFF;         //   16777215
  //n := $FFFFFF;         //   16777215
  //i := $FFFFFFFF shr 1; // 2147483647
  //n := $FFFFFFFF shr 1; // 2147483647
  i := $FFFFFFFF;         //         -1
  n := $FFFFFFFF;         //         -1
 
  Log.Text := IntToStr(i) + #13#10 + FloatToStr(n);
end.

Et enfin comment peut-il contenir un nombre aussi grand que 9 fois 10 puissance 288 (comme on le voit dans ton exemple) ?

20/06/2013, 19h43
droggo

Kei,

Manifestement, Number correspond à un type double.

Limites du type double : 1.7*10-308 à 1.7*10+308.

Donc avec 9.59420861922505e+288, si on élève au carré, on dépasse la borne supérieure.

:)

oui Number c'est un Double, et oui 32768 c'est du 16bits, je me suis trompé :)

j'ai introduit les entiers dans FlashPascal par habitude, je trouve douteux par exemple d'indexer un tableau avec un Double :) Mais Flash ne fait pas de distinction entre "1", 1 et 1.0

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
program Project3;
 
{$FRAME_WIDTH 550}
{$FRAME_HEIGHT 400}
{$FRAME_RATE 12}
{$BACKGROUND $FFFFFF}
 
uses
  Flash8;
 
var
  Log: TextField;
  arr: array[0..2] of string;
  tab: Variant;
begin
  arr[0] := 'zero';
  arr[1] := 'un';
  arr[2] := 'deux';
 
  Log := TextField.Create(_root, 'log', 1, 0, 0, Stage.Width, Stage.Height);
 
  tab := arr; // nécessaire car FlashPascal n'accepte que les entiers comme indice de tableau
 
  Log.Text := 'arr[1] = ' + tab[1]
         + #13"arr['1'] = " + tab['1']
         + #13'arr[1.0] = ' + tab[1.0];
end.

arr[1] = un
arr['1'] = un
arr[1.0] = un

20/06/2013, 23h52
Roland Chastain
D'accord, cette fois j'ai compris. :)
Code:

1 2 3 const MaxInt = $7FFFFFFF; // 2147483647 MinInt = $80000000; // -2147483648
Merci Paul pour le code.

1 pièce(s) jointe(s)

Voici un essai d'un programme qui permet de visualiser la forme binaire d'un nombre de type Integer. A la place des "0" et des "1" j'ai mis des voyants.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
{$FRAME_WIDTH 432}
{$FRAME_HEIGHT 24}
{$FRAME_RATE 4}
{$BACKGROUND $545454}{Couleurs.DarkGray}
 
program Bits;
 
(* FlashPascal 2 v13.06.05 *)
 
uses
  Flash8, Couleurs;
 
const
  MaxInt = $7FFFFFFF;
 
type
  TPoint = class(MovieClip)
    procedure Tracer;
    constructor Create(Depth, x, y, Color: Integer);
    procedure SetColor(Color: Integer);
  end;
 
procedure TPoint.Tracer;
begin
  MoveTo(0, -4);
  CurveTo(+4, -4, +4,  0);
  CurveTo(+4, +4,  0, +4);
  CurveTo(-4, +4, -4,  0);
  CurveTo(-4, -4,  0, -4);
end;
 
constructor TPoint.Create(Depth, x, y, Color: Integer);
begin
  inherited Create(nil, '', Depth);
  LineStyle(0, Color);
  BeginFill(Color);
  Tracer;
  EndFill();
  _x := x;
  _y := y;
end;
 
procedure TPoint.SetColor(Color: Integer);
begin
  LineStyle(0, Color);
  BeginFill(Color);
  Tracer;
  EndFill();
end;
 
var
  a: array[0..31] of TPoint;
  i: Integer;
 
type
  Horloge = class(MovieClip)
    procedure onEnterFrame; override;
  end;
 
procedure Horloge.onEnterFrame;
var
  x: Integer;
begin
  if i < MaxInt then
  begin
    for x := 0 to 31 do
      if i and (1 shl x) > 0 then
        a[31-x].SetColor(LawnGreen)
      else
        a[31-x].SetColor(Gray);
    Inc(i);
  end;
end;
 
var
  x: Integer;
 
begin
  for x := 0 to 31 do
      a[x] := TPoint.Create(
        x + 1,
        12 * x + 12 * (x div 8) + 12,
        12,
        Gray
      );
  i := 0;
  Horloge.Create(nil, 'h', 0);
end.

28/06/2013, 14h50
Archimède

Moralité, si on a besoin d'un réel, on met number tout le temps... Ce n'est pas la peine de se compliquer la vie.. :D

Pour Roland: sympa le contenu de ton onEnterFrame... c'est bien écrit.:D