Umrechnen von Zahlensystemen

[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??

[JP29]

Zitat von himitsu:

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

wie kommt man in den debugger??

[JP29]

ok war n dummer fehler, ich hatte nicht x dem edit 1 zugewiesen, aber er rechnet immer noch nicht ganz richtig:
12 sind jetzt 0110 statt 0011.
und 0110 sind nur 6...aber ich erkenne en fehler nicht.
bitte hilfe.

[himitsu]

Bitte editiere deine Beiträge, wenn du kurz hintereinander mehreres sagen willst. (Mehrfachposts sind nicht so gerne gesehn)

Und zum Debugger: schau dir mal das Menü "Start" genauer an.

Ich weiß jetzt nicht genau, was alles schon in D6 möglich war, aber


z.B. auf die erste Zeile deiner Prozedur gehen und F5 drücken (Haltepunkt setzen)
dann mit F9 das Programm starten
mit F7 / F8 kann man dann einzelne Zeilen/Befehle ausführen

Mit der Maus über eine Variable zeigen und dann zeigt Delphi einem den Wert an
und eventuell gibt es unter Ansicht > Debugfenster auch sowas wie Überwachte Ausdrücke, wo man den Namen einer Variable eintragen und sich deren Wert anzeigen kann.
Auch versteckt sich vermutlich im Kontextmenü des Codefensters einige schöne Einträge zum Anzeigen/ändern von Werten.

[JP29]

mhhh naja, aber ich würd gern mal wissen warum er falsch rechnet, eigentlich stimmt doch die syntax

edit:
hab jetztnoch was entdeckt:
er versetzt immer eine null an die falsche stelle:
50 wären ja: 110010
programm rechnet: 011001
genau wie bei 12
12 wären: 1100
programm rechnet:0110

habt ihr vlt. ne idee woran das liegen könne!?

[DeddyH]

Du merkst Dir den Wert des niederwertigsten Bits nicht, sondern dividierst sofort durch 2.