Voici un exemple d'un programme permettant d'afficher un triangle Pascal :
Program TrianglePascal;
Var
I,J:Byte;
BEGIN
For I:=0 to 9 do Begin
For J:=0 to I do Write(' ',J*I);
WriteLn;
End;
{ Dessin Triangle }
For I:=0 to 12 do Begin
For J:=0 to 13-I do Write(' ');
Write('< ');
For J:=0 to I+I do Write('x ');
WriteLn('*');
End;
END.
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 : Dimanche, le 4 mai 2014