1:
2:

Function DivS(Zahl1, Zahl2: Extended; Nachkommastellen: Integer): String;
//liefert genaue Ergebnis von Zahl1/Zahl2					

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

uses math;
procedure ausgabe;
var z:extended;
    stellen,i:integer;
    k:string;
begin
    z:=pi*sqrt(42)*1e21;                   //Beispiel
    label1.caption:=floattostr(z);   //Originalzahl
    stellen:=trunc(ln(z)/ln(10));
    z:=z/power(10,stellen);
    k:=inttostr(trunc(z));
    z:=frac(z);
    for i:=1 to stellen do begin
      z:=10*z;
      k:=k+inttostr(trunc(z));
      z:=frac(z);
    end;
    label2.caption:=k;              //Ausgabe ohne Kommata
end;					

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:

procedure ausgabe;
var z,z0,kontrolle:extended;
    nachkommastellen,gueltigestellen,stellen,i,genauigkeit:integer;
    k:string;
begin
    //Genauigkeit des verwendeten Typs extended=20 Stellen
    //bei double, ... entsprechend anpassen
    genauigkeit:=20;
    //Beispiel
    z:=pi*sqrt(42)*1e58;
    z0:=z;
    //Ausgabe Originalzahl
    label1.caption:=floattostr(z);
    //Stellenzahl-1
    stellen:=trunc(ln(z)/ln(10));
    //z auf Intervall [1,10] normieren
    z:=z/power(10,stellen);

    k:=inttostr(trunc(z));
    z:=frac(z);
    //nur maximal so viele  Vorkommastellen wie Genauigkeit
    gueltigestellen:=min(stellen,genauigkeit);
    for i:=1 to gueltigestellen do begin
      z:=10*z;
      k:=k+inttostr(trunc(z));
      z:=frac(z);
    end;
    //wenn Genauigkeit erreicht ist mit 0 auffüllen
    if gueltigestellen<stellen then
      for i:=gueltigestellen to stellen-1 do k:=k+'0';
    //nur Nachkommastellen wenn Genauigkeit noch nicht erreicht
    if stellen<genauigkeit then begin
    k:=k+',';
    for i:=1 to genauigkeit-stellen do begin
      z:=10*z;
      k:=k+inttostr(trunc(z));
      z:=frac(z);
    end;
    end;
    label2.caption:=k;
    //Kontrolle des Wertes
    kontrolle:=z0-strtofloat(k);
    label3.caption:='proz.Abweichung '+floattostr(100*kontrolle/z0)+'%';
end;