Einzelnen Beitrag anzeigen

Benutzerbild von Coder
Coder

Registriert seit: 27. Feb 2004
Ort: Bochum
203 Beiträge
 
Delphi 3 Professional
 
#1

möchte modulo (Teilen) function neu programmieren

  Alt 8. Jan 2005, 13:49
Hallo
Ich wollte die "mod" function nachprogrammieren..

aber irgendwie kommen da falsche Ergebnisse.


Delphi-Quellcode:
function mody(Zahl :longint; Teiler :longint): longint;
var fix3 : longint;
runden1 ,runden2, Fix2,Fix1, erst: real;
begin
erst := Zahl / Teiler;
Fix1 := (erst - round(erst));
fix2 := (Fix1 * Teiler);
runden1 := fix2 - round(fix2);
runden2 := runden1 * 10;
If runden2 > 5 Then Fix3 := round(fix2) + 1;
If runden2 <= 5 Then Fix3 := round(fix2);
result := Fix3;
end;

----------

habt Ihr eine Idee woran das liegt?

oder gibt es evtl source zu so einer Funktion?

[edit=Admin]Code in Delphi-Tags gesetzt. Künftig bitte selber machen. Mfg, Daniel[/edit]
  Mit Zitat antworten Zitat