• Sábado 21 de Diciembre de 2024, 15:20

Autor Tema:  Algoritmo En Sl  (Leído 3964 veces)

gust100501

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Algoritmo En Sl
« en: Sábado 15 de Abril de 2006, 17:05 »
0
Necesito calcular la suma de los terminos de la serie de Fibonacci cuyos valores se encuentran entre 100 y 10000.
Hasta ahora lo que pude hacer fue esto:
var A,B,F,c: numerico
inicio
imprimir(1,"\t")
A=0
B=1
               desde c= 1 hasta 99{
   F=A+B
   imprimir(F)
   A=B
   B=F}
fin.
con esto puedo imprimir toda la serie pero necesito cambiar algunos datos para poder imprimir la suma.
Si alguien puede ayudarme con esto estaria muy agradecido

Gustavo  :)

berniebolso

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re: Algoritmo En Sl
« Respuesta #1 en: Sábado 8 de Julio de 2006, 16:39 »
0
Por que  no probas con un método que te devuelva los elementos de la serie de fibonacci, que se llame en cada iteración del for, y que se vaya guardando en una variable suma. Claro?

ing_marco

  • Miembro MUY activo
  • ***
  • Mensajes: 263
    • Ver Perfil
Re: Algoritmo En Sl
« Respuesta #2 en: Sábado 8 de Julio de 2006, 23:27 »
0
Mira podrias hacer una funcion que determine la suma de la serie Fibbo hasta N,
esta funcion seria de este modo:

Funcion sumaFibbo(Limite)
{
a=0;
b=1;
F=0;
Suma=0;
mientras (F<Limite)
{
F=a+b;
a=b;
b=F;
Suma=Suma+F;
}
return Suma;
}

Cuando tienes esa funcion ahora creas otra funcion k determina la suma dentro de un rango:

Funcion sumaFibboRango(LimiteInf,LimiteSup)
{
return (sumaFibbo(LimiteSup)-sumaFibbo(LimiteInf));
}

Bueno eso seria masomenos el algoritmo para que calcules lo que necesitas.

Seguro que por alli tendras algun problema con poner "menor o igual" o "menor", cuando lo pruebas te daras cuenta a que me refiero.
 :hola:
MARCO DIAZ
Ing_Marco
Bachiller Ing de Sistemas.
UNT
Trujillo-Peru