Konversion von dezimal zu binär

[himitsu]

Zitat:

'Range check error'

Siehst du ... das war jetzt die aktivierte Bereichsprüfung.
Ein "Fehler in der Bereichsprüfung" ist doch viel verständlicher, als eine wilde "Zugriffsverletzung", welche je nach Position und Art des Zugriffs manchmal garnicht erkannt wird oder sich sonstwie auswirkt.


- es werden zufällig an dieser Stelle gefunde Daten gelesen ... welche von anderen Variablen
- es exisitert an dieser Stelle nix oder es ist schreibgeschützt (bei einem Schreibzugriff) = Zugriffsverletzung
- man weist der Variable was zu, an dieser Stelle existiert was Fremdes (andere Variable), dadurch wird dieses überschrieben ... und dann kann später (auch erst viel später) das Programm sonstwie reagieren, jenachdem was dort überschrieben wurde.



Und wenn man dazu noch den Debugger verwendet, dann sagt einem Delphi sogar die Fehlerstelle, welche in deinem Fall zuerst square[i]:=1; sein wird, weil das Array viel zu klein ist, da du verggessen hast die Größe zu setzen.




[OH]Wie soll ich das verstehen spätestens die Größe anzupassen wenn man es benutzt? Kann ich eine variable mitten im Programm anders deklarieren?[/OH]
Nein, das hat auch niemand gesagt.

SetLength ändert die Größe des "dynamischen" Arrays, welches du in der Variable "square" deklariert hast.
> "dynamisch änderbar", also zur Laufzeit über SetLength


PS: Strg+C in Fehlerdialogen = Kopieren der Fehlermeldung

[Popov]

Ich hab jetzt nicht ganz verstanden was das Problem ist, der Array oder wie man konvertiert. Ich hab mal auf die Schnelle eine Funktion erstellt, gebe das Ergebnis aber als String aus. Wer es anders will, bitte anders machen:

Delphi-Quellcode:

function IntToBinStr(Value: Integer; Digits: Byte = 32): String;
var
  i, k: Integer;
begin
  if Digits > 32 then Digits := 32; // 32 Bit Int, oder Value Typ ändern
  Result := '';
  k := 1;
  for i := 1 to Digits do //(4 * 8) = 32 Bit
  begin
    if (Value and k) = k then
      Result := '1' + Result else
      Result := '0' + Result;
    k := k * 2;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToBinStr(43));
end;

Es funktioniert auch ohne Power.

[idefix2]

Das ist aber kein fair play: Du machst Dir die Tatsache zunutze, dass die Dezimalzahl intern ohnehin schon als Binärzahl konvertiert vorliegt. Du konvertierst nicht die Dezimalzahl in eine Binärzahl, sondern liest die bereits vorhandenen Bits der Binärdarstellung aus. Ich glaube nicht, dass das im Sinne des Aufgabenstellers ist.

Trotzdem geht es natürlich auch ohne die Power Funktion, man muss dazu nur die Zahl wiederholt durch zwei dividieren und die aufeinanderfolgenden Divisionsreste zu einem Binärzahlenstring zusammenhängen.

[Bjoerk]

Außerdem ist k für 32 Digits > MaxInt

[Amateurprofi]

Zitat von idefix2:

Das ist aber kein fair play: Du machst Dir die Tatsache zunutze, dass die Dezimalzahl intern ohnehin schon als Binärzahl konvertiert vorliegt. Du konvertierst nicht die Dezimalzahl in eine Binärzahl, sondern liest die bereits vorhandenen Bits der Binärdarstellung aus. Ich glaube nicht, dass das im Sinne des Aufgabenstellers ist.

Trotzdem geht es natürlich auch ohne die Power Funktion, man muss dazu nur die Zahl wiederholt durch zwei dividieren und die aufeinanderfolgenden Divisionsreste zu einem Binärzahlenstring zusammenhängen.

Das ist aber eine merkwürdige Argumentation.
Alle Daten ob Strings, Integers, oder Extended-Werte sind letztendlich binäre Daten.
Wenn jemand sein Wissen darüber nutzt, um zu einer Lösung zu kommen, dann ist das nicht unfair sondern vernünftig.

Der TE hatte ja seine "number" als Extended deklariert.

Die unten stehende Funktion nutzt die binäre Darstellung im Extended-Wert um ohne weitere Umwege den Extended in einen Binärstring umzuwandeln.
Sie ist für Werte von 0 bis 2^64-1 ausgelegt.
Bei Werten außerhalb dieses Bereiches wird eine Exception ausgelöst.

Ich hab die Funktion "auf die schnelle" geschrieben und nicht wirklich voll ausgetestet. Bitte keine Schimpfe wenn da Bugs drin sind.

Delphi-Quellcode:

FUNCTION ExtendedToBin(const v:extended):string;
type
   TExt=packed record M:UInt64; E:word; end;
const
   Bias=$3FFF; Sign=$8000; MaxE=Bias+63;
   sErr='Fehler bei Umwandlung in Binärstring.';
var
   e:word; i:integer;
begin
   e:=TExt(v).E;
   if e>0 then begin
      if (e>=Sign) or (e<Bias) or (e>MaxE) then raise Exception.Create(sErr);
      dec(e,Bias);
      if (e<63) and (((UInt64(1) shl (63-e) - 1) and TExt(v).M)<>0) then
         raise Exception.Create(sErr);
   end;
   SetLength(result,e+1);
   for i:=1 to e+1 do
      result[i]:=Chr($30 or Ord(TExt(v).m and (UInt64(1) shl (64-i))<>0));
end;

[Popov]

Zitat von idefix2:

Das ist aber kein fair play: Du machst Dir die Tatsache zunutze, dass die Dezimalzahl intern ohnehin schon als Binärzahl konvertiert vorliegt.

Was hat das mit Fair Play zu tun? Selbst wenn die Zahl als Banane vorliegt und uns die braunen Flecken den Binärwert verraten, dann ist es eben so. Das einzige was ich gelesen habe ist, dass er es konvertieren will. Wenn er das über Wuppertal konvertieren will, dann soll er es vorher sagen.

[mikhal]

Vielleicht hilft auch diese Seite weiter, hier ist eigentlich kurz und knapp die Möglichkeit beschrieben, wie man mit dem Hornerschema Zahlensysteme umrechnet.

Grüße
Mikhal