Section courante

A propos

Section administrative du site

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

  1. #!/usr/bin/perl
  2.  
  3. # Triangle de nombre de Pascal
  4. for($i = 0; $i < 10; $i++) {
  5.  for($j = 0; $j <= $i; $j++) {
  6.   print " ".$j*$i;
  7.  }
  8.  print "\n";
  9. }
  10.  
  11. # Dessin Triangle
  12. for ( $i = 0; $i < 13; $i++) {
  13.  for ( $j = 0; $j <= 13-$i; $j++) {
  14.   print " ";
  15.  }
  16.  print "< ";
  17.  for ( $j = 0; $j <= $i+$i; $j++) {
  18.   print "x ";
  19.  }
  20.  print "*\n";
  21. }

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 : Jeudi, le 17 janvier 2019