Section courante

A propos

Section administrative du site

Voici un exemple d'un programme permettant d'afficher un triangle Pascal :

  1. #!/bin/csh
  2.  
  3. @ I=0
  4. while ( $I <= 9 )
  5.    @ J=0
  6.    set CurrLine = ""
  7.    while ( $J <= $I )
  8.         @ R = $I * $J
  9.         set CurrLine = "$CurrLine $R"
  10.      @ J = $J + 1
  11.    end
  12.    echo $CurrLine
  13.    @ I = $I + 1
  14. end
  15.  
  16. # Dessin du triangle
  17. @ I=0
  18. while ( $I <= 12 )
  19.    @ J=0
  20.    set CurrLine = ""
  21.    while ( $J <= (13 - $I) )
  22.         set CurrLine = "$CurrLine _"
  23.      @ J = $J + 1
  24.    end
  25.    @ J=0
  26.    set CurrLine = "$CurrLine < "
  27.    while ( $J <= ($I + $I) )
  28.         set CurrLine = "$CurrLine x "
  29.      @ J = $J + 1
  30.    end
  31.    echo $CurrLine "*"|sed 's/_/ /g'
  32.    @ I = $I + 1
  33. end

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 : Lundi, le 8 octobre 2018