Para el que este aburrido y tenga ganas de pensar 2

[[marceloalegre]]

Me quede pensando en el uso del BCD y implemente la funcion en delphi en base a la que tenia en java... mmm no anda... a ver si alguien me corrige en mi desconocimiento del uso de los TBCD...

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  last1,last2, aux:TBcd;
begin
  Last1:=StrToBcd('0');
  Last2:=StrToBcd('1');
  Aux  :=StrToBcd('0');
  while true do //jeje no queda agradable pero corto con el exit.. costumbre!
  begin
    BcdAdd(Last1,Last2,Aux); //sumo el f(x-1)+f(x-2) y lo meto en aux...
    Last1:= last2;
    Last2:=Aux;
    if Length(BcdToStr(Aux))= 21 then
    begin
      ShowMessage(BcdToStr(Aux));
      Exit;
    end;
  end;
end;

el ciclo no corta nunca, porque empieza haciendo bien las cuentas aparentemente y despues mm no se....

Saludos!