Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Aphton,
28. Aug 2011
Kuck mal hier
Und btw, JP29, sry, habs überlesen xD
Deutlichere Erklärung zum Algorithmus:
Die binäre Zahl "101011" hat im dezimalen System den Wert 43.
So, wie kommt man nun von dem binären Wert zum Dezimalen?
Der von mir zuvor geposteter Algorithmus macht es, den ich nun mal speziell für dich per Hand ausführen werde:
binStr := "101011"
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Aphton,
28. Aug 2011
procedure TForm1.Button2Click(Sender: TObject);
var n, result, y: Integer;
x, s1, s2, s3, s4: String;
begin
x:=(edit1.Text);
n:=Length(x);
if n=1 then
begin
y:=StrToInt(edit1.Text);
result:=y*1;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Aphton,
28. Aug 2011
Du weist nirgendswo Werte den s1, .., s4 Variablen zu!
Mit ner Schleife ginge es evt. so (sollte auch für dich verständlich sein)
var
binStr : String;
binVal : Integer;
decVal : Integer;
i : Integer;
begin
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Aphton,
28. Aug 2011
Das allererste, was du machst, ist, durch zwei zu dividieren. Dadurch verlierst du schon ein "y" Wert.
Dh. du musst die Reihenfolge vertauschen:
y := x mod 2
x := x div 2
Edit
hinten? Ach du hast es dir echt damit angetan...
Diesmal muss es aber vorne dran:
denn du müsstest folgendes aussagen, anstatt dieses