Hexadezimal in Binär

[DeddyH]

Delphi-Quellcode:

case c of
  'A', 'a': d := 10;
  'B', 'b': d := 11;
  'C', 'c': d := 12;
  'D', 'd': d := 13;
  'E'; 'e': d := 14;
  'F', 'f': d := 15;
  '0'..'9': d:=StrToInt(c);
  else
    //Fehler: ungültiges Zeichen, irgendwie behandeln
end;

[Marcel2906]

aber fehlt nicht dieser ausdruck noch bei jedem fall von c:

Code:

c:=IntToStr(d);

nur leider geht das nicht

[DeddyH]

Wieso willst Du aus der Zahl nun wieder einen String machen? Das brauchst Du doch erst ganz am Schluss, wenn Du das Ergebnis in binärer Schreibweise wieder ausgeben willst. Aber wir können uns das auch einfacher machen, ich weiß nur nicht, ob das Deinem Lehrer/Ausbilder gefällt.

Delphi-Quellcode:

var
  Zahl: integer; //oder Cardinal oder oder...
begin
  ...
  if TryStrToInt('$' + h, Zahl) then
    writeln(IntToBin(Zahl));

[Marcel2906]

sry, ich bin nicht mehr bei dem binär, sondern hex in dezimal...
hatte gedacht ich mach nicht extra ein neues Thema auf

[DeddyH]

Wie gezeigt ginge es auch, ein $ dem String voranzustellen und das an (Try)StrToInt zu übergeben, aber das soll ja wahrscheinlich nicht der Zweck der Übung sein. Dann also zu Fuß:
- String von hinten nach vorn durchgehen
- Multiplikator initial auf 1 setzen
- Ergebnis initial auf 0
- Zeichen in Zahl wandeln (case-Verzweigung wie gezeigt)
- ermittelte Zahl mit Multiplikator multiplizieren und zum Ergebnis addieren
- Multiplikator mit 16 miltiplizieren

Wenn ich nichts vergessen habe, sollte es so funktionieren.

[TBx]

Zitat:

Zitat von Marcel2906 (Beitrag 1117851)

sry, ich bin nicht mehr bei dem binär, sondern hex in dezimal...
hatte gedacht ich mach nicht extra ein neues Thema auf

doch, genau das solltest Du.

Von daher

*** Closed ***