Umrechnen von Zahlensystemen

[JP29]

Hallo Leute,
und zwar habe ich ein Problem bezüglich von Umrechnungen in verschiedene Zahlensyseme. In der Schule haben wir jetzt gelernt verschiedene Zahlensysteme (dezimal, binär, hexadezimal) umzurechnen und in diesen zu rechnen.
Jetzt hat unser Info-Lehrer die Aufgabe erteilt in einem Programm Zahlen von dezimal zu binär und anders rum umzurechnen. Die Theorie versteh ich ja, aber ich weiß nicht wie ich das umsetzen soll. Ich geh übrigens in die 10. Klasse, also es sollte möglichst einfach gehalten sein, so dass ich das auch verstehe.

Mfg JP29.

[waldforest]

Hallo,
schau mal hier im Forum nach und nutze die Suchfunktion.
Hier gibt es schon einen Beitrag zu diesem Thema

z.B.
http://www.delphipraxis.net/143001-u...lensystem.html

oder in der CodeLib
http://www.delphipraxis.net/36897-vo...n-anderes.html
weitere Beispiele, unter den Begriffen Zahlensystem

[JP29]

Ja, den habe ich auch schon gesehen, aber da sehe ich nicht durch .

[JP29]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x, y : Integer;
    result, c : String;
begin
 x:=StrToInt(Edit1.Text);
 repeat
  begin
   x DIV 2:= x;
   x MOD 2:= y;
   c:=IntToStr(y);
   result:=copy(c,1,1);
  end;
 until x=0;
edit2.Text:=(result);

hier hab ich mal ausprobiert, wie es gehen könnte, aber das funktioniert nicht. könnt ihr mir bitte, bitte helfen!!

[Aphton]

Lern die Syntax zuerst.

[himitsu]

Zitat:

hier hab ich mal ausprobiert

Du hast in n deine Zahl ... warum rechnest du dann niemals mit n ?

Und zur Syntax:

Zitat:

Delphi-Quellcode:

x DIV 2:= x;
x MOD 2:= y;

Delphi-Quellcode:

x := n MOD 2;
v := n DIV 2;

Zitat:

Delphi-Quellcode:

c:=IntToStr(y);
result:=copy(c,1,1);

Was soll das COPY?
Über MOD 2 bekommt man doch sowieso nur eine einstellige Zahl raus.
Und wo läßt du die vorherigen Ergebnisse? Result würd jedesmal überschrieben
result := Result + IntToStr(x); .

Tipp: Nenn besser keine Variable Result ... denn so heißt das "Result" jeder Funktion und das könnte mal missverständlich enden.

Tipp 2: Im Debugger kann man sich die Werte seiner Variablen ansehn und so erkennen was wie wo (falsch) läuft.

[JP29]

also...ok mit dem n war ein fehler.
aber das result hab ich ja als string und ich kopiere das neu errechnete ja dann immer den string result rein damit das vorherige erhalten bleibt.

[himitsu]

Zitat von JP29:

aber das result hab ich ja als string und ich kopiere das neu errechnete ja dann immer den string result rein damit das vorherige erhalten bleibt.

Falsch, Result := ...; weißt Result immer einen komplett neuen Wert zu ... das erste Zeichen des String c.
Und dabei geht natürlich der vorherige Inhalt von Result verloren.

Soll das neue Zeichen angehängt werden, dann mußt du entweder Result nehmen und c anhängen (Result + c ) und das Ergebnis an Result übergeben (siehe mein Beispiel in #6)
oder du nimmst Insert und fügst das c hinten ein.

[JP29]

also danke erstmal für die hilfe...deine antwort habe ich verstanden, aber vom prinzip her also wie ich das meine die einzelnen werte in einem string zu speichern is in ordnung oder?!

[JP29]

cool...das programm an sich funktioniert jetzt, allerdings rechnet er nicht richtig z.b rechnet er 12 in 011101111000010101010110 um:
Was ist denn an meinen rechenweg falsch??