Voici un exemple d'une classe permettant d'afficher un triangle Pascal:
MODULE trianglepascal;
IMPORT Out;
VAR
I,J:INTEGER;
BEGIN
FOR I:=0 TO 9 DO
FOR J:=0 TO I DO
Out.String(' ');
Out.Int(J*I,1);
END;
Out.Ln;
END;
(* Dessin Triangle *)
FOR I:=0 TO 12 DO
FOR J:=0 TO 13-I DO
Out.String(' ');
END;
Out.String('< ');
FOR J:=0 TO I+I DO
Out.String('x ');
END;
Out.String('*');
Out.Ln;
END;
END trianglepascal.
on obtiendra le résultat suivant:
00 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
Dernière mise à jour : Samedi, le 7 avril 2018