Reprise du message précédent :
Une autre version sous forme d'algorythme a la
sauce VB facilement adaptable:
dim tt(9,9) as integer 'on fait avec N=10
dim N as integer
sub main()
N=10
'initialise les premiers elements des colonnes a 1
for i=0 to N-1
tt(i,0)=1
next
'initialise la premiere colonne a 1
for i=0 to N-1
tt(0,i)=1
next
for colonne=1 to N-1
remplitableau(colonne)
next
affichage()
end sub
sub remplitableau(col as integer)
for i=1 to N-col-1
tt(col,i)=tt(col,n-1)+tt(col-1,i-1)
next
end sub
sub affichage()
for j=0 to N-1
for i=0 to j
print((tt(i,j-i) & " " )
next
print 'on saute une ligne
next
end sub