Série de Fibonacci em Pascalzim

[Thiago Haw]

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. 

 

[Simon Viegas]

@Thiago Haw.

Basta ler a posição que quer e exibir... A posição 15 está na 14º posição do seu array..

Fibo[posicao-1]

 

PS: se você precisa de 40 posições, você deve usar de 0..39 ou de 1..40 e ajustar o código. Acho a segundo opção mais melhor.

 

No aguardo.

[Thiago Haw]

@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.