Discussion :

[Roland Chastain]

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 :

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

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.