Para el que este aburrido y tenga ganas de pensar 2

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

[[marceloalegre]]

Empezado por seoane

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?

Epa! entonces estamos descubriendo que en turbodelphi hay cosas de esta indole implementadas de manera distinta a versiones anteriores como en mi caso delphi 7 .-

[roman]

Empezado por kanvictor

en turbodelphi hay cosas de esta indole implementadas de manera distinta a versiones anteriores

Con razón no entendía yo. Primero mencionaste

Empezado por kanvictor

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

y seoane tranquilamente te señaló el otro error, él no sabía del primero porque en turbo no se dá.

Lo que me desconcertó fue que tú le respondiste

Empezado por kanvictor

Es muy correcto lo que me dices Domingo!

Porque entonces pensé que sólo a mi se me presentaba ese error.



// Saludos

[[marceloalegre]]

jajaja detallecitos de interpretación! lo bueno de toda la cuestión es que terminamos concluyendo que por lo menos en cuestiones de BCD las cosas funcionan distintas para un turbo que en un d7!(o otro de los viejos)

Saludos!