Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
8. Sep 2003
OK. Mal sehen, ob wir noch eine Rückmeldung zwecks unserer Note bekommen. :gruebel:
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
8. Sep 2003
Halt, da hast du wieder die and-Verknüpfung drin. Ich denke Ziel des Lehrers war es den Algorithmus, wie man es von Hand macht in Programmcode zufassen.
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
8. Sep 2003
Grundansatz ist gut. Der letzte Code ist die komplette Lösung.
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
6. Sep 2003
Sorry, auch gerade gemerkt.
Hier die Komplettlösung - hin und zurück:
function IntToStr(IntNumber: Integer): string;
begin
Str(IntNumber, result);
end;
function StrToInt(s: String): Integer;
var
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
6. Sep 2003
Weil mir langweilig war:
function IntToBin(IntNumber: Integer): string;
function OtherWayRound(s: string): string;
var
Loop: Integer;
begin
for Loop := length(s) downto 1 do
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
6. Sep 2003
Dann implementier den Algorithmus, wie man es auch von Hand machen würde:
15 / 2 = 7 R1
7 / 2 = 3 R1
3 / 2 = 1 R1
1 / 2 = 0 R1
Der Rest von Oben nach untengelesen ergibt die Zahl im Binärsystem.
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
6. Sep 2003
Es verschiebt die Bits um angegeben Anzahl von Bits nach rechts.
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
6. Sep 2003
function IntToBin(Int: Integer): String;
var
i : Integer;
begin
Result := '';
for i := 7 downto 0 do
Result := Result + IntToStr((Int shr i) and 1);
end;
function BinToInt(Binary: String): Integer;