Mod Anweisung funktioniert nicht

[Cr3at0r]

Guten Mittag,

folgender Quellcode:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Zahl, Rest: real;
    Zaehler, Teiler: Integer;
begin
  Zahl := StrToFloat(Edit1.Text);
  Zaehler := 0;
  Rest := 0;
  Teiler := 2;
  Repeat
    Rest := Zahl Mod Teiler; //<--[Fehler] Teiler.pas(37): E2015 Operator ist auf diesen Operandentyp nicht anwendbar
    Zahl := Zahl / 2;
  Until
    Rest <>0;

  Label1.Caption := FloatToStr(Zaehler);
end;

Wo liegt der Fehler? Finde ihn nicht.

[SirThornberry]

mod funktioniert nur mit ganzzahlen. Zahl ist jedoch vom Typ "real"

[Cr3at0r]

Args ja stimmt, dank dir.

[SirThornberry]

für Realzahlen kannst du so den Rest berechnen (alle Variablen sind vom Typ Real bei dem Beispiel):
lRest := lDivident - Trunc(lDivident / lDivisor) * lDivisor;

[Cr3at0r]

Mit Integer geht es nun, aber jetzt läuft die repeat..until Schleife immer ins nirgendwo.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Zahl, Rest, Zaehler, Teiler: Integer;
begin
  Zahl := StrToInt(Edit1.Text);
  Zaehler := 0;
  Teiler := 2;
  Repeat
    Rest := Zahl Mod Teiler;
    Zahl := Zahl XOR 2;
    Inc(Zaehler);
  Until
    Rest <> 0;

  Label1.Caption := FloatToStr(Zaehler);
end;

Dabei sollte sie ja eigentlich stoppen sobald Rest <> 0 wird, tut sie irgendwie nicht.
Ne Idee woran das liegen mag?

[3_of_8]

Tja, da kannst du vermutlich lange warten.

Zahl:=Zahl xor 2; macht nichts anderes, als das 1. Bit von Zahl (von 0 beginnend) immer zu "wechseln". Mehr auch nicht.

[hoika]

Halo,

was willst du durch das xor erreichen ?

4 xor 2 = 6
6 xor 2 = 4

Endlos-Schleife, weil 4 und 6 keinen Rest bei mode 2 haben.


Heiko
PS:
Das xor hat der Taschenrechner von Windows ausgerechnet ...

[Cr3at0r]

Hatte in der Hilfe gelsen das es unter anderem ein Teiler für Integer Werte sein soll, muss ich mich verlesen haben.
Wie dem auch sei, hab ich durhc die Formel von SirThornberry das hinbekommen, danke euch.

[sirius]

Zitat von Cr3at0r:

Hatte in der Hilfe gelsen das es unter anderem ein Teiler für Integer Werte sein soll, muss ich mich verlesen haben.
Wie dem auch sei, hab ich durhc die Formel von SirThornberry das hinbekommen, danke euch.

Die Hilfe meinte sichlerlich "shr"