Para el que este aburrido y tenga ganas de pensar 2

[roman]

Empezado por kanvictor

Por cierto, lo que queria sacar a relucir con esto, es que pese a que tengo puesta la camiseta de Delphi (obviamente), la funcion en java es mucho mas simple:

Hombre, no es por nada pero es que este problema es trivial. Lo que quiero decir es que la dificultad real del problema consiste justamente en que no todos los lenguajes tendrán enteros tan largos (o aunque los tengan, pues Delphi cuenta con los BCD), de manera que el problema está en ingeniárselas sin ellos, tal y como hizo seoane.

// Saludos

[[seoane]]

Empezado por roman

Hombre, no es por nada pero es que este problema es trivial. Lo que quiero decir es que la dificultad real del problema consiste justamente en que no todos los lenguajes tendrán enteros tan largos (o aunque los tengan, pues Delphi cuenta con los BCD), de manera que el problema está en ingeniárselas sin ellos, tal y como hizo seoane.

// Saludos

No conocía los BCD, me siento como si me pusiera a reinventar la rueda. Con lo contento que estaba yo con mis superlargos, ya les tenia la multiplicación y la resta

[roman]

Pero es que cuando yo vi tu respuesta estuve a punto de mencionar algo del estilo de ¿por qué mejor no usan BCDs en lugar de reinventar la rueda?, pero, en un segundo pensamiento me di cuenta que justamente así no tenía ningún chiste el problema y por ello lo interesante fue precisamente tus enteros superlargos.

// Saludos

[Ñuño Martínez]

Pues yo tampoco sabía que Delphi incluye una implementación de BCD. Aunque, ahora que lo pienso, todos nos estamos refiriendo a Binario Codificado en Decimal, ¿verdad? Sólo para estar seguro.

[[marceloalegre]]

Empezado por roman

Hombre, no es por nada pero es que este problema es trivial. Lo que quiero decir es que la dificultad real del problema consiste justamente en que no todos los lenguajes tendrán enteros tan largos (o aunque los tengan, pues Delphi cuenta con los BCD), de manera que el problema está en ingeniárselas sin ellos, tal y como hizo seoane.

Hice el planteo del problema, porque estaba seguro que no habia un tipo de datos de delphi para hacerlo de manera simple, ahora que me cuentas del tipo BCD implementado en delphi, me entero de una novedad , igual a mi me parecio excelente la reinvension de rueda del amigo Seoane.

[[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!

[[seoane]]

Si es que no nos fijamos

Código Delphi [-]
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(Last1));  // <--- Fijate bien
      Exit;
    end;
  end;
end;

[[marceloalegre]]

Es muy correcto lo que me dices Domingo!, de esta manera muestro el mayor de 20 digitos. Mas alla de esto noto que al ejecutar este codigo el ciclo nunca termina, evidentemente no se forma nunca una cadena de 21 caracteres, por causas desconocidas ...

[roman]

Bueno, al parecer el ciclo nunca termina porque al inicializar Last1 y Last2 de esa manera, ambos quedan con una precisión de 1 que no alcanza ni para un entero de tres dígitos.

Lo he podido hacer así:

Código Delphi [-]
var
  s,t,u: TBcd;

begin
  // Aquí inicializamos a 1 pero con precisión 21
  NormalizeBcd(IntegerToBcd(1), s, 21, 0);
  NormalizeBcd(IntegerToBcd(1), t, 21, 0);

  BcdAdd(s, t, u);

  while Length(BcdToStr(u)) <= 20 do
  begin
    s := t;
    t := u;

    BcdAdd(s, t, u);
  end;

  Edit1.Text := BcdToStr(t);
end;

// Saludos

[[seoane]]

Empezado por roman

Bueno, al parecer el ciclo nunca termina porque al inicializar Last1 y Last2 de esa manera, ambos quedan con una precisión de 1 que no alcanza ni para un entero de tres dígitos.

No estoy familiarizado con estos números, pero en mi turbo el método de kanvictor me funcionaba hasta con 60 dígitos. ¿Puede que se inicialicen de diferente manera?