Problem mit Binärrechner

[Metatron220]

Ich möchte einen Rechner schreiben, der eine beliebige Zahl in Binärcode umwandelt. Folgenden Code habe ich geschrieben:

Delphi-Quellcode:

var x,y,z, r: integer;
begin
  edit2.Text:='';
  z:=2;
  x:=StrToInt(edit1.Text);
  r:=x;
  if x=1 then edit2.Text:=edit2.text+'1'
  else
  if x=0 then edit2.Text:=edit2.text+'0'
  else
  begin
  repeat
  z:=2;
     repeat
        y:=r div z;
        z:=z*2;
     until y=1;
     edit2.Text:=edit2.text+'1';
     r:=r mod z;
  until r=0;
  while z>2 do
  begin
    z:=z div 2;
    edit2.text:=edit2.text+'0';
  end;
  end;
end;

Edit1 ist das Editfeld in dem die umzurechnende Zahl steht, Edit2 ist das Feld in dem der Binärcode ausgegeben wird.

Jedoch bleibt das Programm immer hängen (ich nehme an es wiederholt eine Schleife unendlich oft) Hat jemand eine Ahnung was an dem Code falsch ist?

schon mal vielen dank im vorraus

[Alexander Roth]

Kann es sein das x von vornerein 0 ist, dann kann y in der schleife nie 1 werden.
Ebenfalls kann es sein dass x 1 ist, dann wird ebenfalls nix draus.

Erklärung, r:=x; damit kann r 1 oder 0 sein
dann wird: y:=r div 2
dann kann y nie 1 werden


PS: Kapier deine Umwandlung ins Binärsystem nicht

[cell]

mach mal debuggen setz einen breakpoint und lass das programm laufen

[DBR]

Mach doch sowas:

Delphi-Quellcode:

function IntToBin(i: int64): string;
begin
  result := '';
  while i > 0 do begin
    result := inttostr(ord(odd(i))) + result;
    i := i shr 1;
  end;
  if result = '' then result := '0';
end;


procedure TForm1.Button7Click(Sender: TObject);
var x, y, z, r: integer;
begin
  edit2.Text := IntToBin(StrToIntDef(Edit1.Text, 0));
end;

Ist doch einfacher.
Gruß DBR

[edit=Admin]Delphi-Tags gesetzt. Künftig bitte selber machen. Danke ;-) Mfg, Daniel[/edit]

[TeronG]

Zitat:

Zitat von DBR

Mach doch sowas:

mach doch mal code-tags (heißen die so ??)

Zitat:

Zitat von DBR

Delphi-Quellcode:

function IntToBin(i: int64): string;
begin
  result := '';
  while i > 0 do begin
    result := inttostr(ord(odd(i))) + result;
    i := i shr 1;
  end;
  if result = '' then result := '0';
end;


procedure TForm1.Button7Click(Sender: TObject);
var x, y, z, r: integer;
begin
  edit2.Text := IntToBin(StrToIntDef(Edit1.Text, 0));
end;

Ist doch einfach. :mrgreen:

[Alexander Roth]

Das

Delphi-Quellcode:

 result := '';

am Anfang kannst du auch weglassen.

[marabu]

Auch ich würde eine saubere Trennung von GUI und Funktionen vorziehen. Meine Umwandlungsroutine und die von DBR unterscheiden sich aber geringfügig:

Delphi-Quellcode:

function CardToDual(c: Cardinal): string;
begin
  Result := '';
  repeat
    Result := Chr(Ord('0') + Ord(Odd(c))) + Result;
    c := c shr 1;
  until c = 0;
end;

procedure TMainForm.ConvertButtonClick();
begin
  BinaryEdit.Text := CardToDual(StrToInt(DecimalEdit.Text));
end;

Grüße vom marabu

[barf00s]

KarteZuDual? :P

wenn'd "CardinalToDual" schreibst siehts doch gleich schmucker aus </senf>

[marabu]

Hast Recht - schreibe gerade eine wrapper unit für SysUtils:

Delphi-Quellcode:

unit SysUtilsTheBarf00sWay;

interface
  
  function IntegerToString(i: integer): string;

implementation

uses
  SysUtils;

function IntegerToString(i: integer): string;
begin
  Result := IntToStr(i);
end;

end.

Magst du mir nicht ein wenig helfen?

Grüße nach Berlin
marabu

[Metatron220]

Vielen Dank für die Hilfe. Ich bin aber leider ein ziemlicher Anfänger un hab deshalb en paar Fragen. Leider kenne ich folgende Befehle nicht un wüsste gerne was sie bewirken:
Chr
Ord
Odd
Shr

