Triangulo de pascal

[Tigger 0]

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

 

654321

54321

4321

321

21

1

 

como faco para imprimir, desse jeito. http://forum.imasters.com.br/public/style_emoticons/default/joia.gif :huh:

[Mário Monteiro 179]

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

[EwE 0]

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

[Tigger 0]

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

[renato_sl 0]

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;

 

[*]

[Mário Monteiro 179]

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

[Mário Monteiro 179]

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)

[Bucketheadkrz 0]

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

[Tigger 0]

valeu galera!

[Bucketheadkrz 0]

Funcionou?

[Tigger 0]

Yes!

[pexa 0]

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!