Section courante

A propos

Section administrative du site

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

  1. Program TrianglePascal;
  2.  
  3. {$APPTYPE CONSOLE} 
  4. Uses SysUtils; 
  5.  
  6. Var
  7.  I,J:Byte;
  8.  
  9. BEGIN
  10.  For I:=0 to 9 do Begin
  11.   For J:=0 to I do Write(' ',J*I);
  12.   WriteLn;
  13.  End;   
  14.  { Dessin Triangle }
  15.  For I:=0 to 12 do Begin
  16.   For J:=0 to 13-I do Write(' ');
  17.   Write('< ');
  18.   For J:=0 to I+I do Write('x ');
  19.   WriteLn('*');
  20.  End;
  21. 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 : Dimanche, le 17 août 2014