Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Nachkommastellen Variabl Ausgeben


OlliWausD - Do 03.03.05 12:09
Titel: Nachkommastellen Variabl Ausgeben
hi Leutz,

ich bräuchte mal kurz nen kleinen Denkanstoß!

Folgendes Problem:

ich habe x, y und das Ergebnis

Beispiel:

x: 200
y: 10
Ergebnis: = x/y --> 20

Ich übergebe nun die Zahl 20 ohne Nachkommastelle

Wenn ich allerdings

x: 208
y: 24
Ergebnis: --> 8,66666666666666666666666

In diesem Fall müsste ich auf 1 Nachkommastelle mein Ergebnis ausgeben.

Ich muss quasi feststellen, ob das Ergebnis Nachkommastellen hat, und wenn ja, diese mit 1 Nachkommastelle ausgeben. Wie stell ich fest, ob das Ergebnis Nachkommastellen hat???

mfg

OlliW


HariboHunter - Do 03.03.05 12:16
schau mal in der Delphi- hilfe unter 'div' und 'mod'.

und dann mit einer abfrage versuchen , if modulo > 0 then begin ....


Gausi - Do 03.03.05 12:18
Ich glaube, da solltest du mal ein bissel mit FloatToStrF rumspielen, und je nach Bedarf die Parameter ggf. ändern. Ob eine Zahl Nachkommastellen hat, kann man z.B. mit

Delphi-Quelltext 
1:
2:
3:
4:
 
if abs(Zahl - round(Zahl)) = 0 then ...
//oder besser: 
if abs(Zahl - round(Zahl)) < eps then ...
// mit eps >0 (hihi, was sonst), aber sehr klein, z.B. 0.000000001;


Amiga-Fan - Do 03.03.05 12:30
sorry für den Einwurf aber könnte bitte jemand die Fehler in der Überschrift beheben? Ihr könnt anschließend diesen Post löschen.


OlliWausD - Do 03.03.05 13:14
ahh, sorry Jungs,

war heut früh weng verplant.

habs schon:

z := (x mod y)

if z <> 0 then Ergebnis = formatfloat('0.0',(x/y))
else
Ergebnis = (x/y)

Trotzdem Danke, an alle die gepostet haben :P

mfg

OlliW


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 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!