Ir ao conteúdo
  • Cadastre-se

Thiago Haw

Membro Júnior
  • Posts

    2
  • Cadastrado em

  • Última visita

Reputação

0
  1. @Simon Viegas Cara muito obrigado! Falta só uns pequenos ajuste mas já consegui o que queria graças as suas dicas. Grande abraço!!! segue abaixo o código: Program Serie_de_Fibonacci; var i, posicao: integer; Fib : Array [0..40] of integer; begin ClrScr; WriteLn ('Serie de Fibonacci de 1 a 40'); writeln; WriteLn ('Digite o numero da posicao que deseja exibir de 1 à 40'); readln( posicao ) ; // Definicao Fib[0] := 0; Fib[1] := 1; // Calculo for i := 2 to 40 do Fib[i] := Fib[i-1]+Fib[i-2]; write('O número é: '); writeln ( Fib[posicao - 1] ) ; writeln; // Resultados for i := 0 to 39 do WriteLn ('f ( ',(i+1):2,'): ', Fib[i]:15:0); end.
  2. Olá Amigos! Estou tendo problemas com um código em Pascalzim, na sequencia de Fibonacci com Array, quando compilo ele exibe todos os índices que estão dentro do Array, no entanto gostaria que fosse exibido somente o que fosse solicitado tipo; "Digite o número da sequencia que deseja exibir", vamos supôr que eu tenha um array de 0...40 mas queira pedir que mostrasse só o da posição 15, então digitaria a quantidade entre 0..40 e a posição 15, estou com esse código: Program Fibonacci; var i: integer; Fibo : Array [0..40] of Real; begin ClrScr; WriteLn ('Sequencia de Fibonacci de 1 a 40'); WriteLn; // Definicao Fibo[0] := 0; Fibo[1] := 1; // Calculo for i := 2 to 40 do Fibo := Fibo[i-1]+Fibo[i-2]; // Resultados for i := 0 to 39 do WriteLn ('f (',(i+1):2,'): ', Fibo:15:0); ReadLn; end.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...