Anuncios Google

ayuda con programa en pascal

me podrian ayudar con un programa en pascal en el que tengo que poner la serie de fibonnaci (es la serie que empiesa con dos unos y despies el 2 por que 1 + 1 son dos y se va sumando el numero anterior al 2 que es 1 y da 3 y asi sucecibamente. ejemplo 1,1,2,3,5,8,13).

lo que necesito es que me pregunte cuantos numeros son los que quiero que me muestre y yo al darle 15 por ejemplo, me muestre 15 numeros.

asi es como lo estaba haciendo pero en vez de que me muestre 15 numeros, me m,uestra la suma hasta 15.

program fibonacci;

uses crt;

var

 a,b,c,max:integer;

begin;

clrscr;

 writeln('Serie de Fibonacci');

 writeln('Teclea el numero tope de la serie');

 writeln('');

 readln(max);

 a:=1;

 b:=1;

 writeln(a);

 writeln(b);

 while (a+b)<=max do

  begin;

  c:=(a+b);

  writeln(c);

  a:=b;

  b:=c;

  end;

 readln;

end.

espero que me hayan ententido.

gracias


Anuncios Google