Triângulo de Pascal III

Pequeno Action Script para gerar o triângulo de Pascal
clique aqui para testar

 

Para os usuários do Flash 8 segue o action do botão gerador:

 

on (release) {

n = Number(nlinhas.text);

//removendo linhas anteriores

for(k=2;k<m+1;k++) {

removeMovieClip(_root["texto"+k]);

}

// gerando o triangulo

for (i=2; i<n+1; i++) {

// gerando as linhas

_root["l"+i] = new Array(i+1)

// Preenchendo zero-ésima coluna e a última de cada linha

_root["l"+i][0] = 1;

_root["l"+i][i] = 1;

// gerando campos de textos

duplicateMovieClip(_root.texto1,”texto”+i,i);

_root["texto"+i]._y = _root.texto1._y + 20.1*(i-1);

// preenchendo as outras colunas

for(j=1;j<i;j++) {

_root["l"+i][j] = _root["l"+String(Number(i-1))][j] + _root["l"+String(Number(i-1))][j-1];

_root.texto.text = _root.texto.text + ” ” +_root["l"+i][j];

}

linha = _root["l"+i].join(” “);

_root["texto"+i].text = linha;

}

m=i;

}