Voici un exemple d'une classe permettant d'afficher un triangle Pascal:
NameSpace TrianglePascal;
INTERFACE
Uses
System.Text;
type
Prog = class
class method Main(Args: array of String);
end;
IMPLEMENTATION
class method Prog.Main(Args: array of String);
Var
I,J:Byte;
Begin
For I:=0 to 9 do Begin
For J:=0 to I do Console.Write(' '+Convert.ToString(J*I));
Console.WriteLine;
End;
{ Dessin Triangle }
For I:=0 to 12 do Begin
For J:=0 to 13-I do Console.Write(' ');
Console.Write('< ');
For J:=0 to I+I do Console.Write('x ');
Console.WriteLine('*');
End;
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 17 février 2008