VisualG - Serie De Fibonacci

O meu código ate agora esta da seguinte forma:

Membros

4 posts

Postado 11 setembro 2008 - 23:25

Olá, estou tendo que resolver uma lista de exercício para a faculdade e usa visualg, o enunciado do problema é:

Escreva um programa que apresente a série de Fibonacci até o décimo quinto termo. Asérie de Fibonacci é formada pela sequência: 1, 1, 2, 3, 5, 8, 13, 21, 34 . . . etc., caracterizando-se pela soma de um termo posterior com o seu anterior subsequente.

O meu código ate agora esta da seguinte forma:

algoritmo "fibonacci.alg"

var

i,sFibonacci,temp,rec:inteiro

inicio

sFibonacci <- 0

para i de 0 ate 10 faca

se (i < 2) entao

sFibonacci <- 1

escreva(sFibonacci)

fimse

se (i = 2) entao

rec <- (i - 1)

sFibonacci <- (sFibonacci + rec)

escreva(sFibonacci)

temp <- 1

fimse

se (i > 2) entao

sFibonacci <- (sFibonacci + temp)

temp <- (temp + 1)

escreva(sFibonacci)

fimse

fimpara

fimalgoritmo

Para todo i maior que 2 eu faço um outro calculo, pelo o que eu consegui até agora desenvolver neste raciocicio o i estaria passando pela sua 3º vez achando o 4º termo da série e a variavel sFibonacci teria o valor de 3 que ele, ate ai tudo bem so que ele da como resultado os valores "1 1 2 3 5 8 12 17 23 30 38 47 57 68 80 93" onde até o 6º termo esta correto, so que na soma do 8 + seu termo anterior 5 que teria de dar 13 da 12 pois o sFibonacci tem o valor 8 com e ele soma com a variavel TEMP que vale 4 e deveria valer 5, dai fiz algumas GAMBIARRAS e consegui achar mais alguns termos, mas se eu fizer gambiarra a cada vez que ele não chegar ao número que eu quero eu vou escrever muitas linhas e sei que a lógica desta forma não estaria a correta