AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Gibt es MOD auch mit Real ausgabe?

Ein Thema von lbccaleb · begonnen am 4. Mai 2010 · letzter Beitrag vom 4. Mai 2010
Antwort Antwort
Benutzerbild von lbccaleb
lbccaleb

Registriert seit: 25. Mai 2006
Ort: Rostock / Bremen
2.037 Beiträge
 
Delphi 7 Enterprise
 
#1

Gibt es MOD auch mit Real ausgabe?

  Alt 4. Mai 2010, 12:39
Hallo,

ich brüchte sowas wie den MOD Befehl, aber als ausgabe brauche ich ein Real wert, ohne das mit MOD alles nach dem Komma abschneidet.
Gibt es so ein Befehl in Delphi?

Oder muss ich mir das selber basteln??
Martin
MFG Caleb
TheSmallOne (MediaPlayer)
Die Dinge werden berechenbar, wenn man die Natur einer Sache durchschaut hat (Blade)
  Mit Zitat antworten Zitat
dominikkv

Registriert seit: 30. Sep 2006
Ort: Gundelfingen
1.109 Beiträge
 
Delphi 2007 Professional
 
#2

Re: Gibt es MOD auch mit Real ausgabe?

  Alt 4. Mai 2010, 12:42
Das heißt du meinst einfach ein "geteilt durch"? -> /
MOD mit DIV verwechselt...
Dominik
Wer anderen eine Grube gräbt, hat ein Gruben-Grab-Gerät!
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.063 Beiträge
 
Delphi 12 Athens
 
#3

Re: Gibt es MOD auch mit Real ausgabe?

  Alt 4. Mai 2010, 13:00
1. es gibt einen [Edit]-Button

2. Es heißt Ganzzahldivision. Also nein.


Real = Fließkommazahl
Integer = Ganzzahl

Im Notfall mußt'e dir halt selber was basteln:
für Rest := r mod x;
Delphi-Quellcode:
// für positive Zahlen:
rest := r - (Trunc(r / x) * x);
rest := r - (Int(r / x) * x); rest := Frac(r / x) * x; ...
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.768 Beiträge
 
Delphi 10.4 Sydney
 
#4

Re: Gibt es MOD auch mit Real ausgabe?

  Alt 4. Mai 2010, 13:06
Hallo,

meinst Du vielleicht so etwas?

Delphi-Quellcode:
function floatMod(zahl:double;divisor:integer):double;
begin
  //result := (frac(zahl / divisor)) * divisor;
  result := zahl - (trunc(zahl) div divisor) * divisor;
end;
Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat
Benutzerbild von lbccaleb
lbccaleb

Registriert seit: 25. Mai 2006
Ort: Rostock / Bremen
2.037 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Gibt es MOD auch mit Real ausgabe?

  Alt 4. Mai 2010, 13:46
Danke himitsu,
Zitat von himitsu:
rest := r - (Trunc(r / x) * x);
Das klappt so wie ichs will!
Martin
MFG Caleb
TheSmallOne (MediaPlayer)
Die Dinge werden berechenbar, wenn man die Natur einer Sache durchschaut hat (Blade)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz