1:
2:

  mult(A,100000); 
  write(Format('%.5d',[a[1]]));                    

1:
2:
3:
4:
5:
6:

       //Übertrag
       for q:= groesse-1 downto 1 do begin
         r := feld[q] div grenze;  
         inc(feld[q-1],r);
         dec(feld[q], r*grenze);//feld[q]:=feld[q] mod grenze; feld[q]:=feld[q]-r*grenze; 
       end;                    

1:
2:

carry = (ulong)(result / MaxElement);
decimalPI[i] = (uint)(result % MaxElement);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

//tabelle Stellenwert->Buchstabe (ja, das ist hier komplizierter als notwendig *g*)
table := Table[a[[2]] -> a[[1]], {a, 
    Transpose[{CharacterRange["A", "Z"], Range[0, 25]}]}]; 
//Liste von Stellen
konvert[val_] := RealDigits[val, 26][[1]] /. table;
//als String
konvertStr[val_] := StringJoin[konvert[val]];
//test mit Ausgabe (benutzerfreundlicher als *Timing[])
SetAttributes[measure, HoldAll];
measure[expr_] := 
  Block[{time, result}, {time, result} = AbsoluteTiming[expr]; Print["Time taken: ", time]; result];

//Ergebnis in Datei dumpen
doIt[stellen_] := Export["C:\\pi26-" <> ToString[stellen] <> ".txt", measure[konvertStr[N[Pi, stellen]]], "Text"];
doIt[1000]
{...}                    

1:
2:
3:
4:

Time taken: 0.           Out[171]= "C:\\pi26-1000.txt"
Time taken: 2.2031250    Out[172]= "C:\\pi26-1000000.txt"
Time taken: 82.4062500   Out[173]= "C:\\pi26-10000000.txt"
Time taken: 249.0312500  Out[174]= "C:\\pi26-25000000.txt"                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:

program unbenannt;
uses
  sysutils,strutils,mp_types, mp_base, mp_numth,
  mp_rcalc, mp_real;
var

  a: mp_float;
  s : Ansistring;

function FileEinlesen(const Fname:ansiString):ansistring;
var
  f : file;
  l : integer;
begin
  Assignfile(f,FName);
  Reset(f, 1);
  l := filesize(f);
  writeln(l);
  setlength(result,l);
  BlockRead(f,result[1],l);
  closeFile(f);
end;

procedure Aufbereiten(var s:AnsiString);
//alle ZeilenPositonsMarker entfernen
const
  ZPM = #13#10;
  lZPM = length(ZPM);
var
  l,i,p0,p1,p2 : integer;
begin
  p0 := Pos(ZPM,s);
  p1 := p0+lZPM;
  p2 := p0;

  repeat
    p2 :=PosEx(ZPM,s,p1);
    IF p2 = 0 then
      break;
    i := p2-p1;
    IF p2 <> p1 then
      begin
      //Kürzen
      move(s[p1],s[p0],i);
      inc(p0,i);
      end;
    p1 := p2+lZPM;
  until p2 = 0;
  setlength(s,p0);

  s[p0] := #0;
  writeln(p0:8);
end;

var
  T1,t0: TDAteTime;
begin
  s := FileEinlesen('pi.flt');
  Aufbereiten(s);
  writeln('MPArith V', MP_VERSION, ' with MAXDigits = ',MAXDigits, ', MP_MAXBIT = ',MP_MAXBIT);

  mpf_init(a);
  T0 := now;
  mpf_read_decimal(a,pChar(s));
  T1 := now;
  mpf_writeln('Pi: ',a,100);
  writeln(FormatDateTime('HH:NN:SS.ZZZ',T1-T0 ));

  mpf_clear(a);
end.                    

1:
2:
3:

No more memory available.
Mathematica kernel has shut down.
Try quitting other applications and then retry.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

fu[x_, k_, m_] := Floor[k*NestList[(Mod[k *#, 1]) &, x, m - 1]];
fu2[x_, k_, m_] := Block[{result, work, n},
  result = {};
  work = x;
  For[i = 0, i < m, i++,
   work = work*k;
   result = Append[result, Floor[work]];
   work = FractionalPart[work];
   ];
  result
  ]                    

1:

fu[x_, k_, m_] := Floor[k*NestList[(Mod[k *#, 1]) &, x, m - 1]];