Serie de Fibonacci en pascal

[periCo[un]Ltd.]

Ya me canse de revisar este codigo

Código:

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.

trabaja correctamente con numeros pequeños, pero si se introduce un numero muy grande no sepliega la lista o la despliega incompleta what'ta fuck is wrong?

[phpnet]

No te aflijas si no te funciona es que sucede lo siguiente:
El numero de fibonacci lo podes calcular en una maquina solo para numeros pequeños es que la cosa se torna muy largo cuando lo haces para numeros creo que mayores que 8 ya podes terminar el año y no se va a terminar de ejecutar tu programa.
Esto no quiere decir que no este mal el programa si no que matematicamente se pone largo de hacer los calculos.
Si no pensa en el la funcion n! (factorial de n) y toma una calucladora e intenta hacer n! con n mayor a 69 ahi fuiste.
Siempre y en cuando tu calculadora sea una sientifica standar......y nada de cosas raras.
A si que no te quemes mas la cabeza es un problema de recursos seguro que el resultado sobrepasa maxint......o hace un error de stack si estas trabajando recursivamente...
Saludos y espero que te haya convencido.

[Relket]

Te puedo decir que si aun quieres intentar con números mayores te recomiendo que cambies el tipo de dato a las variables, puesto que el tipo de dato "Integer " tiene un rango de valores que van de -32,768 a 32,767, por lo que deberías utilizar el tipo de dato "Longint ".
Espero que te haya servido de algo lo que te recomendé.