Voici un exemple d'une classe permettant d'afficher un triangle Pascal :
- REBOL [
- Title: "TrianglePascal"
- Version: 1.0.0
- Author: "Sylvain Maltais"
- Purpose: {Ce programme permet d'effectuer l'affichage d'un triangle Pascal.}
- ]
-
- { Triangle de nombre de Pascal }
- for i 0 9 1 [
- S: ""
- for j 0 i 1 [ S: join S [" " (j * i)] ]
- print S
- ]
-
- { Dessin Triangle }
- for i 0 13 1 [
- S: ""
- for j 0 (13 - i) 1 [ S: join S " " ]
- S: join S "< "
- for j 0 (i + i) 1 [ S: join S "x " ]
- S: join S "*"
- print S
- ]
on obtiendra le résultat suivant :
00 1
0 2 4
0 3 6 9
0 4 8 12 16
0 5 10 15 20 25
0 6 12 18 24 30 36
0 7 14 21 28 35 42 49
0 8 16 24 32 40 48 56 64
0 9 18 27 36 45 54 63 72 81
< x *
< x x x *
< x x x x x *
< x x x x x x x *
< x x x x x x x x x *
< x x x x x x x x x x x *
< x x x x x x x x x x x x x *
< x x x x x x x x x x x x x x x *
< x x x x x x x x x x x x x x x x x *
< x x x x x x x x x x x x x x x x x x x *
< x x x x x x x x x x x x x x x x x x x x x *
< x x x x x x x x x x x x x x x x x x x x x x x *
< x x x x x x x x x x x x x x x x x x x x x x x x x *
Voir également
Dernière mise à jour : Dimanche, le 4 janvier 2015