Calculations with Many Digits (>30)

[Elap]

Is there a wonderful unit which does arithmetic to oodles of significant digits?

[rvk]

Check out
https://forum.lazarus.freepascal.org/index.php?topic=25696.0

[Elap]

Many thanks.

[engkin]

You might want to consider unit FmtBCD if you use trunk, or if you download it from here to overcome this bug.

Here is an example:

Code: Pascal  [Select][+][-]

1. program Project1;
2.  
3. {$mode objfpc}{$H+}
4.  
5. uses
6.   FmtBCD_bug0033795;
7.  
8. var
9.   a,b,c:TBCD;
10.   s: FmtBCDStringtype;
11. begin
12.   a := 2;
13.   b := 3;
14.   c := a/b;
15.   s := BCDToStr(c);
16.   WriteLn('Length: ',Length(s));
17.   WriteLn('Result: ',s);
18.   WriteLn;
19. end.

Its output:

Length: 65
Result: 0.666666666666666666666666666666666666666666666666666666666666667

Or:

Code: Pascal  [Select][+][-]

1.   a := StrToBCD('1234567890123456789012345678901234567890');
2.   b := StrToBCD('1000000000000000000000000000000');
3.   c := a/b;
4.   s := BCDToStr(c);
5.   WriteLn(Length(s));
6.   WriteLn(s);

Gives:

Length: 40
Result: 1234567890.12345678901234567890123456789

[SymbolicFrank]

Interesting. I didn't know this existed. I'm going to test this.

[srvaldez]

the link by engkin did not work for me but this link works https://svn.freepascal.org/svn/fpc/trunk/packages/rtl-objpas/src/inc/

[marcov]

Seems array [0..31] of byte so 64 digits.