Wär nett wenn mir da nochmal jemand helfen könnte. Vielen dank schon mal.

[Ultimator]

Aaalso *g*

• Chr Gibt das Zeichen zurück, das den als Parameter angegebenen ASCII-Code hat
• Ord Macht das Ganze andersrum. Als Parameter wird ein Char erwartet und die Funktion gibt den passenden ASCII-Code zurück.
• Odd Liefert true zurück, wenn die als Parameter angegebene (ganze) Zahl ungerade ist.
• shr Verschiebt alle Bits eines Wertes um einen angegebenen Wert

Ich hoff, das war verständlich *g*

[Metatron220]

Vielen dank für die Erklärungen. Jetzt weiß ich zumindest eins:
nämlich dass ich absolut net weiß wie des mit der umwandlung nach der methode funktioniert. aber trotzdem vielen dank *g*

[Khabarakh]

Drei kleine Anmerkungen :wink: :

• Chr Gibt das Zeichen zurück, das den als Parameter angegebenen ASCII-Code hat
• Ord Macht das Ganze andersrum. Als Parameter wird ein Char erwartet und die Funktion gibt den passenden ASCII-Code zurück. Funktioniert mit allen ordinalen Typen
• Odd Liefert true zurück, wenn die als Parameter angegebene (ganze) Zahl ungerade ist. Compilermagic, daher schneller als "mod 2" oder "and 1"
• shr Verschiebt alle Bits eines Wertes um einen angegebenen Wert nach rechts :wink:

Oder einfach:

[Ultimator]

Zitat:

Zitat von Khabarakh

Drei kleine Anmerkungen :wink: :

• Chr Gibt das Zeichen zurück, das den als Parameter angegebenen ASCII-Code hat
• Ord Macht das Ganze andersrum. Als Parameter wird ein Char erwartet und die Funktion gibt den passenden ASCII-Code zurück. Funktioniert mit allen ordinalen Typen
• Odd Liefert true zurück, wenn die als Parameter angegebene (ganze) Zahl ungerade ist. Compilermagic, daher schneller als "mod 2" oder "and 1"
• shr Verschiebt alle Bits eines Wertes um einen angegebenen Wert nach rechts :wink:

Oder einfach:

OK, zu Ord: Das wusst ich gar nicht :oops: Habs nur in Verbindung mit Chars gebraucht :)
Zu Odd: Das wusste ich, aber das war halt einfach Zusatzinformation ;)
Zu shr: Das wollte ich sogar schreiben :oops: Und shl als Gegenteil (also, dass es nachlinks verschiebt) wollte ich auch erwähnen :)

Aber jetz is ja alles gesagt ;)

[Metatron220]

Sorry wenn ich mich so doof anstelle aber könnt mir einer erklären warum der Code von Marabu funktioniert?
Danke schon mal

[barf00s]

@marabu, das war doch nur spaß -.-°

[flomei]

Bitte hört mal langsam aber sicher mit euren Einzeiler-Off-Topic-Posts auf.
Danke.

MFG Florian :hi:

[marabu]

Hi Metatron,

Delphi-Quellcode:

Result := Chr(Ord('0') + Ord(Odd(c))) + Result; 
// alternativ: Result := IntToStr(Ord(Odd(c))) + Result;

Odd(c) ist true für ungerade c, die ganze Zeile ist Zeichen-Arithmetik. Wenn es auf ein paar-zig CPU-Zyklen nicht ankommt, dann kannst du auch IntToStr() verwenden. In der Schleife wird immer nur das least significant bit (bit 0) betrachtet und anschließend durch bitweises Schieben eliminiert.

marabu

@barf00s: verstehe - willst also nicht helfen...

[Metatron220]

danke sehr. so ganz hab ichs zwar noch nich aber ich glaub so halbwegs hab ichs verstanden. ^^

[marabu]

Nochmal - anderer Ansatz:

Denke dir eine Zahl -- 5 ist gut. Die 5 als Dualzahl sieht etwa so aus: 101
In der Schleife nehme ich das rechte bit und wandle es in das Zeichen '1' um (ASCII-Code 49), baue das Zeichen in einen String so ein, dass es an der dem bit entsprechenden Stelle steht, danach schubse ich alle bits um eine Stelle nach rechts, wobei die 1 von eben in ein Wurmloch fällt.
Das geht solange, bis keine bits mit dem Wert 1 mehr vorkommen.

Jetzt klarer?

marabu

[Metatron220]

Vielen dank. ich glaub jetzt hab ichs verstanden :)