Section courante

A propos

Section administrative du site

Voici un exemple d'une classe permettant d'afficher un triangle Pascal :

  1. REBOL [ 
  2.  Title: "TrianglePascal" 
  3.  Version: 1.0.0 
  4.  Author: "Sylvain Maltais" 
  5.  Purpose: {Ce programme permet d'effectuer l'affichage d'un triangle Pascal.} 
  6. ] 
  7.  
  8.  { Triangle de nombre de Pascal }
  9. for i 0 9 1 [ 
  10.  S: ""
  11.  for j 0 i 1 [ S: join S [" " (j * i)] ]
  12.  print S
  13. ]
  14.  
  15.  { Dessin Triangle }
  16. for i 0 13 1 [ 
  17.  S: ""
  18.  for j 0 (13 - i) 1 [ S: join S " " ]
  19.  S: join S "< " 
  20.  for j 0 (i + i) 1 [ S: join S "x " ]
  21.  S: join S "*"
  22.  print S
  23. ]

on obtiendra le résultat suivant :

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

Science - Mathématique

Dernière mise à jour : Dimanche, le 4 janvier 2015