Triangulo de pascal

ASP

-

[*]READ(NUMERO)

[*]

[*]WHILE NUMERO > 0 DO

[*]BEGIN

[*]  FOR I:= NUMERO DOWNTO 1

[*] WRITE(I)

[*]  END;

[*]  WRITELN()

[*]  NUMERO := NUMERO - 1

[*]END;

sem ter como testar

veja se rola pois faz tempo que mexo no pascal

Seguinte como consigo imprimir o Triangulo de PASCAL, feito no Turbo Pascal.654321543214321321211

Este ai nao eh o triangulo de pascal, ele eh assim11 2 11 3 3 11 4 6 4 1

que seje!!!mais segue o problema para ser resolvido!

Le o número como strig.

ASP

[*]

[*]READ(NUMERO)

[*]  WHILE Length(NUMERO) > 0 DO

[*] BEGIN

[*]  FOR I:= Length(NUMERO) DOWNTO 1

[*] WRITE(I)

[*]  END;

[*]  WRITELN()

[*]  NUMERO := NUMERO - 1

[*] END;

[*]

11 2 11 3 3 11 4 6 4 1

realmente é assim mas achei que o cara tinha se confundido e mandei a resposta pro que ele pediu

adapte

Algoritmo Principal

T( 20,20 ) : matriz de tipo inteiro

i, j, n : inteiro

Início

Ler ( n )

TriangPascal ( n )

Para i = 1 até n

Para j = 1 até n

Escrever ( T( i, j ) )

Fim _Para j

Escrever

Fim_Para i

Fim

usa este procedimento

Procedimento TriangPascal ( n : inteiro )

i : inteiro

Início

T ( n, 1 ) = 1 || Primeira coluna é sempre 1 ||

Se n > 1 então TriangPascal ( n-1 ) || Gera as n-1 primeiras linhas ||

T ( n, n ) = 1 || O último da linha é sempre 1 ||

Se n > 2 então Para i = 2 até n-1

T( n, i ) = T ( n-1, i-1 ) + T( n-1, i )

Fim_Para i

Fim

Fonte: http://www.inf.ufrgs.br/~jkv/livro2.PDF (PAG. 81)

Opa, tente o seguinte:

Program Nome;

Uses CRT;

Var A,B : Integer;

Begin

ClrScr;

B:=6; {B pode mudar de acordo com a quant.}

Repeat

For A:=B downto 1 do

Write (a);

Writeln;

B:=B-1;

Until (B = 0);

Readkey;

End.

Tem várias outras formas, incluindo com vetores. Mas eu fiz este aqui e funcionou. Tente aí. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

valeu galera!

Funcionou?

Yes!

adapteAlgoritmo PrincipalT( 20,20 ) : matriz de tipo inteiroi, j, n : inteiroInícioLer ( n )TriangPascal ( n )Para i = 1 até nPara j = 1 até nEscrever ( T( i, j ) )Fim _Para jEscreverFim_Para iFimusa este procedimentoProcedimento TriangPascal ( n : inteiro )i : inteiroInícioT ( n, 1 ) = 1 || Primeira coluna é sempre 1 ||Se n > 1 então TriangPascal ( n-1 ) || Gera as n-1 primeiras linhas ||T ( n, n ) = 1 || O último da linha é sempre 1 ||Se n > 2 então Para i = 2 até n-1T( n, i ) = T ( n-1, i-1 ) + T( n-1, i )Fim_Para iFimFonte: http://www.inf.ufrgs.br/~jkv/livro2.PDF (PAG. 81)

Oi!Eu tentei fazer esse programa mas n me deu certo..ng pode escrever aí o codigo fonte para o programa?Obrigadão pessoal!