Rest der Division bekommen

[Andreas L.]

Hi,
ich teile eine Zahl, gespeichert in einer Extended-Variable. z. B.
bla := bla / 137; Angenommen das Ergebnis ist jetzt keine ganze Zahl, z. B. 5,13

Wie kann ich jetzt den Rest bekommen, also die 0,13 ??

Ich weiß das es da eine Funktion gibt. Mir fällt nur der Name nicht ein. Hab schon überall gesucht.

[mkinzler]

MOD

Delphi-Quellcode:

erg := bla DIV 137;
rest := bla MOD 137;

[Ultimator]

MOD wäre die korrekte Bezeichnung für den Rest, aber ich glaube, was Andreas möchte, ist
nachkomma := Frac(bla/137);

[hedie]

Hier die Funktion

Delphi-Quellcode:

Function Division_String(Zaehler,Nenner,NachKommaStellen: integer): string;
var
  l,i,rest : word;
  s : string;
begin
  result := '';
  l := 0;
  i := (zaehler div Nenner);
  s := inttostr(i);
  rest := (Zaehler mod Nenner);
  If Rest <> 0 then s := s + '.';

  while (rest <> 0) and (l < NachKommaStellen) do
  begin
    If (Rest < nenner) then Rest := (Rest * 10);
    i := (Rest div Nenner);
    s := s + inttostr(i);
    rest := (rest mod Nenner);
    inc(l);
  end;
  result := s;
end;

100 = Zähler
3 = Nenner
20 = Komastellen

Aufrufen mit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := Division_String(100,3,20);
end;

[Andreas L.]

Zitat von Ultimator:

MOD wäre die korrekte Bezeichnung für den Rest, aber ich glaube, was Andreas möchte, ist
nachkomma := Frac(bla/137);

Delphi-Quellcode:

 tmp := panel1.Width;
 tmp := tmp / 137;
 ShowMessage(floattostr(tmp));
=3,13138686131387
 tmp := Frac(tmp/137);
 ShowMessage(floattostr(tmp));
=0,0228568384037509

Da stimmt aber irgendwas nicht?? Der Rest müsste 0,1313... sein

@hedie: Uff, so ne fette Funktion jetzt einbinden. Da muss doch Delphi was eigenes haben, oder?

[hedie]

Man beachte meinen beitrag

[idontwantaname]

du könntest das so machen:rest := tmp - Trunc(tmp);

[Luckie]

Rest <> Nachkommanateil!

Der Rest ist der Teil eines Ergebnisses, der sich nicht mehr glatt durch den Divisor teilen lässt und "übrigbleibt". Beispiel:

Code:

5 : 2 = 2,5

Aber

Code:

5 : 2 = 2 Rest 1

[Andreas L.]

Ich Idiot. Das von ultimator funktioniert natürlich. ich habe vergessen die Variable wieder auf panel1.width zu setzen bevor ich frac aufgerufen habe.

[Hador]

Oder einfach
X/Y - Floor(X/Y) Du kannst das ganze natürlich auch zu einer ganzzahl machen:
Round((X/Y - Floor(X/Y)) * 100) Die Zahl 100 gibt dabei die genauigkeit an. in diesem Fall 2 Nachkommastellen. Bei 3 wäre es dann 1000 usw.

Is übrigends ungetestet, sollte aba funktionieren

EDIT1: Roter kasten ?

EDIT2: Trunc sollte besser sein als Floor. Damit könnte es Probleme bei negativen Zahlen geben.