Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Delphi verrechnet sich... Wieso?
downdapp - Sa 08.02.03 21:36
Titel: Delphi verrechnet sich... Wieso?
Im EditFeld steht bei mir eine lange zahlenfolge:
3284283612163875659871432659632986597321587632195
die 1sten 8 Zahlen kommen in a.
die darauf folgenden in b...... aber nicht alle auf einmal.
Zuvor... a sei 100%
Nun will ich gucken wieviel prozent b von a ist...
y:=b*100/a
z.B. a:=32842836;
b:=121638756598714326596;
laut delphi y=370366178483229%;
Laut WindowsTaschenRechner a*y/100=121638756598714187974,44
Wieso Diese abweichung???
Quelltext
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:
| procedure TForm1.Button1Click(Sender: TObject);
var q,y,y2,y3,y4:extended;
i,j,l:integer;
k,u,buffer:string;
begin
k:='';
q:=0;
y2:=2;
u:='';
for i:=1 to 8 do k:=k+edit1.text[i];
for i:=length(k)+1 to (length(k)*2) do u:=u+edit1.text[i];
for j:=17 to length(edit1.text) do begin
u:=u+edit1.text[j];
// showmessage(floattostr((11159134480*32765798)));
q:=strtofloat(k);
y2:=strtofloat(u);
y:=y2*100/q;
// showmessage(floattostr(100*88680
//78453842 886803984637639%
label1.Caption:=k;
label2.Caption:=u;
application.ProcessMessages;
if (length (floattostr(y))< length(u) )
then showmessage(u +'='+floattostr(y)+'%'+ 'von'
+k+' won='+inttostr((length(u)-length (floattostr(y)))));
end;
end; |
Delete - Sa 08.02.03 22:56
Welchen Datntyp haben denn deien Variablen? Mir ist kein ganzzahliger Datentyp bekann,d er so große zahlen aufnehmen könnte.
downdapp - Sa 08.02.03 23:06
extended....
.....o oo .... habe ich jetzt ein Problem ?
wie löse ich denn das??
Delete - Sa 08.02.03 23:17
Bei Torry müßte es was geben, das mit großen Zahlen rechnen kann.
downdapp - So 09.02.03 10:58
wer oder was ist torry
downdapp - So 09.02.03 12:02
Konnte da irgendwie nichts finden,
nur multiplizieren von großen Integerwerten....
da ich auch dividiere .... Hilft mir das nicht
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!