Section courante

A propos

Section administrative du site

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

  1. WITH TEXT_IO; 
  2.  
  3. PROCEDURE TrianglePascal IS 
  4.    USE TEXT_IO; 
  5. BEGIN 
  6.    FOR I IN 0..9 LOOP
  7.       FOR J IN 0..I LOOP         
  8.          PUT(" " & INTEGER'IMAGE(J*I));         
  9.       END LOOP;
  10.       PUT_LINE("");
  11.    END LOOP;   
  12.    -- Dessin Triangle
  13.    FOR I IN 0..12 LOOP      
  14.       FOR J IN 0..13-I LOOP         
  15.          PUT(" ");         
  16.       END LOOP;
  17.       PUT("< ");
  18.       FOR J IN 0..I+I LOOP         
  19.          PUT("x ");         
  20.       END LOOP;
  21.       PUT_LINE("*");
  22.    END LOOP;
  23. END TrianglePascal;

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 : Samedi, le 25 août 2012