Section courante

A propos

Section administrative du site

Voici un exemple d'une classe permettant d'afficher un triangle Pascal écrit en Oberon .NET:

MODULE trianglepascal;

VAR
 I,J:INTEGER;

BEGIN
 FOR I:=0 TO 9 DO
  FOR J:=0 TO I DO
   WRITE(' ',J*I);
  END;
  WRITELN("");
 END;   
 (* Dessin Triangle *)
 FOR I:=0 TO 12 DO
  FOR J:=0 TO 13-I DO
   WRITE(' ');
  END;
  WRITE("< ");
  FOR J:=0 TO I+I DO
   WRITE("x "); 
  END;
  WRITELN('*');
 END;
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 2 février 2008