Nachkommastelle prüfen und inc

MagicRain · Verfasst: So 04.11.12 21:32

Hallo, und zwar probiere ich schon die ganze zeit herum und habe schon unzählige Threads durch gelesen aber nichts zu meinem Problem gefunden. Ich Möchte Feststellen ob ein div : Double Nachkommastellen hat und wenn dann auf Ganzzahl inc'en.

z.B so....

markieren

Delphi-Quelltext

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

x , y : double;
x:= x div $3;
y := x;
zb y := 178.35 

jetzt mein Problem....
if y 0.xx then +1 else = nothing

z.B
y := 111.00000000 then nothing...nicht ( +1 ) else ( +1 )

aber bei ganzen wert also aus z.B 178.35 wird wegen Kommastellen 179.
Also wenn Kommastellen da sind dann die Ganzzahl runden und die Kommastellen abschneiden. Hat vielleicht einer von euch eine Idee wie man das ganze machen könnte? Hab gar keine Ahnung auch noch nicht so viel mit fpu also float zahlen gemacht.

Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am So 04.11.2012 um 21:08

Martok · Verfasst: So 04.11.12 21:41

Hi!

Also jetzt mal davon abgesehen, dass das syntaktisch (sorry) völliger Quatsch ist (bist du zufällig NC-Programmierer? Da seh ich sowas grade oft

) klingt das was du da schreibst sehr nach Suche in der Delphi-Reference

CEIL(), oder?

Grüße,
Martok

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."

MagicRain · Verfasst: So 04.11.12 21:55

Nunja muss das ganze aber in Delphi umsetzen. Also muss das ja irgendwie gehen?! hmmm

mandras · Verfasst: So 04.11.12 23:55

MagicRain hat folgendes geschrieben :

Nunja muss das ganze aber in Delphi umsetzen. Also muss das ja irgendwie gehen?! hmmm

Natürlich geht es irgendwie. Wenn Du nun bitte das Problem entwas genauer beschreiben könntest?

Delphi:
div ist Integer-Division. Ergebnis ganze Zahl immer nach unten gerundet. mod: Rest einer Integer-Division.
trunc (x:real oder double oder extended): Nachkommastellen abschneiden - trunc (132.93)= 132
ceil (x:real oder double oder extended): ggf. auf nächstgrößere ganze Zahl aufrunden. Auszug aus Doku:

markieren

Delphi-Quelltext

1:
2:
3:

Ceil(-2.8) = -2
Ceil(2.8) = 3
Ceil(-1.0) = -1

Tranx · Verfasst: Mo 05.11.12 08:07

Die Funktion CEIL hat leider eine Einschränkung: Der Parameter darf Maxint nicht überschreiten. Wie wäre es mit folgendem "Konstrukt":

markieren

Delphi-Quelltext

1:	intVar := int(realVar + 0.999999);

Dann gilt für Bruchteil = 0.0 : IntVar gleich RealVar, ansonsten gilt IntVar = Ganzteil(RealVar)+1

_________________
Toleranz ist eine Grundvoraussetzung für das Leben.

MagicRain · Verfasst: Mo 05.11.12 21:51

Dankeschön! Erledigt.

MfG

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme